Excel 每次将access查询导出到同一工作表

我有一个带有命名工作表的Excel二进制工作簿和一个带有与工作簿工作表同名的查询的MS ACCESS

例如，我有一个类似CustomerData的工作表，并且有一个名为相同的查询

我的问题是，当我运行此代码时，它会将查询数据导出到CustomerData1，而不是CustomerData

DoCmd.TransferSpreadsheet acExport, 9, xQuery, strFilePath, True, xSheet

我正要编写一个函数，在导出数据之前先删除工作表，但同一工作簿中的另一个工作表引用了这些工作表

我的代码：

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

---

我猜下面对您现有代码的替换应该可以做到这一点

DoCmd.TransferSpreadsheet acExport, 9, xQuery, strPath, True, "SheetName!A1:Z200"

---

你需要给我们的不仅仅是一行代码。目前，我们还不知道xQuery、strFilePath和xSheet是什么，这些信息对于提供正确答案将非常有用。@Aiken我刚刚对我的帖子进行了编辑，以包含我的代码。谢谢你。但是如果我有一个比这个预设范围更宽的范围呢？