5.2 エクセルやCSVを開く ADOを使ってエクセルファイルを開くときの方法です。ADOオブジェクトのOpenというメソッドで行います。開くときの指定方法が何種類かありますが、ODBCデータソースを使う場合と使わない場合の基本的な方法を紹介します。 それと、やはり開きっぱなしというのも良くないので、使い終わったファイルは閉じましょう。閉じる場合は、ADOオブジェクトのCloseというメソッドで行います。 なお、ADOはデータを扱うための機能なので、エクセル固有の機能（書式設定など）は使えません。 XLSファイルを使う場合 Openメソッドのパラメタに、使用するドライバ名(エクセルドライバ)とXLSファイルのフルパス、更新有無を指定する方法です。ODBCデータソースの定義は使いません。 更新有無の指定はReadOnlyで行います。読み込みだけ行えれば良いときはReadOnly=1を指定、更新も行いたいときはReadOnly=0を指定します。 例では、ADOを使いc:\happy\ADO_EXCEL.xlsというXLSファイルを更新モードでオープン(�@)しています。パラメタは、Driver=にエクセルのドライバ名、DBQ=にXLSファイルの場所(パス)、ReadOnly=に更新モード(0)を指定しました。また、それぞれを; 記号で区切ります。 閉じるとき(�A)のCloseは、パラメタはありません。 Sub prcAdoExcel()     'Access VBA Tips     '5.2 エクセルやCSVを開く／EXCELをADOで開く     Dim adoCON As New ADODB.Connection     '�@ADOを使いXLSを更新モードでオープンします。     adoCON.Open "Driver={Microsoft Excel Driver (*.xls)}; " & _                  "DBQ=c:\happy\ADO_EXCEL.xls;" & _                  "ReadOnly=0"     '�Aデータベースのクローズ     adoCON.Close End Sub 　※ドライバ名の空白は多くても少なくてもダメです。正確に指定しましょう。 CSVファイルを使う場合 ちなみに、CSVファイル（テキストファイル）を開くときはドライバ名に{Microsoft Text Driver (*.txt; *.csv)}を指定します。CSVファイルの場合はDBQ=の所へファイル名は指定せず、使いたいCSVファイル（テキストファイル）が入っているフォルダをフルパスで指定します。なお、更新有無の指定（ReadOnly）はワークブックを開くときと同じですが、CSVで可能なのは追加のみです。 次の例では、c:\happyというフォルダの中に入っているCSVファイル（テキストファイル）が、更新モードで扱えるようになります。 Sub prcAdoCSV()     'Access VBA Tips     '5.2 エクセルやCSVを開く／CSVをADOで開く     Dim adoCON As New ADODB.Connection     '�@ADOを使い更新モードでCSVファイルを扱う準備(オープン)をします     adoCON.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _                  "DBQ=c:\happy;" & _                  "ReadOnly=0"     '�Aデータベースのクローズ     adoCON.Close End Sub 　※ドライバ名の空白は多くても少なくてもダメです。正確に指定しましょう。 ODBCデータソースを使う場合 Openメソッドのパラメタに、ODBCデータソース名を指定する方法です。この方法では、ODBCデータソースへドライバ(Excelドライバやテキストドライバ)とXLSファイルの場所（CSVのときはファイルが保存してある場所）のフルパス、更新モードをあらかじめ定義しておく必要があります。 例では、ADOを使いODBCデータソースに定義してあるADXLSというデータソースをオープン(�@)しています。例えば、ADXLSにc:\happy\ADO_EXCEL.xlsというXLSファイルの情報が定義しておけば、このXLSファイルをオープンすることになります。 閉じるとき(�A)のCloseは、パラメタはありません。 Sub prcAdoExcelODBC()     'Access VBA Tips     '5.2 エクセルやCSVを開く／CSVをADOで開く     Dim adoCON As New ADODB.Connection     '�@ADOを使いADXLSというデータソースをオープンします。     '　更新モードはODBCの定義に従います。     adoCON.Open "DSN=ADXLS;"     '�Aデータベースのクローズ     adoCON.Close End Sub ちなみに、ODBCデータソースですが、登録する場所にユーザDSNとシステムDSNの2種類あります。何が違うか知りたい人は『4.1 ユーザDSNとシステムDSN』をどうぞ。

