Access导出查询到Excel并对工作簿、工作表取名

Private Sub Command8_Click()
    On Error GoTo errCMD
    Dim strPATH As String
    strPATH = Application.CurrentProject.Path & "\"    '当前文件夹，= 缺省目录
    strPATH = strPATH & Me.工作簿名
    On Error GoTo KillCMD
    Kill (strPATH & ".xls")
KillCMD:
    DoCmd.TransferSpreadsheet 1, 10, "查询1", strPATH, -1
errCMD:
End Sub

要更改工作簿中的工作表名，要用VBA打开工作簿然后用程序控制修改。这只是我个人的想法，以前没有实践过，懒得想了。