如何将查询结果导出为EXCEL文件或者打印出来？（在线等100分

Question

Private Sub Command1_Click()
Dim str2 As String
Dim MyPath1 As String
Dim reword As Object
'生成一个不会重名的.xls文件。
MyPath1 = Replace(Date & Time & 2 & ".xls", ":", "")
Open app.path & "\" & MyPath1 For Append As #1  
Close #1   
On Error Resume Next
Set reword = GetObject(, "Excel.Application") '此处如出错则表示指定文件未打开
Set reword = GetObject(app.path & "\" & MyPath1)
reword.Application.Visible = True
reword.Parent.Windows(1).Visible = True
'在此处对文件进行操作。
str2 = Left(MyPath1, Len(MyPath1) - 4)
'！！！！！！！
'将你的查询结果集利用循环语句结合下面的语句给EXCEL的单元格赋值。
reword.sheets(str2).Cells(2, 1).Value = "查询结果集中的某一元素"
End Sub

Answer 1

导入到EXCEL比较简单，可以在EXCEL中录制需要的宏，然后根据宏的编码在VB中对EXCEL进行操作，打印的话，最好可以找到现成的控件，我使用过VSPRINTER还是比较好用

Answer 2

直接在reword.sheets(str2).Cells(2, 1).Value = "查询结果集中的某一元素"
后面加一行reword.printpreview 
就行了，我做过 要代码请说一声

Answer 3

看看这篇：http://www.csdn.net/expert/topic/696/696856.xml?temp=.7434809 
回复人： duoduo_35(半桶水) (  ) 信誉：100  2002-5-3 21:59:06  得分:40  
 
 
  先在工程里面添加Excel引用，再在工程中创建Excel.appliction对象，然后将查询结果（通过Recrod对象）逐个写入Excel表格即可具体方法和属性参见Csdn
   注意第一次打开Excel是速度很慢，还有你的计算机必须装有Excel  
 
Top 
 
 回复人： e_shark() (  ) 信誉：100  2002-5-3 22:02:23  得分:60  
 
 
  这是一个例子，可以参考一下原理和楼上的一样
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 
 

Answer 4

SELECT 字段1,字段2 INTO [excel 8.0;database=c:\Tmp.xls].sheets1
FROM TableName
注意：c:\Tmp.xls的工作簿必须存在，“sheets1”的工作表必须没有，否则都会出错！

Answer 5

感谢各位！！！！
打印控件在哪里找？
[email protected]