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版本可能会有差别,注意找一下.在代码中添加引用,注意一定是在代码开始位置...