こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

AccessからExcelへエクスポートするVBA

いつもお世話になっております。

AccessのクエリからデータをExcelにエクスポートします。
形式はMicrosoft Excel97-2003です。
フォーム"F_全データ"にボタンを付けて、クリックするとファイル名を自分で付けて保存する。というVBAを作成したいです。

1つ目のVBAは

DoCmd.OutputTo acForm, "F6_全データ", "MicrosoftExcelBiff8(*.xls)", "", False, "", 0

これだと、ファイルの種類が、Microsoft Excel5-7になってしまい困ります。
この形式になってしまうと、Excelデータを開くと、文字数が多いところが保存されていません。これだと困ります。

2つ目が

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "F_全データ", "○○○.xls"

こちらですと、ファイルの種類は97-2003になりまして、問題はないのですが、ファイル名は自分で指定したいのです。

ご指導よろしくお願いします。

投稿日時 - 2009-12-09 17:02:51

QNo.5509985

困ってます

質問者が選んだベストアンサー

単純な方法だと

mFileName = InputBox("ファイル名を入力してください")

にして

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "F_全データ",mFileName

にしておけば良いと思います。
後は「ファイルの保存ダイアログ」を開いてファイル名を取得するという方法も
取れますね。

Access VBA:
ファイルを開く、名前を付けて保存ダイアログボックスを表示するサンプル
http://billyboy.blog81.fc2.com/blog-entry-53.html

投稿日時 - 2009-12-09 17:44:27

お礼

大変参考になりました。ありがとうございます。解決できました!

投稿日時 - 2009-12-10 13:48:46

ANo.1

このQ&Aは役に立ちましたか?

5人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

DoCmd.OutputTo acOutputForm, "F6_全データ", acSpreadsheetTypeExcel9

参考URL:http://accessblog.net/2008/10/export-to-excel-there-are-too-many-rows.html

投稿日時 - 2009-12-09 21:11:32

お礼

大変参考になりました。ありがとうございます。解決できました!

投稿日時 - 2009-12-10 13:49:04

あなたにオススメの質問