SQLの窓 イラストAC フリー素材

2014年08月30日

Access.Application ( docmd.TransferText ) でエクスポートとインポート

ドキュメントを読むと、余計わかりにくくなりますが、2番目の引数は省略できます(デフォルトのインポート/エクスポートの仕様を選択する場合は、この引数を空白のままにすることができます)。

一番の問題は、.vbs 内で定義されていない定数を使う事で、.wsf で定数をインポートする場合は別ですが、.vbs では定数をあらかじめ定義しておく必要があります。

AcTextTransferType Enumeration
Const acExportDelim 	= 2	'Export Delimited
Const acExportFixed	= 3	'Export Fixed Width
Const acExportHTML	= 8	'Export HTML
Const acExportMerge	= 4	'Export Microsot Word Merge
Const acImportDelim	= 0	'Import Delimited
Const acImportFixed	= 1	'Import Fixed Width
Const acImportHTML	= 7	'Import HTML
Const acLinkDelim	= 5	'Link Delimited
Const acLinkFixed	= 6	'Link Fixed Width
Const acLinkHTML	= 9	'Link HTML

Set ac = Wscript.CreateObject("Access.Application") 
ac.OpenCurrentDatabase("C:\vbs\mdb\a2010.accdb") 

ac.docmd.TransferText acExportDelim, "", "社員マスタ", "C:\vbs\mdb\doexp.csv", true

ac.docmd.TransferText acImportDelim, "", "社員マスタ", "C:\vbs\mdb\社員マスタ.csv", true

ac.docmd.Closedatabase

最後の true は、一行目がフィールド名である事を示しています

※ このインポート処理では、キーが重複しないもののみインポートされます


【VBScriptの最新記事】
posted by at 2014-08-30 12:14 | Comment(0) | VBScript | このブログの読者になる | 更新情報をチェックする
SQLの窓全体の検索
Custom Search
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。


Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX