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;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。