「VB中读写EXCEL文件[优质资料]」.doc

VB中读写EXCEL文件在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号可能不同。定义EXCEL对象Dim XlsObj As Excel.ApplicationExcel对象Dim XlsBook As Excel.Workbook工作簿Dim XlsSheet As Excel.Worksheet工作表。打开或创建EXCELSet 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:templl.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 13设置四个边框线条的类型 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=报表1 15设置页脚 eole.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.035 19设置底边距为4厘米 eole.ActiveSheet.PageSetup.BottomMargin=4/0.035 20设置左边距为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.PaperSize=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).Insert 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.PrintPreview 37打印输出工作表