如何修复从 Access 保存 xlsx 文件时的“错误 1004”？

问：

我有一个简单的脚本，但不知道为什么它不起作用。

每次运行它时，我都会收到运行时错误 1004，“无法访问文件”。突破：

wb.SaveAs Filename:=strFilePath, FileFormat:=xlWorkbookDefault

我正在尝试覆盖原始文件，因为我需要先更正它的内部格式，然后才能将其导入 Access。尝试导入的 *.xlsx 文件缺少 docProp 文件夹。可悲的是，我无法控制生成它们的系统，所以我无法解决这个问题。

完整脚本：

Sub ReformatXLSX(strFilePath)

  Dim appExcel As Excel.Application
  Dim wb As Excel.Workbook

  Set appExcel = New Excel.Application
  Set wb = appExcel.Workbooks.Open(strFilePath)

  wb.SaveAs Filename:=strFilePath, FileFormat:=xlWorkbookDefault
  wb.Close
  Set appExcel = Nothing
End Sub

或者，如果有人知道如何在没有 TransferSpreadsheet 的情况下导入文件，我很想尝试一下。