如何将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$"