[PR]管理人が書いたVBAプログラミング本 ■最速攻略 Access VBA サンプル大全集 ■Access クエリ スパテク209 ■ここが知りたかった! Access VBA 500の技※ ◆最速攻略 Excel VBA サンプル大全集 ◆苦手なコードもこれで安心!Excel VBA超入門講座 ◆Excel VBAゲーム大作戦 はじめて編※ 実践編※ （アマゾンへジャンプします。※は共著作品） Access VBA Tips+α ■ADOデータアクセス編 3.ADOを使ってMDBへアクセス   3.1 ADOについて   3.2 DBのオープンとクローズ    ・ADODBコネクションオブジェクト変数   3.3 SQLの実行(レコードセットの作成)    ・SELECT文(SQL)の実行    ・Executeメソッド   3.4 レコードセットの操作／基本    ・レコードセット作成直後の状態    ・フィールド値の取得と設定   3.5 レコードセットの操作／順読み    ・レコードの順読みと終了の検出    　MoveNextメソッド、EOFプロパティ   3.6 SQLの実行(更新、追加、削除等)    ・INSERT、DELETE、UPDATEなどの実行    ・トランザクション関連    　BeginTrans、CommitTrans、RollbackTrans 4.ADOを使って他のデータベースへアクセス   4.1 ユーザDSNとシステムDSN    ・ODBCを使う場合の事前設定   4.2 AccessのDB(MDB)を開く・閉じる    ・他のMDBにあるテーブルを使うとき   4.3 ORACLEのデータベースを開く・閉じる   4.4 SQL Serverのデータベースを開く・閉じる   4.5 MySQLのデータベースを開く・閉じる   4.6 PostgreSQLのデータベースを開く・閉じる 5.ADOを使ってExcelやCSVへアクセス ※cafe de VBSのネタと同じです   5.1 エクセルやCSVをDB感覚で！[DL]    ・SQL内でシート名を指定する方法    ・SQL内でCSVファイル名を指定する方法   5.2 エクセルやCSVを開く    ・XLSファイルを直接指定する場合    ・ODBCデータソースを使う場合    ・読み込みモードと更新モード   5.3 ワークブックやCSVからデータを読み込む    ・SELECTの実行と実行結果の取得    ・XLSのときとCSVのときの違い   5.4 ワークブックやCSVへデータを追加、更新    ・ブックは追加・更新が可能、CSVは追加が可能    ・トランザクションが使えない   5.5 テーブルのデータをワークブックへ出力 6.エクセルマクロでデータベースを使う方法   6.1 参照設定を行ってADOを使う方法   6.2 CreateObjectを使う方法 ※[DL]にはサンプルファイルがあります ■DAOデータアクセス編 ■ADOデータアクセス編 ■クエリー(SQL)編 ■フォーム・サブフォーム編 ■コントロール編 ■メニューバー・ツールバー編 ■マクロ（DoCmd）編 ■レポート編 ■応用テク・その他の機能編 ■プログラミングサンプル編 ■番外編1.HTTPやFTPを使うには Happy! Happy! Islandその他のコンテンツ ■VBAプログラミング、その他 　Access VBAプログラミング＆Tips 　Excel VBA(エクセルマクロ)プログラミング＆Tips 　VBScript＆JScriptプログラミング＆Tips for WSH 　プログラミング基礎・入門 　HTMLの書き方 ■ダウンロードコーナー 　AccessとExcelのフリーソフト ■コミュニティー 　VBA質問掲示板 ■その他 　オレの話を聞けぇ♪（仮称／コラム） 　管理人プロフィール 　管理人へメール ■別館(海外向けサイト) 　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL! VBAプログラミング＆Tips集の "Happy! Happy! Island"トップページへ [リンク]IT関連情報サイトなど gihyo.jp 技術評論社提供のIT関連コンテンツサイト [リンク]一番クリックした国が優勝 ClickClickClick.com クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。 [PR]証券会社・投資運用関連サイト カブドットコム証券 逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！ マネックス証券 オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！ Ｅ＊トレード証券 オンライン専業証券�ｂPの口座数！業界最低水準の手数料体系と充実のサービスラインナップ！ 楽天証券のマーケットスピード ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！ オンライン証券徹底比較 価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！

Copyright(C) 1999-2006 結城圭介。 All rights reserved