如何將MS Access查詢的結果導出到Excel的特定工作表

Question

我是MS訪問和VBA的新手，需要幫助。 我所做的是手動導出Excel表單中MS訪問查詢的結果。我正試圖自動化這一點。所以我想要做的是在MS訪問模塊中創建一個VBA代碼，一旦運行代碼，它將運行所述查詢，然後將查詢結果保存在Excel文件的特定工作表中。它也會刪除存儲在工作表中的現有結果並粘貼新數據。

我試着寫這個代碼，但它不工作 -

Sub Test() 

    Dim xlApp As Excel.Application 
    Dim xlBook As Excel.Workbook 
    Dim xlQuery As String 
    Dim xlfile As String 


     strDate = Format(Date, "yymmdd") 

     Set xlApp = New Excel.Application 
     xlApp.Visible = True 
     'Open the Master Workbook Template 
     Set xlBook = xlApp.Workbooks.Open("C:\Testing\Template.xls", , False) 

     xlQuery = "qry_1" 
     xlfile = "C:\Testing\Template.xls" 

    DoCmd.OpenQuery "qry_1" 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, xlQuery, xlfile, True, Worksheets("hello") 

Set xlApp = Nothing 
Set xlBook = Nothing 
    End Sub 

Answer 1

所有你需要的是：

Dim xlQuery As String 
Dim xlfile As String 

xlQuery = "qry_1" 
xlfile = "C:\Testing\Template.xls" 

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, xlQuery, xlfile, True, "hello$"