1

アクセステーブルをcsvファイル（カンマ区切り）でエクスポートするvbsファイルを作成したいと思います。Remouからこのコーダを見ました。動作しますが、タブを分離して作成します。誰か助けてもらえますか？ありがとうございました！

db = "C:\Docs\LTD.mdb"
TextExportFile = "C:\Docs\Exp.txt"

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open _
   "Provider = Microsoft.Jet.OLEDB.4.0; " & _
   "Data Source =" & db

strSQL = "SELECT * FROM tblMembers"

rs.Open strSQL, cn, 3, 3

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.CreateTextFile(TextExportFile, True)

a = rs.GetString

f.WriteLine a

f.Close
4

1 に答える 1

4

標準のCSVを作成することは難しくありません

Set cn = CreateObject("ADODB.Connection")

cn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=z:\Docs\test.accdb"

sSQL = "select * into " 
sSQL= sSQL & "[text;database=z:\docs\;FMT=Delimited;HDR=Yes].[csvfile.csv]"
sSQL= sSQL & " from table1"

cn.Execute sSQL

VBScriptファイルは、タスクスケジューラから非常にうまく実行されます。

コメントを編集する

ロケールの小数点記号がコンマの場合、問題が発生する可能性があります。Windowsロケール設定をschema.iniファイルで上書きできます。必要なのは、ファイルの名前と変更する項目のみです。

[csvfile.csv]
DecimalSymbol=.

完全なリストは、Microsoftから入手できます：Schema.ini

既存のスキーマを上書きしないように注意することを除いて、エクスポートする前にコードにschema.iniを記述しない理由はありません。追加できます。

システムロケールに関する情報は、Windowsのコントロールパネルから取得できます：http ：//windows.microsoft.com/en-IE/windows7/Change-the-system-locale

于 2012-11-20T22:52:36.197 に答える