＜AccessにExcelのシートをインポートする＞
どうも、三流プログラマーのＫｅｎ３です。 最近、質問もらうけど、 なかなか、解答できてない三流プログラマーのＫｅｎ３です。 ※私のレベルで手に余る高度な質問が多くて。/* * １. 今回のキッカケ */
前回、軽く郵便番号の集計システムの設計をしました。 今回は、データのインポート方法を探ってみたいと思います。 入力データ／入力ファイルフォーマット ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 集計データはExcel2000のシートに保存されています。 A列 B列 C列 D列 郵便番号 氏名 住所 電話番号 700-0941 あべ＊＊＊ 岡山県岡山市・・・ 090-9999-9999 ・ ・ Excelのシートをインポートする方法を探ってみます。/* * ２．シートをインポートするマクロを作成する */
AccessでVBAで組まなくても、 繰り返し行う操作をマクロ登録する機能があります。 マクロの新規作成を選択して、 アクションを探ると、 おっ、ワークシート変換なんてのがありますね。 これを使ってみるか。
↑マクロのアクションを選択したイメージ
ワークシートの変換を選択すると、
イロイロとパラメータを入れろと画面が出てくる。
変換の種類は、インポートだろ、
次は、ワークシートの種類か、Microsoft Excel 8-10と規定値のまま使用、
テーブル名はMOTO_DATA、
ファイル名は、e:\work\data.xlsとデータの位置をセット、
フィールド名は、はいにして先頭行をフィールド名指定にしました。
範囲は、空のまま。
これを保存します。
↑パラメータの入力イメージ
保存後、実行すると、Excelのシートがインポートされます。
テストで何回か実行した後、
テーブルのデータを見てみると、
おっ？マクロを実行した回数分データが追加されているよ。
なんかイヤナ感じだけど、インポートはＯＫですね。
↑回数分データが追加されているがインポート後のテーブルイメージ
データを消さないとイケナイのか、
DEL_MOTO_DATAって名前の削除クエリーを１つ作ります。
通常クエリーは選択クエリーなので、
メニューのクエリから削除を選択して、
テーブル内のデータを全て削除するクエリーを作成します。
↑削除クエリーの作成イメージ
あとは、マクロのアクションに、
今作成したDEL_MOTO_DATAをインポート前に実行するように、記述します。
右ボタンを押して、挿入を選択して、
ワークシート変換の前にクエリーを開くのアクションを挿入します。
開くのは作成したDEL_MOTO_DATAです。
↑クエリー開くを追加したイメージ
このマクロを実行すると、無事、データが入りました。
/* * ３．マクロを変換して、VBAのモジュールにする */
マクロが出来たので、今度は、そのマクロをVBAのモジュールに変換してみます。 ※まぁ、変換しないでもいいんだけど、ネタ的に使いたかったので（笑） 変換したいマクロを選択して、 右ボタンを押して、ショートカットメニューを表示させます。 その中から、名前を付けて保存を選択します。 貼り付ける形式をモジュールにします。 ~~~~~~~~~~~~~~~~~~~~~~~~~~
↑マクロを選択後、右ボタン・形式をモジュールにする
OKボタンを押すと、下記のモジュールが作成されます。
'------------------------------------------------------------
' マクロ1
'------------------------------------------------------------