每次将导出访问查询导出到同一张表
我有一个“Excel二进制工作簿”与命名表和一个MS ACCESS与查询命名相同的工作簿表。
例如，我有一个像“CustomersData”的工作表，并有一个名称相同的查询。
我的问题是，当我运行这个代码，它将查询数据导出到“CustomersData1”而不是“CustomersData”
DoCmd.TransferSpreadsheet acExport, 9, xQuery, strFilePath, True, xSheet 我正要写function在导出数据之前首先删除纸张，但是我在同一工作簿中有另一张纸张引用了这些纸张。
我的代码：
Public Function Export_To_Excel() On Error GoTo Export_To_Excel_Err Dim rs As DAO.Recordset Dim xQuery As String Dim strPath As String Dim i As Long Set rs = CurrentDb.OpenRecordset("SELECT * FROM Export_Specs") strPath = "D:\Path\To\File.xlsb" i = 0 If Not (rs.EOF And rs.BOF) Then rs.MoveFirst Do Until rs.EOF = True xQuery = rs("Query_Name") DoCmd.TransferSpreadsheet acExport, 9, xQuery, strPath, True i = i + 1 rs.MoveNext Loop Else MsgBox "No queries found to export.", vbCritical, "Getting Queries" End If MsgBox "Finished. (" & i & ") Queries were exported successfully to " & strPath, vbInformation, "Exporting Data.." rs.Close Set rs = Nothing Export_To_Excel_Exit: Exit Function Export_To_Excel_Err: MsgBox Error$ Resume Export_To_Excel_Exit End Function
我猜下面的replace到你现有的代码应该做的伎俩
DoCmd.TransferSpreadsheet acExport, 9, xQuery, strPath, True, "SheetName!A1:Z200"