vb(4) 将grid数据导入Excel

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