[三流君] －－＞ [ＶＢＡで楽しく] －－＞ [バックナンバー一覧]
－－＞ No.058 Access クエリーを Excel既存シートへエクスポート

Access クエリーを Excel既存シートへエクスポート

メルマガ発行内容

＜Access クエリーを Excel既存シートへ エクスポート＞
こんにちは、

三流プログラマーＫｅｎ３です。

今回は、
Access クエリーを Excel既存シートへ エクスポート
を軽く書きたいと思います。

/*
 * １．今回のキッカケ
*/

BBS に以下の投稿がありました。
( http://www.ken3.org/cgi-bin/bbs/vba/wforum.cgi?mode=allread&no=66&page=0 )

>投稿時間：2003/03/18(Tue) 09:11
>
>おなまえ：TMNOA
>タイトル：アクセスからエクセルへ
>
>始めまして、ＴＭＮＯＡです。
>いつも読ませて頂いております。
>
>質問なのですが、アクセスのクエリーからエクセルへのエクスポートの際、
>概存ブック及び概存シートへのエクスポートは可能なのでしょうか？
>現在の所、概存ブックの新規シートへのエクスポートはできるのですが・・・。
>
>お忙しいとは思いますが、よろしくお願い致します。
>（他のサイトは説明が難しく困っているので・・・。）
>
>では、失礼します。
--------------------------------------------------------

と質問メールが来ました。
私の説明もわかりにくいと評判なんだけど、、、少し調べてみますか。

/*
 * ２．簡単にできないか、確認してみる。
*/

昔の自分のメルマガサンプルを見てみると、
＜Access97からExcel形式へExport時に書式設定を行いたい＞
http://www.ken3.org/backno/hosoku/e025/index.html
で、
DoCmd.TransferSpreadsheet acExport, 5, "管理MST", "C:\TEST.XLS", True, ""

＜書式付きエクスポート DoCmd.OutputToで、できます＞
http://www.ken3.org/backno/hosoku/ETC_026.html
で、
DoCmd.OutputTo acOutputTable, "T_管理MST", acFormatXLS, "C:\TEST.xls", True

を使ってました。

簡単なのは、DoCmd.XXXXが使えるといいんだけどなぁ、
クエリーの出力を試してみました。(Access97)

spreadsheettype	を8 Excel97に変えてと
0  acSpreadsheetTypeExcel3 (既定値)
6  acSpreadsheetTypeExcel4
5  acSpreadsheetTypeExcel5
5  acSpreadsheetTypeExcel7
8  acSpreadsheetTypeExcel97

Sub コマンド0_Click()
    DoCmd.TransferSpreadsheet acExport, 8, "Q_VBADATA", "D:\058.XLS", True, ""
    MsgBox "出力終了"
End Sub

まず、１回目ファイルがない新規の状態で実行。
シートが作成されます。（あたりまえか（笑））


さてと、行挿入・列挿入してタイトルとか入れときますか。
ついでにデータ消してみてと。見出しに色付けて。


シートも挿入してしまえ。。。とブックの形を変えて保存します。

ブックを閉じたことを確認後、再度ボタンを押して実行します。
ブックを開いてみるとあら不思議、
データが入っているよ。

DoCmd.TransferSpreadsheet
を使うと出きるみたいですね。

/*
 * ３．データエリアの名前付けを利用しているのでは？と勝手に予想するが、、、
*/

勝手に一人で盛り上がってないで、
何でか？理由を説明しろ？（想像しろって？）

データの転送先のセルに付けた名前をみると、
Q_VBADATAってのができてます。

えっ、どこどこ？

メニューの挿入・名前・定義を選択します。


そうすると、範囲が書いてあります。
既存のブックで範囲が設定されていれば、そこに保存するみたいです。


とすると、今在るブックにデータを挿入したかったら、
あたらしくクエリー名と同じ名前の定義を追加すればいいの？

Q_ASPDATAって名前で範囲を追加してみます。
メニューの挿入・名前・定義を選択します。
名前と範囲を入れて追加ボタンを押します。
で保存してと。



Sub コマンド1_Click()
    DoCmd.TransferSpreadsheet acExport, 8, "Q_ASPDATA", "D:\058.XLS", True, ""
    MsgBox "出力終了"
End Sub

クエリー名を変えて、実行。
よし今日もお疲れさん。

エラーだよ三流君、、、えっ、なんで？ほんとだぁ。。。


それじゃダメなのかなぁ、、
シートを消して、再実行。
すると、ブック内にQ_ASPDATAのシートが作成された。

同様にタイトルなどの飾りを付けて、
確認用にデータを少し消してから保存。

再度実行する。
あらら、ダメかぁ。

名前の定義でそこにセットされるなら、
既存シートのセットも簡単かなぁと思ったのですが、あと一歩です。

１つのブックに一つのクエリーはエラー無く名前の範囲に出力されるので、
一度ダミーでシート作成、その後タイトルやワクを作成して使ってみてください。
＊複数クエリーを既存シートは工夫が必要みたいです。
　（もしかしたら私の操作ミスかも）

一度シート作成後、他のシートをシートのコピーで持ってくるとか。


/*
 * ４．おわりの挨拶
*/

今回も途中までは出来たのになぁ、、、、
何か単純なミスがありそうだけど。

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

----------------------------------
関連項目(ただのバックナンバー紹介)
----------------------------------
昔のサンプル、
＜Access97からExcel形式へExport時に書式設定を行いたい＞
http://www.ken3.org/backno/hosoku/e025/index.html

時間があったら、あわせてみて下さい。

フィードバック

VBA系の→[掲示板]←を覗く、質問を書き込む

評価・感想

ページフッター(リンクや広告など)

[三流君(TOP ken3.org へ戻る)]
-- [VBA系TOPへ]
---- [VBA系バックナンバー目次へ移動]
------ [VBAでIEを操作 CreateObject("InternetExplorer.application")]・・・実は当店一番人気、VBAでIEを操作するサンプルです
------ [VBAでOutlookの操作 CreateObject("Outlook.Application")]・・・Outlookを使い、メール関係の処理です
------ [Access から Excel 連携 CreateObject("Excel.Application")]・・・人気のAccessからExcelへデータ書き出しなどです
------ [AccessのUserForm/サブフォームを操作]・・・アクセスでフォームを使ったサンプルです
------ [Accessのレポートを操作]・・・レポートを操作してみました
------ [Access クエリー関係やその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です
------ [Excel UserForm(ユーザーフォーム)を操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
------ [ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
------ [Excel関係関数、その他]・・・その他Excel関係です
------ [VBAでテキストファイル(*.txt,*.html,*.csv)の操作]・・・テキストファイルを使ったサンプルです
------ [VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます

広告
-- [通販系の売れ筋広告へ] ←主に楽天やAmazonのランキングです
blog
-- [三流君の作業日記] ← 日々の作業を少々
-- [通販あしあと] ← 通販ページの足跡を一覧で羅列

情報を探す

情報を探すならGoogleかな？

↓Web全体、サポート情報(support.microsoft.com)や三流君VBA(ken3.org)から検索する

あとは、項目別にMSでお勉強かな？
◆ マイクロソフトサイトの歩き方
◇ How-To インデックス
◇ FAQ インデックス
◇ スキルレベル別おすすめコンテンツ
◇ テクノロジマップ
◇ テーマ別技術資料一覧

書籍の購入

Webだけじゃさすがに勉強しきれないので、プログラミング関係の書籍も読んでみては？？

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。
お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック

下記、私が設定したキーワードですが、こんな感じで資料や書籍を探ってみては？
[VBA全体を把握する] -- やはり全体をさらっと見たいですよね。
[SQL関連でＤＢ力UP] -- システムはデータベース設計が重要
[ADO接続を探る] -- VBAなのでADO接続を押さえておく
[Windows APIを探る] -- さらにAPIになて知ってれば強力だ！
[.NETを探る] -- と言っても時代は.NETに流れてるし
プログラミング以外でも知りたいことは多くって、
[人間関係] -- で、客先・上司、まわりに気を使い。
[プログラマーの自己啓発] -- プログラムだけじゃなくいろいろと向上したいよ
[コーチング・育成] -- 先輩になったら後輩(部下)の面倒をみてね。
そんなこんなでプログラマーっていろいろと大変なんだってば・・・

Access クエリーを Excel既存シートへ エクスポート

メルマガ発行内容