SQLサーバーにアップロードできるように、セミコロンで区切られた.csvに変換する必要のある.txtファイル(> 60k)が多数あります(一部のフィールドはコンマ付きのリストであるため)。
テーブルが存在しない場合でもデータをAccessデータベースにロードする.vbsファイルの作成に成功しましたが、acExportDelimに新しいファイルを上書き/作成させることができません。また、FileName.csvが存在しない場合にもエラーが発生します。
私が見逃しているものがあるはずですが、どこから探し始める必要があるのか途方に暮れています。
CMD入力
C:\Afolder\TxtToCsv.vbs \\DataOnaServer\FileName.txt \\DataOnaServer\FileName.csv
.vbsファイル
Dim oAccess
Set oAccess = CreateObject("Access.Application")
oAccess.OpenCurrentDatabase("C:\Afolder\WDS.accdb")
oAccess.DoCmd.TransferText acImportDelim,"FileTxtImportSpec","FileName",WScript.Arguments.Item(0),1
oAccess.DoCmd.TransferText acExportDelim,"FileCsvExportSpec","FileName",WScript.Arguments.Item(1)
oAccess.Quit
ファイルが見つからないときに受信したエラーメッセージ。(まだ画像を投稿できないようです)
「MicrosoftAccessデータベースエンジンはオブジェクト「lp4137.csv」を微調整できませんでした。オブジェクトが存在し、その名前とパスを正しく入力していることを確認してください。「lp4137.csv」がローカルオブジェクトでない場合は、ネットワーク接続を確認するか、サーバー管理者に連絡してください。」コード:800A0BC3
同様のスクリプトを実行しているボタンクリックVBAを使用したダウンロード可能なファイルのデモへのBlueClawDatabaseDesignリンク。