エクセルブックから指定シートを　Accesへ変換する方法

2022/06/22

エクセルブックから指定シートを　Accesへ変換する方法

カテゴリ：VBAソース公開

エクセルブックから指定シートを　Accesへ変換する方法

エクセルブックのシートをAccessデータベースへインポートするモジュールです。
ここをクリックするとソースが表示されます。

ExcelではVlookUp等で検索等が行えますが、時には Accessデータベースにした方が便利な場合もあります。
Excel シートのデータをAccessデータベースに変換するモジュールです。
ここをクリックするとソースが表示されます。

Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase strMdbPath
でAccess を準備し下記の DoCmd を使用します。
objAccess.DoCmd.TransferSpreadsheet 0, , strSheet, strGibNam, bolTopTitle, strSheet & "!"

※参照設定が不要なように０等の即値を使用しています。
参照設定なさる方は下記リンクから定数を調べて設定して下さい。
https://docs.microsoft.com/ja-jp/office/vba/api/access.docmd.transferspreadsheet

ダウンロード

ここをクリックするとソーズをまとめたファイルをダウンロードできます。

　ZIP_7010.zip　　　zipファイルの中身は下記のようになっています。

7010_データベースへインポート.bas	本体のソース
TestMain.BAS	テスト用のメイン
Test7010.xlsm	モジュールを組み込んだブック
お客様マスタ.xlsx	参考：テスト用データデータがなければご使用下さい

解凍後、Test7010.xlsm を起動し、

B4にテスト用ブックのフルパスを設定して下さい　　　　　　例)D:\TEST\TESTDATA.xlsx

B6にテスト用のデータベールのフルパスを指定して下さい　　例) D:\TEST\Database1.accdb
インポート見本