Lightbox Info Board : SQLの窓

Access のオブジェクトを VBSCript で使用して CSV入出力

※ この方法は、Microsoft Access がインストールされている場合にのみ使用できます


<JOB>
<OBJECT id="Access" progid="Access.Application" />
<REFERENCE guid="4AFFC9A0-5F99-101B-AF4E-00AA003F0F07" />

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************

	strCurDir = WScript.ScriptFullName
	strCurDir = Replace( strCurDir, WScript.ScriptName, "" )

	Access.OpenCurrentDatabase( strCurDir & "販売管理B.mdb" )
	Access.DoCmd.TransferText acExportDelim,, "社員マスタ", strCurDir & "商品マスタ.csv"

	' 以下のようにすると、列名リストが先頭に出力されます
	' Access.DoCmd.TransferText acExportDelim,, "社員マスタ", strCurDir & "商品マスタ.csv", -1


</SCRIPT>
</JOB>

export_csv_access.wsf

Microsoft へのリンク ( TransferText メソッド )

インポートするには、acExportDelim を acImportDelim に変更して
csv の先頭に列名リストを挿入し、メソッドの最後の引数として、-1 を指定します


社員コード,氏名,フリガナ,所属,性別,作成日,更新日,給与,手当,管理者
"0001","浦岡 友也","ウラオカ トモヤ","0003",0,2005/09/12 0:00:00,2005/11/28 0:00:00,270000,9000,
"0002","山村 洋代","ヤマムラ ヒロヨ","0003",1,2005/06/17 0:00:00,2005/09/18 0:00:00,300000,,
"0003","多岡 冬行","タオカ フユユキ","0002",0,2005/08/14 0:00:00,2005/11/14 0:00:00,250000,,
"0004","高田 冬美","タカタ フユミ","0003",1,2005/06/13 0:00:00,2005/10/05 0:00:00,250000,,

社員マスタ.csv


<JOB>
<OBJECT id="Access" progid="Access.Application" />
<REFERENCE guid="4AFFC9A0-5F99-101B-AF4E-00AA003F0F07" />

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************

	strCurDir = WScript.ScriptFullName
	strCurDir = Replace( strCurDir, WScript.ScriptName, "" )

	Access.OpenCurrentDatabase( strCurDir & "販売管理B.mdb" )
	Access.DoCmd.TransferText acImportDelim,, _
		"社員マスタ", strCurDir & "社員マスタ.csv", -1


</SCRIPT>
</JOB>

対象テーブルを空にしてエクスポートすると、export.ini が作成されます。
このファイルをこの名前で CSV と同じ場所に置く事によってもインポート可能なようです


[社員マスタ.csv]
ColNameHeader=False
CharacterSet=932
Format=CSVDelimited
Col1=社員コード Char Width 4
Col2=氏名 Char Width 50
Col3=フリガナ Char Width 50
Col4=所属 Char Width 4
Col5=性別 Integer
Col6=作成日 Date
Col7=更新日 Date
Col8=給与 Integer
Col9=手当 Integer
Col10=管理者 Char Width 4

export.ini