VB中读写EXCEL文件

1、精品文档VB中读写EXCEL文件在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目， 并选取项目中的“ Microsoft Excel 11.0 object library ”项。由于你的 Excel 版本不同，所以这个选项的版本号可能不同。定义EXCE对象Dim XlsObj As Excel.Application Excel 对象Dim XlsBook As Excel.Workbook 工作簿Dim XlsSheet As Excel.Worksheet 工作表 。打开或创建 EXCELSet XlsObj = CreateObject(Excel.Appl

2、ication)创建 EXCEL对象XlsObj.Visible = True 设置EXCEL寸象可见(或不可见) 打开已经存在的 test.xls 工件簿文件Set xlbook = xlapp.Workbooks.Open(App.Path & test.xls) 创建有一个工作表的工作簿XlsObj.SheetsInNewWorkbook = 1Set XlsBook = XlsObj.Workbooks.Add。设置活动工作表 或者 Set XlsSheet = XlsObj.Worksheets(1) 代表第 1个 SheetSet XlsSheet = XlsObj.Workshe

3、ets( 表名)给单元格( row,col )赋值XlsSheet.Cells(row, col) = 值 给合并的单元格赋值，如( A3：A9)XlsSheet.Range(A3:A9) = 值 运行 EXCEL 宏XlsBook.RunAutoMacros ( 宏名) 插入一行XlsSheet.Rows(1:1).Insert Shift:=xlDown保存 EXCEL 文件XlsBook.Save另存为XlsBook.SaveAs( 文件名 )关闭工作簿XlsBook.Close (True)结束 EXCEL 对象XlsObj.Quit释放 XlsObj 对象 Set XlsObj =

4、Nothing如果要求在退出应用程序后EXCEL不提示用户是否保存已修改的 文件, 则可使用如下语句：XlsObj.DisplayAlerts = FalseXlsObj.QuitXlsObj.DisplayAlerts = True网上实例 下面就是简单的在一些单元格内写入数字For i = 7 To 15For j = 1 To 10xlsheet.Cells(i, j) = j 当前工作簿第一页的第 I 行第 J 列Next jNext i xlapp.Quit 结束 EXCEI对象xlapp.Workbooks.CloseSet xlapp = Nothing 释放 xlApp 对象E

5、nd Sub这样，我们就可以简单的对 excel 文件进行操作了。 下面再放一些我从网上查到 的资料吧，还挺有用的：1创建 Excel 对象eole=CREATEOBJECT（Excel.application）2添加新工作簿eole.Workbooks.add3设置第 3 个工作表为激活工作表eole.Worksheets（ sheet3 ）.Activate4打开指定工作簿eole.Workbooks.Open（ c:templl.xls）5显示 Excel 窗口eole.visible=.t.6更改 Excel 标题栏eole.Caption= VB应用程序调用 Microsoft Ex

6、cel 7给单元格赋值eole.cells（1,4）.value=XM（XM 为数据库字段名 ） 8设置指定列的宽度 （ 单位：字符个数 ） eole.ActiveSheet.Columns（1）.ColumnWidth=5 9设置指定行的高度 （ 单位：磅 ） eole.ActiveSheet.Rows（1）.RowHeight=1/0.035 （ 设定行高为 1 厘米， 1 磅=0.035 厘米） 10在第 18 行之前插入分页符eole.Worksheets（ Sheet1 ）.Rows（18）.PageBreak=111在第 4 列之前删除分页符 eole.ActiveSheet.Co

7、lumns（4）.PageBreak=0 12指定边框线宽度 （Borders 参数如下 ） ole.ActiveSheet.Range（ b3:d3 ）.Borders（2）.Weight=313设置四个边框线条的类型eole.ActiveSheet.Range（ b3:d3 ）.Borders（2）.LineStyle=1（ 其中 Borders 参数：1左、2右、3顶、4底、5斜、6斜 / ；LineStyle 值： 1 与 7细实、 2细虚、 4点虚、 9双细实线 ）14设置页眉 eole.ActiveSheet.PageSetup.CenterHeader= 报表 115设置页脚eo

8、le.ActiveSheet.PageSetup.CenterFooter= 第 & P页 16设置页眉到顶端边距为 2 厘米 eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 17设置页脚到底边距为 3 厘米eole.ActiveSheet.PageSetup.FooterMargin=3/0.035 18设置顶边距为 2 厘米eole.ActiveSheet.PageSetup.TopMargin=2/0.03519设置底边距为 4 厘米eole.ActiveSheet.PageSetup.BottomMargin=4/0.035 20设置左边

9、距为 2 厘米 veole.ActiveSheet.PageSetup.LeftMargin=2/0.035 21设置右边距为 2 厘米 eole.ActiveSheet.PageSetup.RightMargin=2/0.035 22设置页面水平居中 eole.ActiveSheet.PageSetup.CenterHorizontally=.t. 23设置页面垂直居中 eole.ActiveSheet.PageSetup.CenterVertically=.t. 24设置页面纸张大小 (1窄行 8 5 11 39 宽行 14 11) eole.ActiveSheet.PageSetup.P

10、aperSize=1 25打印单元格网线 eole.ActiveSheet.PageSetup.PrintGridlines=.t. 26拷贝整个工作表 eole.ActiveSheet.UsedRange.Copy 27拷贝指定区域 eole.ActiveSheet.Range( A1:E2).Copy 28粘贴 eole.WorkSheet( Sheet2 ).Range( A1).PasteSpecial 29在第 2 行之前插入一行 eole.ActiveSheet.Rows(2).Insert 30在第 2 列之前插入一列 eole.ActiveSheet.Columns(2).In

11、sert 31设置字体 eole.ActiveSheet.Cells(2,1).Font.Name= 黑体 32设置字体大小 eole.ActiveSheet.Cells(1,1).Font.Size=25 33设置字体为斜体 eole.ActiveSheet.Cells(1,1).Font.Italic=.t. 34设置整列字体为粗体 eole.ActiveSheet.Columns(1).Font.Bold=.t. 35清除单元格公式 eole.ActiveSheet.Cells(1,4).ClearContents 36打印预览工作表 eole.ActiveSheet.PrintPrevie