1、在工程中引用Microsoft Excel类型库：
在“工程”菜单中选择“引用”，选择“Microsoft Excel 14.0 Objects Library” ，点击确定。表示工程中要引用EXCEL类型库。
2.用代码将MSHFlexGrid中的内容写到表格中：
Private Sub cmdPutout_Click()
Dim i As Integer
Dim j As Integer
Dim Excelapp As Excel.Application
Dim Excelbook As Excel.Workbook
Dim Excelsheet As Excel.Worksheet
Set Excelapp = New Excel.Application '建立一张表
Set Excelbook = Excelapp.Workbooks.Add '添加新工作薄
Set Excelsheet = Excelbook.Worksheets(1) '建立工作表
DoEvents
With MSHFlexGrid1 '将MSHFlexGrid1中内容写到表格中
For i = 0 To .Rows - 1
For j = 0 To .Cols - 1
DoEvents
Excelapp.ActiveSheet.Cells(i + 1,j + 1) = .TextMatrix(i,j)
Next j
Next i
End With
Excelapp.ActiveWorkbook.SaveAs "E:\计算机学习\暑假二\机房收费系统——我" & "\充值.xls" '表格保存路径
Excelapp.ActiveWorkbook.Saved = True '保存表格
Excelapp.Quit
MsgBox "导出完成！",vbInformation,"提示"
End Sub
以上完成了对vb数据的导出工作。
3.vb中对表格操作的基本操作。
(1) 显示当前窗口：
ExcelAPP.Visible=True
(2) 设置第二个工作表为活动工作表
ExcelAPP.WorkSheets[2].Activate;或 ExcelAPP.WorkSheet['Sheet2'].Activate
(3) 打开一存在的工作薄：
ExcelAPP.WordBooks.Open('C:\Excel\充值.xls')
(4) 删除一行或一列：
a. ExcelAPP.ActiveSheet.Rows[2].Delete;
b. ExcelAPP.ActiveSheet.Column[1].Delete
(5) 打印预览工作表：
ExcelAPP.ActiveSheet.PrintPreview;
(6) 打印输出工作表：
ExcelAPP.ActiveSheet.PrintOut;
(7) 保存工作表：
见上边程序代码
(8)关闭工作表：
ExcelAPP.WorkBooks.Close;