Q&A
SASAHARA様
ご回答ありがとうございます。
>１点確認なのですが、上記コードで実行した場合、「EXCELファイルは作られるけれど、中身は空」という認識でお間違いないでしょうか？
→いえ、そこには私が作った空のエクセルを置いています。
そこを開いても、何も起きていない…という具合です。
そもそもここから間違いなのでしょうか？
よろしければ本来はどうなるのかお教えいただけないでしょうか。
よろしくお願いいたします。
アクセスで作ったクエリを、エクセルに出力したいです。
ボタンをフォームに作り**、クリックイベント時にクエリの内容がエクセルに一覧表示されるようにしたいのですが、**
下記のコードを実行しても、エクセルには何も出力されません。
下記のコード訂正もしくは他の案、やり方など有職者の皆様にお教えいただきたく存じます。
Private Sub コマンド7_Click() DoCmd.TransferSpreadsheet acExport, 8, "Q商品別売上一覧表", "C:\Users\xxx\Desktop\新しいフォルダー.xlsx", True, "" End Sub
回答3件
0
ベストアンサー
当方、Access2010の環境ですが、
DoCmd.TransferSpreadsheet acExport, 8, "M_TEST クエリ", "C:\Work\新しいフォルダー.xls", True, ""
でクエリの全内容が出力されました。
いまいちど
・クエリ自体は正しくデータ取得できているか？
⇒クエリを開いてデータが取得できているか確認
・出力フォルダーへのアクセス権はあるか？
⇒エクスプローラ等で出力フォルダを表示し、テキストファイルなどを作成してみる
・そもそもTransferSpreadsheetは実行されているか？
⇒TransferSpreadsheetの実行行にブレイクポイントを設定し、ボタンを押してみる
をご確認ください。
ちなみに引数の[8]はMicrosoft Excel 97 形式のため、拡張子「.xlsx」でもファイル出力はされますが「ファイルが壊れている」と言われ開けません。
上記ファイルも拡張子「.xls」に変更することでファイルを開くことができ、内容は正しく出力されていると思います。
ご参考までに。
投稿2016/04/26 04:18
総合スコア3013
0
Access環境がないため、確認できていないので的外れでしたらすみません。
ファイルがxlsx形式なので、初期トピックの時に「8」の箇所をacSpreadsheetTypeExcel12Xml または 10にしてはどうでしょうか？
あとすみません１点確認なのですが、上記コードで実行した場合、「EXCELファイルは作られるけれど、中身は空」という認識でお間違いないでしょうか？
投稿2016/04/26 03:24
総合スコア247
SASAHARA様
ようやく意味がわかり、解決しました。
私のわかりにくい質問に丁寧にお答えくださり本当にありがとうございました。
どうかまた、よろしくお願いいたします。
解決いたしまして何よりです。
たぶんもうご存知だとは思いますが、一応頂きましたご質問に回答させて頂いてから去りたいと思います。
>本来はどうなるのかお教えいただけないでしょうか。
指定したEXCELファイルがなければAccessが新規で作ってくれて、あれば上書きとなったと思います。
また、ちょっと追加で調べてみたので、今後の参考になりましたら幸いです。
xlsxで出力するためには、acSpreadsheetTypeExcel12Xml（または9）にしたら出力されたのではないかと思います（参考：[マイクロソフト コミュニティ](http://answers.microsoft.com/ja-jp/office/forum/office_2010-access/docmdtransferspreadsheet/f3be77f3-7124-4a56-aeb9-8f4c8ee6290e?auth=1)）
拡張子とかバージョンとか色々面倒ですからね・・・頑張ってください！
SASAHARA様
追加の参考資料、ありがとうございます！
がんばります＾＾
0
とりあえず「8」となっている箇所を、 https://msdn.microsoft.com/ja-jp/library/office/ff196017.aspx を参考に適切なものにしてみるといかがでしょうか。
投稿2016/04/26 02:08
総合スコア2037
kaz.Suenaga様
お世話になっております。
アドバイスどおり、サイトを参考にさせていただき「8」の部分を
acSpreadsheetTypeExcel12
と書き直してみましたが特に変化はありません。
ファイルの場所などが悪いのでしょうか…。
五月雨式の質問で申し訳ありませんが、もしも何かお気づきの点があればご教示いただけると幸いです。
ファイル名が「新しいフォルダー.xlsx」となっているので何か想定と異なるファイル名になっている可能性はありますね。
ファイル名を変えてみるとうまくいくような気もします（テストしてません、すみません）。
kaz.Suenaga様
たびたびのご返答に感謝いたします。
C:\Users\xxx\Desktop\新しいフォルダー
は、私が新しく作ったフォルダがおいてある場所です。
フォルダの中には、空のエクセルがあります。エクセルの名前は、「新規.xlsx」です。
ご指摘の、「新しいフォルダー.xlsx」ですが、
ネットなどで本件のやり方を検索すると、フォルダのパスを書くようにあったので
エクスプローラーのアドレスをコピーしました（C:\Users\xxx\Desktop\新しいフォルダー）。
しかしこれでは実行時エラーが出て、ネットのサンプルコードをコピペして末尾に「.xlsx」をつけるとエラーは出なくなりました。
しかし、結果は出ないといった具合です。
ご指摘から、何か私は根本的な間違いを犯しているような気がしますが、
ネットの資料ではこれが限界で、
ファイル名はどのように変えて記述すればよいかなど、どうか今一度答えをお教えいただけないでしょうか。
kaz.Suenaga様
ようやく意味がわかり、解決しました。
私のわかりにくい質問に丁寧にお答えくださり本当にありがとうございました。
どうかまた、よろしくお願いいたします。
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/04/26 04:27