VB中读写XECEL文件.doc

VB中读写EXCEL文件 (2011-01-11 22:41:47) 转载 标签： 单元格 设置 边距 对象 it 分类： 在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号可能不同 。定义EXCEL对象 Dim XlsObj As Excel.Application　Excel对象Dim XlsBook As Excel.Workbook　工作簿Dim XlsSheet As Excel.Worksheet　工作表 。打开或创建EXCEL Set XlsObj = CreateObject(Excel.Application)　创建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.Worksheets(表名)　 给单元格（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 = 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 ixlapp.Quit 结束EXCEL对象xlapp.Workbooks.CloseSet xlapp = Nothing 释放xlApp对象End Sub这样，我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧，还挺有用的：1．创建Excel对象 eole=CREATEOBJECT(′Excel.application′) 2．添加新工作簿 eole.Workbooks.add 3．设置第3个工作表为激活工作表 eole.Worksheets(〃sheet3〃).Activate 4．打开指定工作簿 eole.Workbooks.Open(〃c:\temp\ll.xls〃) 5．显示Excel窗口 eole.visible=.t. 6．更改Excel标题栏 eole.Caption=〃VB应用程序调用Microsoft Excel〃 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=1 11．在第4列之前删除分页符 eole.ActiveSheet.Columns(4).PageBreak=0 12．指定边框线宽度(Borders参数如下) ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3