vb调用excel方法大全

1、学习必备欢迎下载在 VB 中要想调用Excel，需要打开VB 编程环境“工程”菜单中的“引用”项目，并选取项目中的“ Microsoft Excel 11.0 object library”项。由于你的Excel 版本不同，所以这个选项的版本号也是不同的。因为 EXCEL 是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。第一层： Application 对象，即Excel 本身；第二层： workbooks 对象集，指Excel 的工作簿文件第三层： worksheets 对象集，表示的是Excel 的一个工作表；第四层： Cells 和 Range 对象，指向Excel 工作表中

2、的单元格。新建立一个VB的工程，先放一个button，名称为Excel_Out 。先定义好各层：Dim xlapp As Excel.Application 'Excel对象Dim xlbook As Excel.Workbook ' Dim xlsheet As Excel.Worksheet '工作簿工作表我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls 文件。Private Sub Excel_Out_Click()Dim i, j As IntegerSet xlapp = CreateObject(&q

3、uot;Excel.Application") '创建 EXCEL 对象打开已经存在的test.xls 工件簿文件新建 EXCEL 工件簿文件'xlbook.RunAutoMacros (xlAutoOpen) '运行 EXCEL 启动宏'xlbook.RunAutoMacros (xlAutoClose) '运行 EXCEL 关闭宏xlapp.Visible = True ' 设置 EXCEL 对象可见（或不可见）Set xlsheet = xlbook.Worksheets(1) ' 设置活动工作表''

4、9;'当前工作簿的第一页,这里也可以换成“表名”'下面就是简单的在一些单元格内写入数字For i = 7 To 15For j = 1 To 10xlsheet.Cells(i, j) = j'当前工作簿第一页的第I 行第 J 列Next jNext iWith xlsheet'设置边框为是实线.Range(.Cells(7, 1), .Cells(28, 29).Borders.LineStyle = xlContinuousEnd With'引用当前工作簿的第二页xlsheet.Cells(7, 2) = 2008'在第二页的第7 行第 2

5、列写入 2008xlsheet.SaveAs App.Path & "test.xls"'按指定文件名存盘新建一空白工作簿xlapp.Quit ' 结束 EXCEL 对象Set xlapp = Nothing ' 释放 xlApp 对象End Sub学习必备欢迎下载这样，我们就可以简单的对 excel 文件进行操作了。下面再放一些我从网上查到的资料吧，还挺有用的：1创建Excel对象eole=CREATEOBJECT( Excel.application )2添加新工作簿3设置第3 个工作表为激活工作表eole.Worksheets(shee

6、t3).Activate4打开指定工作簿 c:templl.xls )5显示Excel窗口eole.visible=.t.6更改 Excel 标题栏eole.Caption= VB 应用程序调用7给单元格赋值MicrosoftExceleole.cells(1,4).value=XM(XM为数据库字段名)8设置指定列的宽度(单位：字符个数)9设置指定行的高度(单位：磅)(设定行高为1 厘米， 1 磅 =0.035 厘米 )10在第 18 行之前插入分页符eole.Worksheets(Sheet1 ).Rows(18).PageBreak=111在第 4 列之前删除分页符12指定边框线宽度(B

7、orders 参数如下 )b3:d3 ).Borders(2).Weight=313设置四个边框线条的类型 b3:d3 ).Borders(2).LineStyle=1(其中Borders 参数： 1左、 2右、 3顶、 4底、 5斜、 6斜 /； LineStyle 值： 1与 7细实、 2细虚、 4点虚、 9双细实线 ) 14设置页眉报表 115设置页脚第 P 页16设置页眉到顶端边距为2 厘米17设置页脚到底边距为3 厘米18设置顶边距为2 厘米19设置底边距为4 厘米20设置左边距为2 厘米学习必备欢迎下载21设置右边距为2 厘米22设置页面水平居中23设置页面垂直居中24设置页面纸张大小(1窄行 851139宽行 1411)25打印单元格网线26拷贝整个工作表27拷贝指定区域 A1:E2 ).Copy28粘贴eole.WorkSheet( Sheet2 ).Range( A1 ).PasteSpecial29在第 2 行之前插入一行30在第 2 列之前插入一列3