2009/07/15
【アクセス活用法-Vol.091】エクセルへのダウンロード（既存のシートにダウンロード）
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
Vol.091
これならわかるマイクロソフトアクセス活用法
-->エクセルへのダウンロード（既存のシートにダウンロード）
発行者：高内 章治 2009/07/15
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
┏ 今日の内容 ━━━━━━━━━━━━━━━━━━━━━━━━━
┃
┃ 【01 - ご挨拶 】
┃ 【02 - トピックス 】エクセルへのダウンロード
┃ 【03 - 編集後記 】（既存のシートにダウンロード）
┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
─────────────────────────────────
【01 - ご挨拶 】
─────────────────────────────────
こんにちは、高内（こうない）です。
今回は、
「エクセルへのダウンロード（既存のシートにダウンロード）」
についてお話したいと思います。
─────────────────────────────────
【02 - トピックス】:エクセルへのダウンロード（既存のシートにダウンロード）
─────────────────────────────────
現在、「在庫管理システムをアクセスで作ってみよう」という
教材を販売しています。
購入されたお客様に対しては、教材の質問はもちろんのこと、
それ以外に、お客様が作成された、アクセスのプログラムについての
質問にもお答えしています。
その質問の中から今回は、お話したいと思います。
フォムーで表示されたデータをエクセルへダウンロードしたい
という要求って多いですよね。
何回か前にも、エクセルのダウンロードについては、お話しました。
前回のエクセルのダウンロードは、ボタンをクリックすると
エクセルが立ち上がって、新しいシートにデータをダウンロード
するやり方です。
今回は、エクセルの既存のシートにダウンロードするやり方です。
１．まずアクセスの中で、エクセルを動かしたいので、エクセルを登録します。
・ツール/マクロ/Visual Basic EditorでVBAの画面を出します。
・ツール/参照設定で
Microsoft Excel XX.X Object Library
XX.Xは、エクセルのバージョンによって異なりますので、
インストールされているエクセルにチェックをします。
・OKをクリックします。
２．データを表示しているフォームの「ボタン」の「クリック時」に
以下のVBAを書きます。
処理のステップは
・エクセルを開いて
・シートの以前のデータを削除します。（今回は、カラムを削除しています。）
・クエリのデータをエクセルへダウンロードします。
・タイトルを入力します。
・全部を閉じます。
それぞれのVBAの間に処理の内容を入れています。
---------------------------------------
Private Sub ボタン1_Click()
'-----EXCEL の定義
Dim XLS As Excel.Application
Dim WKB As Excel.Workbook
Dim WKS As Excel.Worksheet
'----- クエリのデータをADOで取り出す
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
'----- クエリ名をセット
cmd.CommandText = "クエリ名"
'----- クエリを動かしてデータをrsにいれる
Set rs = cmd.Execute
Set XLS = CreateObject("Excel.Application")
Set WKB = XLS.Workbooks.Open("C:\エクセルファイル名.xls")
Set WKS = WKB.Worksheets("シート名")
XLS.ScreenUpdating = False
'-----１から２０００行まで削除
WKS.Rows("1:2000").Delete
'rsのデータをエクセルのa2から書き出す
WKS.Range("a2").CopyFromRecordset rs
'---項目のタイトルを入れる
With WKS
.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
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
-----------------------------------------------------------
参考にしてください。
─────────────────────────────────
【03 - 編集後記 】
─────────────────────────────────
マイクロソフトがオフィスの次期製品について、簡易版を
インターネットを経由し無償提供する計画を発表しました。
簡易版のエクセルやワードは無料で使用することができるように
なるようです。
オフィス２０１０です。
オフィスの全機能を使用する場合は、２万円程度を支払うか、
パッケージソフトを３～４万円で新規に購入する必要が
あります。
簡単な、ワードやエクセルを使用する人は、オフィスを
購入する必要がなくなります。
アクセスについては、何も言っていませんので、以前のように
購入するのでしょうね。
マイクロソフトの売上の中で、オフィスの売上が、かなりの
割合を占めていますので、これからも利益を上げ続けることが
できるのか大きな賭けですね。
◆ホームページを少しづつ頑張って、まとめています。
まだ十分まとまっていませんが、参考にしてください。
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://www.sk-goods2.com/
http://bust.sk-goods.com/
http://ks-kininaru.seesaa.net/
http://skentame.jugem.jp/
http://skyononaka.blog.shinobi.jp/
http://blog.oricon.co.jp/skkininaru/
http://skkimagure.meblog.biz/
http://sk-wadai.cocolog-nifty.com/blog/
http://sknews.bg.cat-v.ne.jp/
http://blog.goo.ne.jp/skwadai
http://yasu-seken.seesaa.net/
http://ks-kininaru.jugem.jp/
http://ks-seken.meblog.biz/
http://sk-yappari.bg.cat-v.ne.jp/
http://yaplog.jp/skkininaru/
http://skseken.sublimeblog.net/
http://skkininaru.kitaguni.tv/
http://blog.livedoor.jp/skyononaka/
http://skkininaru.dtiblog.com/
http://fumin.sk-goods.com/
http://www.sk-syohin.com/
http://www.sk-syohin1.com/
http://uk.sk-goods.com/
