如何把access查询结果，导入到EXCEL

xpz3123

Private Sub CommandButton1_Click()
      TextBox1.Value = ""
On Error GoTo 100

Dim CNN As New ADODB.Connection
     Dim RST As New ADODB.Recordset
     Dim Stpath, strSQL As String
     Stpath = ThisWorkbook.Path & Application.PathSeparator & "数据库.mdb"
     CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath & ";Jet OLEDB:Database Password=" & "888"
     
     If OptionButton1.Value = True Then
     strSQL = "SELECT * FROM 可发库存 "   
     End If
      
     RST.Open strSQL, CNN
     Sheet1.Range("A8:L10000").ClearContents
     Sheet1.Cells(8, 1).CopyFromRecordset RST
RST.Close
    Set RST = Nothing
    Set CNN = Nothing
    Exit Sub
100:
    MsgBox "找不到符合条件的记录", 1 + 16, "系统提示"
End Sub



以上，可发库存 是ACCESS中的表，如果，可发库存是ACCESS中的查询，这个程序应该怎么改？


求高人赐教~~~

[ 本帖最后由 xpz3123 于 2009-12-1 15:28 编辑 ]

xinjiana

自己多试试不就知道了

xpz3123

原帖由 xinjiana 于 2009-12-1 15:36 发表
自己多试试不就知道了

试太多次了，很多知识还不是很熟~

amolin

以上，可发库存 是ACCESS中的表，如果，可发库存是ACCESS中的查询，这个程序应该怎么改？----像对待表一样，应该不用改！！

xpz3123

原帖由 amolin 于 2009-12-1 15:49 发表
以上，可发库存 是ACCESS中的表，如果，可发库存是ACCESS中的查询，这个程序应该怎么改？----像对待表一样，应该不用改！！

试过了，导不出来数据~

sgrshh29

原帖由 amolin 于 2009-12-1 15:49 发表
以上，可发库存 是ACCESS中的表，如果，可发库存是ACCESS中的查询，这个程序应该怎么改？----像对待表一样，应该不用改！！

就是这样.像对待表一样

xpz3123

原帖由 sgrshh29 于 2009-12-1 16:51 发表


就是这样.像对待表一样

谢谢~~~

bigyoung

docmd.TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA)