vb调用excel方法大全.pdfVIP

学习必备 欢迎下载 在 VB 中要想调用 Excel ，需要打开 VB 编程环境“工程”菜单中的“引用”项目，并选取 项目中的“ Microsoft Excel 11.0 object library ”项。由于你的 Excel 版本不同，所以这个选项 的版本号也是不同的。 因为 EXCEL 是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。 第一层： Application 对象，即 Excel 本身； 第二层： workbooks 对象集，指 Excel 的工作簿文件 第三层： worksheets 对象集，表示的是 Excel 的一个工作表； 第四层： Cells 和 Range 对象，指向 Excel 工作表中的单元格。 新建立一个 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 Integer Set xlapp = CreateObject(Excel.Application) 创建 EXCEL 对象 Set xlbook = xlapp.Workbooks.Open(App.Path \test.xls) 打开已经存在的 test.xls 工件簿 文件 Set xlbook = xlapp.Workbooks.Add 新建 EXCEL 工件簿文件 xlbook.RunAutoMacros (xlAutoOpen) 运行 EXCEL 启动宏 xlbook.RunAutoMacros (xlAutoClose) 运行 EXCEL 关闭宏 xlapp.Visible = True 设置 EXCEL 对象可见（或不可见） Set xlsheet = xlbook.Worksheets(1) 设置活动工作表 ~~~ 当前工作簿的第一页 ,这里也可以换成“表名” 下面就是简单的在一些单元格内写入数字 For i = 7 To 15 For j = 1 To 10 xlsheet.Cells(i, j) = j 当前工作簿第一页的第 I 行第 J 列 Next j Next i With xlsheet 设置边框为是实线 .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous End With 引用当前工作簿的第二页 Set xlsheet = xlapp.Application.Worksheets(2) xlsheet.Cells(7, 2) = 2008 在第二页的第 7 行第 2 列写入 2008 xlsheet.SaveAs App.Path \test.xls 按指定文件名存盘 Set xlbook = xlapp.Application.Workbooks.Add 新建一空白工作簿 xlapp.Quit 结束 EXCEL 对象 xlapp.Workbooks.Close Set xlapp = Nothing 释放 xlApp 对象 End Sub 学习必备 欢迎下载 这样，我们就可以简单的对 excel 文件进行操作了。下面再放一些我从