VBScriptでExcelファイルを自動的にMDBファイルにインポートする
Microsoft AccessとExcelがインストールされていないとできないと思うけどシートが1つしかないければ、自動的にMDBファイル内にテーブルを作成できる。
赤いところがファイル名とかテーブル名とか…
ADOで読み込む手もあるが文字列が255文字を超える場合は、この方式のほうがいい。
MDBファイルは予め作成されている必要がある。MDBの自動作成は1個前の記事を参照。
Option Explicit
Const acImport = 0
Const acSpreadsheetTypeExcel9 = 8
Dim app, mdbfile, filepath, tblName
mdbfile = "g:\new.mdb"
filepath = "g:\Test.xls"
tblName = "t_data"
Set app = CreateObject("Access.Application")
app.OpenCurrentDatabase mdbfile, True
app.DoCmd.TransferSpreadSheet acImport,acSpreadsheetTypeExcel9,tblName,filepath,True
赤いところがファイル名とかテーブル名とか…
ADOで読み込む手もあるが文字列が255文字を超える場合は、この方式のほうがいい。
MDBファイルは予め作成されている必要がある。MDBの自動作成は1個前の記事を参照。
この記事へのコメント