通过Access with VBA创建多个Excel工作表不再起作用

如何解决通过Access with VBA创建多个Excel工作表不再起作用

我有一个Access VBA循环，该循环使用TransferSpreadsheet命令创建具有多个工作表的Excel电子表格。这已经工作了几年，但现在我只看到一个工作表。似乎是在创建工作表，但是覆盖了前一个而不是添加另一个。没有错误，代码可以正常运行，但是在格式化完成后，当代码激活电子表格时，只会创建最后一张工作表。有任何想法吗？这是Microsoft更新导致的意外结果吗？

有一个循环，每次运行可变次数创建工作表：

r.MoveFirst
ok = True
do while ok
   tempMth = r!mth
   tempyr = r!yr
   strsql = "SELECT * FROM BkgsSummarySS WHERE mth = '" & tempMth & "' AND yr = '" & tempyr & "'"
   Set qdf = db.QueryDefs(strTemp)
   qdf.sql = strsql
   qdf.Close
   Set qdf = nothing

   DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel8,strTemp,SpLocation,True,strTemp
   DoCmd.Runsql ("UPDATE bkgsSummarySS SET [party date] = #01/01/2000# WHERE mth = '" & tempMth & "' AND yr = '" & tempyr & "'")
   Set r = db.OpenRecordset("SELECT * FROM bkgsSummarySS ORDER BY [Party Date] DESC")
   r.MoveFirst
   If r![party date] = #1/1/2000# Then ok = False
Loop
r.Close
db.QueryDefs.Delete strTemp
Set objApp = CreateObject("Excel.Application")
objApp.UserControl = True
objApp.workbooks.Open (SpLocation)

然后有很多格式行，所有这些行仍然有效，随后是：
objApp.Visible = True

我很确定是Excel的问题所在。我如何告诉它每次执行TransferSpreadsheet命令时都添加工作表-它直到几周前才这样做？