VB中读写EXCEL文件.docVIP

VB中读写EXCEL文件 (2011-01-11 22:41:47) HYPERLINK javascript:; 转载 标签： HYPERLINK /c.php?t=blogk=%B9%A4%D7%F7%B1%EDts=bpoststype=tag \t _blank 工作表 HYPERLINK /c.php?t=blogk=%B5%A5%D4%AA%B8%F1ts=bpoststype=tag \t _blank 单元格 HYPERLINK /c.php?t=blogk=%C9%E8%D6%C3ts=bpoststype=tag \t _blank 设置 HYPERLINK /c.php?t=blogk=%B1%DF%BE%E0ts=bpoststype=tag \t _blank 边距 HYPERLINK /c.php?t=blogk=%B6%D4%CF%F3ts=bpoststype=tag \t _blank 对象 HYPERLINK /c.php?t=blogk=itts=bpoststype=tag \t _blank it 分类： HYPERLINK /s/articlelist_1598393227_5_1.html \t _blank 计算机教程 在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.