vb(5) 将查询导入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)

  For iCol = 0 To rsTemp.Fields.Count - 1

      xlsWorksheet.Cells(1, iCol + 1) = rsTemp.Fields(iCol).Name

  Next iCol

  rsTemp.MoveFirst

  Do Until rsTemp.EOF

     For iCol = 0 To rsTemp.Fields.Count - 1 Step 1

         xlsWorksheet.Cells(rsTemp.AbsolutePosition + 1, iCol + 1) = rsTemp.Fields(iCol).Value

     Next iCol

     rsTemp.MoveNext

  Loop

  xls.Visible = True                    '显示Excel

'  xlsWorksheet.PrintPreview   '打印预览

   xls.DisplayAlerts = False       '是否显示警告

'  xls.Quit

End Sub