VB 将MSHFlexGrid中数据导出到Excel

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;

（编辑：李大同）

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