3
8

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 3 years have passed since last update.

Access VBA:Excelファイル をインポートする

Last updated at Posted at 2018-06-16

#処理概要
Excelファイルを Accessのテーブルにインポートする処理についてです。

VBAで作成するには、次のような手順になります。

  • ExcelファイルをAccessのテーブルに変換する。
  • 変換したテーブルを既存のテーブルに追加する。

##マニュアル操作で行うと
ExcelのファイルをAccessにインポートするには、次のような操作で、インポートすることができます。

[新しいデータソース]-[ファイルから]-[Excel]を選択します。
image.png

画面に従って、[次へ]を押します。
image.png

##プログラムコードで書くと
インポートする処理をプログラムコードで書くと、次のような1行で書くことができます。
sample.xlsx を テーブル T_ExcelImport に変換する処理です。

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_ExcelImport", "c:\sample.xlsx", True

サンプルファイル ダウンロード

image.png

サンプルファイルは、下記の OneDrive からダウンロードできます。

【エクセルインポート】
https://1drv.ms/u/s!AiwZpyuHUgQBj7YoW1x_c1H_yELVIA?e=luFsf6

【サンプルファイル一覧】
https://1drv.ms/u/s!AiwZpyuHUgQBj7Yj0iyQ2-RXKtPUtg?e=4D2gyf

##読込用の画面を作成
しかし、実際にシステム化するには、次のような手順が必要になります。

1.インポートするExcelファイルを指定する。
2.テーブル[T_ExcelImport]が、存在する場合は、削除する。
3.管理しているテーブルに、項目を照合してSQL文を作成する。
4.Excelファイルをインポートする。

Access で、読込用の画面を作ると、下図のようになります。

1.項目名が、一致すると[(読込)Excel項目名]に表示されます。
2.一致しない項目名は、[(読込まない)Excl項目名]に表示されていますので、リストから選択してください。

image.png

#AccessとExcelを連携したシステムを公開しています
データベースをAzure SQL にセットして、AccessやExcelのプログラムから データベースを遠隔地間で共有するシステムを公開しています。


http://access-cloud.hatenablog.com/entry/database

3
8
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
3
8

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?