ExcelVBAでAccessファイルを操作する(4)

§　ＥｘｃｅｌＶＢＡでＡｃｃｅｓｓデータを操作する（4）　〜　ＡＤＯ編　〜

　　　　　前回（３）で、ＡDＯを使用しての基本的な操作を行いました。で、今回はその応用編として、ExcelよりAccessへの

　　　　データ転送及びAccessよりExcelへのデータ転送を少しお話します。

　　◎　ＡＤＯ（ＡｃｔｉｖｅＸ　Ｄａｔａ　Ｏｂｊｅｃｔｓ）の応用（１）　<　Excel → Access　>

　ExcelよりAccessへのデータ転送は、DAOと同じくAddNewで行います。以下にそのソース例を記します。

（（詳細は、ADOのヘルプで確認下さい。））

　データベースの開閉及びテーブルの開閉を除けば、ほぼDAOの操作と同じです。

◎　ＡＤＯ（ＡｃｔｉｖｅＸ　Ｄａｔａ　Ｏｂｊｅｃｔｓ）の応用（２）　<　Access → Excel　 >

　　　Access よりExcel へのデータ転送（データのセルへの表示）は、CopyFromRecordsetメソッドを使って

　　行います。以下にそのソース例を記します。（（詳細は、ADOのヘルプで確認下さい。））　

　　　（５）の「テーブル情報の表示」の部分をDAO行うと、以下のようになります。

　　　（（上記の解説は、“ExcelVBAでAccessファイルを操作する（2）”に掲載しています。））

　　　と、まあ、ADOでは1行で済みます。すばらしい！！

　　　でぇ、“ExcelVBAでAccessファイルを操作する（2）”に習って、サンプルファイルを作ってみました。

　　　もちろん、VBAソースはプロテクトをしておりませんので、ご自由に変更して下さい。

　　　< Excel　→　Access >への部分。登録ボタンを押すとデータがAccessファイルに転送されます。

　　　　　　　　　　　　　　　　　　　　　　　↓

　　　< Access　→　Excel >への部分。“データの表示”ボタンを押すとAccessデータが表示されます。

　　　サンプルのダウンロードは、この下のAdoSamp．ｌｈｚをクリックして下さい。

　　　AdoSamp．ｌｈｚ

　　　< AdoSamp．ｌｈｚの注意点 >

　　　　圧縮ファイルAdoSamp．ｌｈｚには、以下の２っのファイルが入っています。

　　　　　　（１）　住所録．ｘｌｓ　　　　　　→　　ADOを操作するExcelファイル（本体）

　　　　　　（２）　SampDB．ｍｄｂ　　　 →　　ADOで操作されるAccessファイル（データベース）

　　　　（１）のところで、接続するデータベースのPATHを“Ｃ：￥My Documents￥SampDB．ｍｄｂ”としています。

　　　　ですから、（２）のファイルを上記PATHへコピーして下さい。それがイヤなら、設定PATHをあなたの好きな

　　　　通りに変更して下さい。

　　　　（注）尚、上記２ファイルはExcel２００２とAccess２００２で作成しております。それ以前のバージョンでの動作

　　　　　　　確認はしておりません。　

　　　　最後に、私自身としてはADOよりDAOの方が扱い易いと思っています。それは、私がExcelVBAを始めた頃の

　　　　ExcelにはADOという機能なかったからです。でも、ExcelでAccessファイルを操作するだけならDAOで十分で

　　　　す。ですが、操作対象をSQLSeverやOracleもとお考えなら、ADOを使って下さい。また、Webの方でVBScript

　　　　やASPをやってみたいと思っているなら、ADOは必須です。

　　　　まだまだ皆さんにお伝えしたいことは山ほどありますが、今回はこれにて終了させて頂きます。

　　　　<< 追伸 >>

　　　　「ＡＤＯ（ＡｃｔｉｖｅＸ　Ｄａｔａ　Ｏｂｊｅｃｔｓ）の応用（２）　<　Access → Excel　 >　」のソース例のところで、

　　　　（５）がWorksheets（“表示”）．Range(“A2”)．CopyFormRecordset　Rs　となっていますが、これは

　　　　CopyFromRecordsetの誤入力です。お詫びして訂正させて頂きます。

ExcelVBAでAccessデータを操作する（1）　〜　DAO基礎編　〜