Q&A
ありがとうございます。クエリのSQLに「＊」を使っています、、こちらカラム指定に変更して再度試してみます！
実現したいこと
・Accessのクエリで抽出したデータをエクセルファイルに出力したい。
困っていること
・Access VBAでクエリからデータをエクセルファイルに出力するマクロを書いたがエラーが出て困っている。エラーが出る箇所はDoCmd.TransferSpreadsheet
エラーメッセージ：実行時エラー3191 複数回フィールドを定義することはできません。
該当のソースコード
vba
1Private Sub excel() 2Dim str_file_name As String 3 4str_file_name "D:\Users\○○○○\Desktop\出力結果.xlsx" 5 6DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, Q_クエリ名, str_file_name, True 7 8MsgBod "完了" 9End Sub 10
Accessのバージョンは2016
ご教授頂けますと幸いです。
回答2件
0
実行時エラー3191 複数回フィールドを定義することはできません。
フィールド名に予約語が含まれているとそのようなメッセージが出ることがあるようです。
■ Microsoft Accessでフィールド名に予約語を使うと 複数回フィールドを定義することはできません エラーが発生する時がある または演算子がありません
https://qiita.com/Q11Q/items/213faa9e6c8e84daf7a9
■ Access 2002 以降のバージョンの Access の予約語の一覧
https://learn.microsoft.com/ja-jp/office/troubleshoot/access/reserved-words
投稿2023/07/24 12:18
総合スコア4693
0
ベストアンサー
Q_クエリ名 のSQL文に 「＊」を使ってたりしませんか？
下記URLの通り、「＊」を使わず一つずつカラムを指定しても同じエラーになるでしょうか？
http://makoto-watanabe.main.jp/access/acrefDataFormatsMicrosoftAccessCanExport.htm
投稿2023/07/26 07:44
総合スコア984
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2023/07/25 06:11
2023/07/25 11:18
2023/07/29 07:14