2009/04/01
【アクセス活用法-Vol.084】エクセルへのダウンロード（その２）
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
Vol.084
これならわかるマイクロソフトアクセス活用法
-->エクセルへのダウンロード（その２）
発行者：高内 章治 2009/04/01
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
┏ 今日の内容 ━━━━━━━━━━━━━━━━━━━━━━━━━
┃
┃ 【01 - ご挨拶 】
┃ 【02 - トピックス 】エクセルへのダウンロード（その２）
┃ 【03 - 編集後記 】
┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
─────────────────────────────────
【01 - ご挨拶 】
─────────────────────────────────
こんにちは、高内（こうない）です。
今回は、
「エクセルへのダウンロード（その２）」
についてお話したいと思います。
─────────────────────────────────
【02 - トピックス】:エクセルへのダウンロード（その２）
─────────────────────────────────
前回、アクセスデータをエクセルへダウンロードするやり方を
説明しました。
VBAを使うと簡単にエクセルへダウンロードできます。
今回は、少し難しいやり方です。
でも、非常に便利です。
VBAを使ってダウンロードする場合、
DoCmd.OutputTo acQuery, "クエリ名", "MicrosoftExcel(*.xls)", "C:\出力ファイル名.xls", False, "", 0
などを使うと、簡単にエクセルデータを、作成することが
できます。
これは、これで便利なのですが、エクセルをエクスポートした後に
ファイルをダブルクリックして開く必要があります。
ボタンをクリックしたら、直接、エクセルが開いてデータを表示
させたいと思いますね。
そのやり方を説明します。
これは、とても便利です。
１．まずアクセスの中でエクセルを動かす必要があります。
そのために、まず、アクセスの中でエクセルが動く環境を
作る必要があります。
（１）アクセスのパソコンにはエクセルがインストールされて
いる必要があります。前提条件です。
（２）VBA(Visual Basic Editor)の画面を表示します。
（３）ツール/参照設定をクリックします。
（４）ここに「Microsoft Excel xx.x Object Library」に
チェックします。
xx.xがエクセルのバージョンです。
下の場所に、エクセルのプログラムの場所が表示されます。
（５）「OK」をクリックします。
２．これで、アクセスの中でエクセルが使用できる環境が
できました。
次に、エクセルを開いて、その中にデータを表示させます。
表示するデータはSQL文で作成した方がいいですね。
（１）ボタンのクリック時に以下のVBAを使用します。
それぞれに説明を入れています。
------------------------------------------
まずエクセルのプログラム、ワークブック、ワークシートを
定義します。
Dim XLS As Excel.Application
Dim WKB As Excel.Workbook
Dim WKS As Excel.Worksheet
次に、ADOを使ってSQL文を実行します。
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
データの接続です。
Set cn = CurrentProject.Connection
Set cmd.ActiveConnection = cn
エクセルで表示したいデータをSQL文で作成
します。
cmd.CommandText = "SELECT XXXXX FROM XXXX"
実行します。
これで、rsにデータが格納されます。
Set rs = cmd.Execute
エクセルを立ち上げてワークブック、ワークシートを
表示します。
Set XLS = CreateObject("Excel.Application")
Set WKB = XLS.Workbooks.Add
Set WKS = WKB.Worksheets("Sheet1")
セルのa2からデータを表示します。
XLS.ScreenUpdating = False
WKS.Range("a2").CopyFromRecordset rs
セルa1から項目の名前を表示します。
SQL文のデータに対応した項目名を作成します。
'---項目のタイトルを入れる
With XLS
.ActiveSheet.Name = "Sheet1"
.Cells(1, 1) = "項目名１"
.Cells(1, 2) = "項目名２"
.Cells(1, 3) = "項目名３"
End With
エクセルデータを表示します。
XLS.ScreenUpdating = True
XLS.Visible = True
エクセルのデータを空にします。
Set WKS = Nothing
Set WKB = Nothing
Set XLS = Nothing
ADOのデータを開放します。閉じます。
rs.CLOSE: Set rs = Nothing
cn.CLOSE: Set cn = Nothing
---------------------------------------
ここまでです。
コピーするときは日本語は、はずしてください。
注意すべき点は、出来ればアクセスを使うパソコンの
エクセルバージョンは、統一していた方がいいですね。
例えば、
アクセスのプログラムで、エクセルのバージョンが
エクセル2003の時は、他のパソコンで使用する場合もエクセルの
バージョンも2003の方がいいと思います。
トライしてみてください。
かなり、便利ですよ。
参考にしてください。
─────────────────────────────────
【03 - 編集後記 】
─────────────────────────────────
先週は、WBCの試合一色でした。
決勝戦の、日本と韓国戦の最後の所をみました。
最後の最後でイチローが、ヒットを打ちましたね。
あんなドラマを見せられると、野球って面白いと思いますね。
久々に興奮しました。
定額給付金も貰えますし、高速道路も安くなりますので
日本もこれから元気になると思います。
◆ホームページを少しづつ頑張って、まとめています。
まだ十分まとまっていませんが、参考にしてください。
http://www.sk-access.com/index.html
◆「アクセスでシステムを早く開発したい方」、
「アクセスでシステム開発をあきらめた方」のための
アクセスを使って１週間でシステム構築する究極の方法とは？
「在庫管理システムをアクセスで作ってみよう」教材は
http://www.sk-access.com/Kyozai/Zaiko1.html
◆ロット別の在庫管理ができる格安ソフトです。
マイクロソフトアクセスで動きます。是非、ご覧ください。
http://www.sk-access.com/Soft/Kzaiko_Desc.html
ロット別に在庫管理ができるソフトって少ないのですよ。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
●ご意見・ご感想・ご質問
『メルマガでもっとお役にたてる情報を配信したいと思いますので、
日ごろから疑問に思っていることを教えてください。宛先はこちらへ』
→ kohnai@vega.ocn.ne.jp (高内：こうない）
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
【発行人】： 高内 章治（こうない しょうじ）
【ホームページ】： http://www.sk-access.com/
【メールアドレス】： kohnai@vega.ocn.ne.jp
【購読登録・解除】： http://www.mag2.com/m/0000222659.html
◎「これならわかるマイクロソフトアクセス活用法」 の
バックナンバー・配信停止はこちら
http://archive.mag2.com/0000222659/index.html
◎以下のホームページからでもバックナンバーを見ることができます。
http://www.sk-access.com/MailMaga/Mail_List1.html
登録・解除につきましてはご自身でお願いいたします。
※このメールマガジンの転送はOKですが、掲載された記事の内容を
許可無く転載することをを禁止させて頂きます。
必ず事前にご相談ください。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
━━ PR ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
◎エスケーコンピュータワールド
http://www.sk-comp.com/
http://www.sk-seisan.com/
http://www.sk-zaiko.com/
http://www.sk-nenkin.com/
http://www.sk-haken.net/
http://www.sk-shikaku.com/
http://www.sk-erp.com/
http://access.sk-comp.com/
http://www.sk-cust.com/
http://it.sk-shikaku.com/
http://www.sk-goods.com/
http://bust.sk-goods.com/
http://sk-entame.seesaa.net/
http://sknandemo.blog.shinobi.jp/
http://skhitori.jugem.jp/
http://blog.oricon.co.jp/sknyusu/
http://skkininaru.meblog.biz/
http://sk-entame.cocolog-nifty.com/
http://blog.goo.ne.jp/kohnai
http://skentame.bg.cat-v.ne.jp/
http://sk-kininaru.cscblog.jp/
http://ks-seken.seesaa.net/
http://sk-seisan.jugem.jp/
http://ks-uwasa.meblog.biz/
http://ks-geinou.bg.cat-v.ne.jp/
http://yaplog.jp/skkimama/
http://sktamani.sublimeblog.net/
http://skkimama.kitaguni.tv/
http://blog.livedoor.jp/skkininaru/
http://skeveryday.22.dtiblog.com/
http://fumin.sk-goods.com/
