VB中读写EXCEL文件 教程（二）
2020年01月08日 19:47 发布来源：Excel学习网
在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“MicrosoftExcel11.0objectlibrary”项。由于你的Excel版本不同，所以这个选项的版本号可能不同
。定义EXCEL对象
DimXlsObjAsExcel.Application 'Excel对象
DimXlsBookAsExcel.Workbook '工作簿
DimXlsSheetAsExcel.Worksheet '工作表
。打开或创建EXCEL
SetXlsObj=CreateObject("Excel.Application") '创建EXCEL对象
XlsObj.Visible=True '设置EXCEL对象可见（或不可见）
'打开已经存在的test.xls工件簿文件
Setxlbook=xlapp.Workbooks.Open(App.Path&"\test.xls")
'创建有一个工作表的工作簿
XlsObj.SheetsInNewWorkbook=1
SetXlsBook=XlsObj.Workbooks.Add
。设置活动工作表
'或者 SetXlsSheet=XlsObj.Worksheets(1) 代表第1个Sheet
SetXlsSheet=XlsObj.Worksheets("表名")
给单元格（row,col）赋值
XlsSheet.Cells(row,col)=值
给合并的单元格赋值，如（A3：A9）
XlsSheet.Range("A3:A9")=值
运行EXCEL宏
XlsBook.RunAutoMacros("宏名")
插入一行
XlsSheet.Rows("1:1").InsertShift:=xlDown
保存EXCEL文件
XlsBook.Save
另存为
XlsBook.SaveAs("文件名")
关闭工作簿
XlsBook.Close(True)
结束EXCEL对象
XlsObj.Quit
释放XlsObj对象
SetXlsObj=Nothing
如果要求在退出应用程序后EXCEL不提示用户是否保存已修改的
文件,则可使用如下语句：
XlsObj.DisplayAlerts=False
XlsObj.Quit
XlsObj.DisplayAlerts=True
网上实例
'下面就是简单的在一些单元格内写入数字
Fori=7To15
Forj=1To10
xlsheet.Cells(i,j)=j'当前工作簿第一页的第I行第J列
Nextj
Nexti
xlapp.Quit'结束EXCEL对象'xlapp.Workbooks.Close
Setxlapp=Nothing'释放xlApp对象
EndSub
这样，我们就可以简单的对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应用程序调用MicrosoftExcel〃
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－窄行851139－宽行1411)
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.WorkShee
原创文章如转载请注明：转载自Excel学习网 [ http://www.excelcn.com/]
需要保留本文链接地址：http://www.excelcn.com/xuexixinde/11626.html
需要保留本文链接地址：http://www.excelcn.com/xuexixinde/11626.html
相关教程：
经典Excel学习视频及教程推荐：
Excel优秀工具推荐：
小工具推荐：