vb中怎么读取excel文件？
作者&投稿：宇详 （若有异议请与网页底部的电邮联系）
''~~~当前工作簿的第一页,这里也可以换成“表名”\x0d\x0a \x0d\x0a'下面就是简单的在一些单元格内写入数字\x0d\x0a Fori = 7 To 15\x0d\x0a For j = 1 To 10\x0d\x0axlsheet.Cells(i, j) = j '当前工作簿第一页的第I行第J列\x0d\x0a Next j\x0d\x0a Nexti\x0d\x0a Withxlsheet '设置边框为是实线\x0d\x0a .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous\x0d\x0a EndWith\x0d\x0a '引用当前工作簿的第二页\x0d\x0a Setxlsheet = xlapp.Application.Worksheets(2)\x0d\x0axlsheet.Cells(7, 2) = 2008 '在第二页的第7行第2列写入2008\x0d\x0axlsheet.SaveAsApp.Path&"\test.xls" '按指定文件名存盘\x0d\x0a 'Setxlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿\x0d\x0axlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close\x0d\x0a Setxlapp = Nothing '释放xlApp对象\x0d\x0aEnd Sub\x0d\x0a这样，我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧，还挺有用的：\x0d\x0a 1．创建Excel对象\x0d\x0aeole=CREATEOBJECT(′Excel.application′) \x0d\x0a 2．添加新工作簿\x0d\x0aeole.Workbooks.add\x0d\x0a 3．设置第3个工作表为激活工作表\x0d\x0aeole.Worksheets(〃sheet3〃).Activate \x0d\x0a 4．打开指定工作簿\x0d\x0aeole.Workbooks.Open(〃c:\temp\ll.xls〃) \x0d\x0a 5．显示Excel窗口\x0d\x0aeole.visible=.t. \x0d\x0a 6．更改Excel标题栏\x0d\x0aeole.Caption=〃VB应用程序调用Microsoft Excel〃\x0d\x0a 7．给单元格赋值\x0d\x0aeole.cells(1,4).value=XM(XM为数据库字段名) \x0d\x0a 8．设置指定列的宽度(单位：字符个数) \x0d\x0aeole.ActiveSheet.Columns(1).ColumnWidth=5 \x0d\x0a 9．设置指定行的高度(单位：磅) \x0d\x0aeole.ActiveSheet.Rows(1).RowHeight=1/0.035 \x0d\x0a (设定行高为1厘米，1磅=0.035厘米) \x0d\x0a 10．在第18行之前插入分页符\x0d\x0aeole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1 \x0d\x0a 11．在第4列之前删除分页符\x0d\x0aeole.ActiveSheet.Columns(4).PageBreak=0 \x0d\x0a 12．指定边框线宽度(Borders参数如下) \x0d\x0aole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3 \x0d\x0a 13．设置四个边框线条的类型\x0d\x0aeole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1 \x0d\x0a (其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线) \x0d\x0a 14．设置页眉\x0d\x0aeole.ActiveSheet.PageSetup.CenterHeader=〃报表1〃\x0d\x0a 15．设置页脚\x0d\x0aeole.ActiveSheet.PageSetup.CenterFooter=〃第＆P页〃\x0d\x0a 16．设置页眉到顶端边距为2厘米\x0d\x0aeole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 \x0d\x0a 17．设置页脚到底边距为3厘米\x0d\x0aeole.ActiveSheet.PageSetup.FooterMargin=3/0.035 \x0d\x0a 18．设置顶边距为2厘米\x0d\x0aeole.ActiveSheet.PageSetup.TopMargin=2/0.035 \x0d\x0a 19．设置底边距为4厘米\x0d\x0aeole.ActiveSheet.PageSetup.BottomMargin=4/0.035 \x0d\x0a 20．设置左边距为2厘米\x0d\x0aveole.ActiveSheet.PageSetup.LeftMargin=2/0.035 \x0d\x0a 21．设置右边距为2厘米\x0d\x0aeole.ActiveSheet.PageSetup.RightMargin=2/0.035 \x0d\x0a 22．设置页面水平居中\x0d\x0aeole.ActiveSheet.PageSetup.CenterHorizontally=.t. \x0d\x0a 23．设置页面垂直居中\x0d\x0aeole.ActiveSheet.PageSetup.CenterVertically=.t. \x0d\x0a 24．设置页面纸张大小(1－窄行8511 39－宽行1411) \x0d\x0aeole.ActiveSheet.PageSetup.PaperSize=1 \x0d\x0a 25．打印单元格网线\x0d\x0aeole.ActiveSheet.PageSetup.PrintGridlines=.t. \x0d\x0a 26．拷贝整个工作表\x0d\x0aeole.ActiveSheet.UsedRange.Copy\x0d\x0a 27．拷贝指定区域\x0d\x0aeole.ActiveSheet.Range(〃A1:E2〃).Copy \x0d\x0a 28．粘贴\x0d\x0aeole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial\x0d\x0a 29．在第2行之前插入一行\x0d\x0aeole.ActiveSheet.Rows(2).Insert \x0d\x0a 30．在第2列之前插入一列\x0d\x0aeole.ActiveSheet.Columns(2).Insert \x0d\x0a 31．设置字体\x0d\x0aeole.ActiveSheet.Cells(2,1).Font.Name=〃黑体〃\x0d\x0a 32．设置字体大小\x0d\x0aeole.ActiveSheet.Cells(1,1).Font.Size=25 \x0d\x0a 33．设置字体为斜体\x0d\x0aeole.ActiveSheet.Cells(1,1).Font.Italic=.t. \x0d\x0a 34．设置整列字体为粗体\x0d\x0aeole.ActiveSheet.Columns(1).Font.Bold=.t. \x0d\x0a 35．清除单元格公式\x0d\x0aeole.ActiveSheet.Cells(1,4).ClearContents\x0d\x0a 36．打印预览工作表\x0d\x0aeole.ActiveSheet.PrintPreview\x0d\x0a 37．打印输出工作表\x0d\x0aeole.ActiveSheet.PrintOut\x0d\x0a 38．工作表另存为\x0d\x0aeole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃) \x0d\x0a 39．放弃存盘\x0d\x0aeole.ActiveWorkbook.saved=.t. \x0d\x0a 40．关闭工作簿\x0d\x0aeole.Workbooks.close\x0d\x0a 41．退出Excel \x0d\x0aeole.quit\x0d\x0a***************************************\x0d\x0a\x0d\x0a2、调用ADO对象以数据库方式打开EXECL文件后，以SQL语句方式读取文件\x0d\x0a***************************************\x0d\x0a Dim rs As ADODB.Recordset\x0d\x0a Set rs = New ADODB.Recordset\x0d\x0a Dim conn As ADODB.Connection\x0d\x0a Set conn = New ADODB.Connection\x0d\x0a conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" DBQ=" & App.Path & ";", "", ""\x0d\x0a rs.Open "select * from [test$]", conn, adOpenStatic, adLockReadOnly, adCmdText\x0d\x0a Set Read_Text_File = rs\x0d\x0a Set rs = Nothing\x0d\x0a Set conn = Nothing\x0d\x0a***************************************
wps里EXC如何筛选匹配数据?
wps里EXC筛选匹配数据，这EXC不知是什么，通过补充说明来看，也不用筛选匹配，直接用VLOOKUP查找引用函数公式就可以了。下图为表2的数据：在表1的C2单元格输入公式并向下填充，如下：=VLOOKUP(A2,Sheet2!A:B,2,0)VLOOKUP 函数参数说明：1、查找的值，也就是表1的某一个人名；2、被查找的数据区域...
excel函数公式大全excexce函数公式大全
关于excel函数公式大全exc,exce函数公式大全这个很多人还不知道,今天来为大家解答以上的问题,现在让我们一起来看看吧!1、1.TODAY用途:返回系统当前日期的序列号。2、语法:TODAY()参数:无实例:=TODAY()返回结果: 2009\/12\/18(执行公式时的系统时间)2.MONTH用途:返回以序列号表示的日期中的月份,它是介于1(一月)和...
exc文档里面2列数据,A列和B列,a中数字和b中数字相同就连线如果,不一样...
用“插入”的“图片”的“自选图形”自己可以划线的
Java SE 6 新特性: Java DB&n
至于如何使用 SQLXML 与数据库进行交互 其方法与其它的类型都十分相似 可以参照 RowId 一节 中的例子在 Java SE 的 API 规范中找到 SQLXML 中对应的 get\/set\/update 方法构建类似的程序 此处不再赘述 SQLExcpetion 的增强 在Java SE 之前 有关 JDBC 的异常类型不超过 个 这似乎已经不足以描述日渐复杂的...
B-Link BL-EXCI产品规格
B-Link的BL-EXCI产品是一款专为Express接口设计的Express转1口CF卡，旨在提供高效的数据传输和兼容性。这款卡的特点在于其新型的Express接口设计，可以兼容34\/54规格，确保与现代笔记本电脑的接口无缝对接。BL-EXCI支持当前市面上最新的Express接口技术，无论是CF卡I型还是CF卡，无论是采用PIO模式还是UDMA...
exc怎么筛选3的倍数
1、如下图1，对A列数值进行筛选，要求对数值是3的倍数进行保留，并移植到对应B列 图1 2、利用求余函数MOD，在B1输入“=IF(MOD(A1,3)=0,A1,"")”，该函数此处的意思是，如果3除以A1中数值余数等于0的话，则B1取A1中的值，否则无任何输入，如图2 图2 3、确认后，选中B1,然后下拉值B9，...
excel计算百分比
2. 使用编辑公式=A\/B BB 同样要计算月销售量占年销售量的百分比，可以在单元格D2中输入公式“=B2\/$C$2”，按回车键后，再到“开始”选项卡中点击“数字”并选择“百分比样式”以应用格式。3. 使用PERCENTRANK.EXC函数 如果要计算每个员工月销售量占整个月销售量的百分比，可以在单元格C2中插入函数...
...exc账号时提示rpc服务器不可用可以使用,0x000006BA。 求解!!_百度...
具体来说，问题出在服务器的IP地址192.168.*.*仅限于局域网内部访问。虽然可以通过域名解析，但这种外网访问速度很慢，影响了Foxmail的正常使用。为了解决这个问题，用户在Windows系统中找到了一个巧妙的解决办法。在c:\\WINDOWS\\system32\\drivers\\etc\\hosts文件中，添加了一条指向内网服务器的记录，即：...
excel表格怎么计算各分数段有多少人exc计算各分数段人数
非常感谢您的提问，关于如何计算Excel表格中各分数段的人数，我为您提供以下步骤：1. 首先，在Excel中找到存放分数的那一列。假设分数存放在A列。2. 设定分数段的范围。例如，您想要统计90分以上为优秀，80-89分为良好;70-79分为中等;60-69分为及格;60分以下为不及格。3. 在另外一列(比如B列)...
我的电脑一开机就这样 这是怎么回事 求解 第一次我按了EXC 出现那个
B、上网搜索下载老毛桃或大白菜等启动U盘制作工具，将U盘插入电脑运行此软件制作成启动U盘。C、到系统之家或类似网站下载WINXP或WIN7等操作系统的GHO文件，复制到U盘或启动工具指定的U盘文件夹下并按要求重命名。也可以上网搜索下载ISO格式的系统镜像文件（内含GHO系统文件或完整的系统安装文件），通过ultra...
易凭左卡： 1、调用Excel对象打开EXCEL文件后,读取文件内容*************************************** 在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“MicrosoftExcel 11.0 object library”项.由于你的Excel版本...
吴江市18741384746： 如何用VB读写EXCEL中数据 - ？
易凭左卡： Private Sub Form_Load()Text1.Text = App.Path & ＂\123.xls＂Text2.Text = App.Path & ＂\123.mdb＂Text3.Text = ＂sheet1＂Text4.Text = ＂sheet1＂Data1.DatabaseName = App.Path & ＂\123.mdb＂ End Sub Private Sub Command1_Click...
吴江市18741384746： 怎样用VB读取Excel文件中表格中的数据? - ？
易凭左卡： 1、VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便.因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能. 2、 VB读...
吴江市18741384746： VB 读取Excel的内容 - ？
易凭左卡： Dim appexcel As Object '定义Excel应用程序对象 Dim wbmybook As Object '定义工作簿对象 Dim wsmysheet As Object '定义工作表对象 Set appexcel = CreateObject(＂excel.application＂) '创建Excel应用程序对象 Set wbmybook = appexcel....
吴江市18741384746： 如何使用VB中的sheet控件读取已存在的EXCEL表格 - ？
易凭左卡： '先在工作-引用中添加Excel'再在模块中定义变量,也可以在窗体里定义 Public exlApp As Excel.Application Public exlBook As Excel.Workbook, exlSheet As Excel.Worksheet Set exlApp = New Excel.Application exlApp.Workbooks.Open ModelFile ...
吴江市18741384746： 请问如何使用vb调用 excel 文件? - ？
易凭左卡： 添加引用 Microsoft Excel 12.0 Object Library (视你的office版本不同有所差异) 然后就可以用这个来编程啦 Dim xlapp As Excel.Application '代表excel程序 Dim wkBook As Excel.Workbook '代表excelworkbook(也就是excel工作簿文件 .xls .xlsx...
吴江市18741384746： vb读取任意excel里的数据!急! - ？
易凭左卡： 那你读取EXCEL文件的语句是怎么写的呢?你把对应的绝对路径改成变量就可以了啊...
吴江市18741384746： VB 读取Excel的内容？
易凭左卡： 用CommonDialog可以解决选定打开.xls文件问题 然后就是读取进去 哈哈 保存代码如下 '添加command控件一个 MSFlexGrid控件一个 Private Sub Command1_Click() On Error Resume Next Dim fileadd As String CommonDialog1.ShowOpen ...
吴江市18741384746： 请问如何用vb实现对excel文件的读取和写入操作?？
易凭左卡： Dim excel As Object Set excel = CreateObject(＂excel.application＂) '设定 excel API '--------------这上面可不看 照抄 excel.workbooks.Open (＂C:\book.xls＂) 'P.s请先自己创立 'excel 开启 excel.Visible = True 'excel 显示 or 隐藏 (True of False excel....
吴江市18741384746： 怎么在vb2012中调用excel文件 - ？
易凭左卡： 使用VB2012读取Excel文件需要先添加引用:解决方案右键-添加引用-COM-类型库,中勾选Microsoft Excel引用项,如图:这是Excel2010的引用项,不同的office版本可能会有差别,注意找一下.在代码中添加引用,注意一定是在代码开始位置...
