傳輸訪問2010查詢結果到Excel 2010

Question

我用下面的Access 2010查詢結果傳輸到Excel工作表2010：

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, qdfQRY.Name, strResult, True 

我要出口到工作表的名稱是相同的作爲使用的查詢的名稱。問題是如果查詢名稱是AI-SVAL-DACA PV Param Chk工作表的名稱是AI_SVAL_DACA_PV_Param_Chk。我如何防止名稱更改發生？

Answer 1

我看到2個選項。第一個顯而易見的可能不是你想要的是命名你查詢Sheet1。第二個是添加代碼以使用類似於以下內容的方式重命名標籤：

Dim xlbook As Object 
Dim xlsheet As Object 

Set xlbook = CreateObject("Excel.Application") 
Set xlsheet = xlbook.Workbooks.Open("C:\Users\username\Desktop\Test.xlsx") 

With xlsheet 
.Activate 
.sheets(1).Name = "ABC" '< apply name to 1st Tab 
.Save 
End With 

'Quit_and_housekeep 
xlbook.Quit '< Quit Excel 
Set xlsheet = Nothing 
Set xlbook = Nothing