Microsoft Access 掲示板

Microsoft Access 掲示板

見積書～3つのクエリのIDでフィルターを掛けて、エクセルのブックの3シートへそれぞれエクスポートをする / 11
11
hatena 2023/05/18 (木) 17:24:07

このように想定通りに動作しない場合、原因を探るには、なるべく単純化したコードで一つずつ、動作を確認していき、とこで異常が発生するかを特定するというようなデバッグ作業をするようにします。
その場合、エラートラップのコードはコメントアウトしておきます。そうしないと、エラーが出てもどこででているか特定できないので。

とりあえず下記のコードを実行して、見積書.xlsxファイルを開いて、Sheet1, Sheet2, Sheet3 にそれぞれのクエリのデータが出力されているか、確認してください。

Function エクスポートテスト()
    DoCmd.TransferSpreadsheet acExport, 10, "Q_見積明細1_P", "正しいフルパス\見積書.xlsx", True, "Sheet1"
    DoCmd.TransferSpreadsheet acExport, 10, "Q_明細2_R", "正しいフルパス\見積書.xlsx", True, "Sheet2"
    DoCmd.TransferSpreadsheet acExport, 10, "Q_明細3_R", "正しいフルパス\\見積書.xlsx", True, "Sheet3"
End Function
通報 ...