MS Accessのクエリの結果をExcelの特定のシートにエクスポートするには

Question

私はMSアクセスとVBAを初めて利用しており、助けが必要です。 私はExcelシートのMSアクセスクエリの結果を手動でエクスポートします。私はこれを自動化しようとしています。だから私がやろうとしているのは、MS Accessのモジュールで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$"