传输访问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