如何将查询结果导出为EXCEL文件或者打印出来？要多少给多少，急急急急急

Question

先在工程里面添加Excel引用，再在工程中创建Excel.appliction对象，然后将查询结果（通过Recrod对象）逐个写入Excel表格即可具体方法和属性参见Csdn
   注意第一次打开Excel是速度很慢，还有你的计算机必须装有Excel

Answer 1

这是一个例子，可以参考一下原理和楼上的一样
Private Sub Command2_Click()
    If RecShow.State = 0 Then
       Exit Sub
    End If
    If RecShow.RecordCount = 0 Then
       Exit Sub
    Else
       Dim I As Integer
       Set excelapp = CreateObject("excel.application")
       Dim book As New Excel.Workbook
       Dim sheet As New Worksheet
       FileCopy SysVal.RptPath & "s_dname.xls", SysVal.SelfPath & TempXls
       RecShow.MoveFirst
       excelapp.Workbooks.Add
       Set book = excelapp.Workbooks.Open(SysVal.SelfPath & TempXls)
       Set sheet = book.Worksheets(1)
       excelapp.DisplayExcel4Menus = False
       excelapp.Range("a1").Value = SysVal.UserName & "药品目录报表"
       excelapp.Range("b3").Value = Date
       excelapp.Range("d3").Value = SysVal.PerName
       I = 5
       While Not RecShow.EOF
             excelapp.Range("a" & I).Value = RecShow("innerid")
             excelapp.Range("b" & I).Value = RecShow("dname")
             excelapp.Range("c" & I).Value = RecShow("wbid")
             excelapp.Range("d" & I).Value = RecShow("pyid")
             I = I + 1
             RecShow.MoveNext
       Wend
    excelapp.Visible = True
    End If
End Sub