excel - 複数の MS Access 2010 クエリを 1 つの "Form Load" または "Form Open" から MS Excel 2010 にエクスポートする際に問題が発生する

Question

これをいくつかの異なる方法で試しましたが、最初の方法の後で停止し続けます。私は他のフォーム、フォーム1を開いて実行するフォームを追加しようとしましたが、フォーム1は1つのエクスポートなどを実行するフォーム2を開きますが、うまくいきませんでした。一時停止などを試みdo while not isloaded(next form)ましたが、うまくいきませんでした。

Option Compare Database
Private Sub Form_Load()
On Error GoTo Err_Form_Load

'I tried 9
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
"AllActiveABC", _
"Y:\Projects\Protocol Folders\AllActiveABC.xls", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
"All-ActiveABC", _
"Y:\Projects\Protocol Folders\AllFilteredABC.xls", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
"All-ActiveABC", _
"Y:\Projects\Protocol Folders\AllFilteredABC.xls", True

'I tried 12 and 12XML
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12xlm, _
"AllActiveABC", _
"Y:\Projects\Protocol Folders\AllActiveABC.xls", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12xlm, _
"AllFilteredABC", _
"Y:\Projects\Protocol Folders\AllFilteredABC.xls", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12xlm, _
"AllActiveABC", _
"Y:\Projects\Protocol Folders\AllActiveABC.xls", True

'I tried it as a function
'see function below the three exports

Call exportData("All-FilteredABC", _
"Y:\Projects\Folders\All-FilteredABC.xlsx")
Call exportData("AllActiveABC", _
"Y:\Projects\Folders\AllActiveABC.xlsx")
Call exportData("AllABC", _
"Y:\Projects\Folders\AllABC.xlsx")


Function exportData(queryName As String, strSaveFileName As String)

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, queryName, strSaveFileName, True 

End Function

運がない。私が試したすべてのことと、既存のワークブックに新しい空白のシートを作成しますが、最後に _1 を作成し、1 回のエクスポート後に停止し、空白以外のすべてをエクスポートするなど、さまざまな結果に非常に混乱しています。 .

Answer 1

各 DoCmd の後にコマンド DoEvents を入力してみてください。すべてが追いつくように

すなわち

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _ "AllActiveABC", _ "Y:\Projects\Protocol Folders\AllActiveABC.xls", True

DoEvents