Access VBA用TransferSpreadsheet导出xlsx时全部工作表被选中如何解决

该问题是Access 2013的TransferSpreadsheet方法导出逻辑差异导致：旧版xls格式的导出逻辑自带默认选中首个工作表的处理，xlsx格式的导出逻辑无此内置处理，因此所有导出的工作表都会保持选中状态。

最优高效方案（适配高频导出场景） #

在xlsx文件导出完成后增加极轻量的后台Excel COM操作，仅修改默认选中工作表，全程无界面弹出，单文件处理耗时仅数十毫秒，完全不影响高频导出效率。
修改后的完整代码如下：

Function TestExportExcel()
    ' 导出xls格式（原有逻辑不变）
    Dim s As String
    s = "\xxx\Desktop\temp\test.xls"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tblPLCselect", s, , "sheet 1"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tblPLCselect", s, , "sheet 2"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tblPLCselect", s, , "sheet 3"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tblPLCselect", s, , "sheet 4"

    ' 导出xlsx格式，显式指定格式参数避免自动识别异常
    s = "\xxx\Desktop\temp\test.xlsx"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "tblPLCselect", s, , "sheet 1"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "tblPLCselect", s, , "sheet 2"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "tblPLCselect", s, , "sheet 3"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "tblPLCselect", s, , "sheet 4"

    ' 后台修改xlsx默认选中工作表
    Dim xlApp As Object, xlWb As Object
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False ' 后台运行无界面
    xlApp.DisplayAlerts = False ' 屏蔽不必要的弹窗提示
    Set xlWb = xlApp.Workbooks.Open(s)
    ' 仅选中第一个工作表
    xlWb.Sheets(1).Select
    xlWb.Save
    xlWb.Close
    xlApp.Quit
    ' 释放COM对象，避免残留Excel后台进程
    Set xlWb = Nothing
    Set xlApp = Nothing
End Function

额外优化提示 #

• 如果导出的工作表名称固定，可将xlWb.Sheets(1)替换为xlWb.Sheets("sheet 1")，避免工作表顺序变动导致选中错误
• 若批量导出多个xlsx文件，可复用同一个Excel.Application实例，无需每次导出都创建销毁，进一步提升批量导出效率

内容的提问来源于stack exchange，提问作者MrSiezen