从访问创建逗号分隔文件 (csv) - 每天从 Windows 安排

Question

我想创建一个 vbs 文件来导出 csv 文件中的访问表（逗号分隔）。 我从 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

Answer 1

创建标准的 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 文件可以从任务计划程序中很好地运行。

编辑re cmets

如果您的语言环境中的小数分隔符是逗号，您可能会遇到问题。您可以使用 schema.ini 文件覆盖 Windows 区域设置，您只需要包含文件的名称和要更改的项目：

[csvfile.csv]
DecimalSymbol=.

完整列表可从 Microsoft 获得：Schema.ini

没有理由不应该在导出之前在代码中编写 schema.ini，除非确保不要覆盖现有架构 - 您可以追加。

您将从 Windows 控制面板获得有关系统区域设置的信息：http://windows.microsoft.com/en-IE/windows7/Change-the-system-locale