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控件中的数据时要注意了。

你可能感兴趣的:(VB)