VB导出Excel

VB与Excel交互时，如何才能将VB中控件的内容导出到Excel呢？

1、首先在VB中添加引用Microsoft Excel 14.0 Object Library

2、在VB中定义Excel对象

Dim xlApp as Excel.Application

Dim xlBook as Excel.Workbook

Dim xlSheet as Excel.Worksheet

3、在VB中写入执行Excel操作的代码

Set xlApp=new Excel.Application '建立xlApp的引用

Set xlApp=CreateObject(" Excel.application") ' 创建Excel对象

Set xlBook =xlApp.Workbooks.add ' 添加工作簿

xlApp.SheetsInNewWorkbook=1 ‘设置打开工作表数量

xlApp.VIsible=True '设置Excel可见

xlApp.Caption="123" ’ 设置名称为123

xlApp.ActiveSheet.Cells(i,j).Value=" " '给活动工作表中的单元格赋值

以上是基本的操作，当然对于Word和Access的操作也差不多，不同的只是定义对象

a、在添加工作簿时也可以将语句改为 Set xlBook=xlApp.Workbooks.Open("路径+文件名")

两者的不同是Add是添加一个新的工作簿，Open是打开已经存在工作簿

b、xlApp.SheetsinNewWorkbook=1 后边的值为打开工作表的数量，

要注意的是：MSHFlexGrid控件是以第0行和第0列开始的，而Excel是以第1行第1列开始的，在导出MSHFlexGrid控件中的数据时要注意了。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!