vb(4) 将grid数据导入Excel

最新推荐文章于 2023-03-18 22:36:12 发布

原创最新推荐文章于 2023-03-18 22:36:12 发布 · 411 阅读

0 ·

CC 4.0 BY-SA版权

vb 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个使用VBA实现打印预览功能的代码示例，通过创建Excel对象来填充数据并进行打印预览。该代码适用于需要在VBA环境中实现数据展示和打印功能的场景。

Private Sub mnu打印预览_Click()
Dim iRow As Long, iCol As Long
Dim xls As Excel.Application
Dim xlsWorkBook As Excel.Workbook
Dim xlsWorksheet As Excel.Worksheet

Set xls = CreateObject("Excel.Application")
If xls Is Nothing Then
MsgBox "请确认是否安装Excel软件！", vbOKOnly Or vbInformation, "提示"
Exit Sub
End If
xls.SheetsInNewWorkbook = 1
Set xlsWorkBook = xls.Workbooks.Add
Set xlsWorksheet = xlsWorkBook.Sheets(1)

With xlsWorksheet
For iRow = 0 To msh.Rows - 1
For iCol = 0 To msh.Cols - 1
.Cells(iRow + 1, iCol + 1) = msh.TextMatrix(iRow, iCol)
Next iCol
Next iRow
End With
xls.Visible = True '显示Excel
xlsWorksheet.PrintPreview '打印预览

End Sub