将ACCESS表导出为CSV文件

一、将ACCESS表导出为CSV文件：

Select * INTO

[TEXT;FMT=CSV;DELIMITED;HDR=YES;DATABASE=E:\temp\].test.csv FROM Sheet2;

二、导入CSV文件并生成新的ACCESS表：

Select * INTO test FROM

[TEXT;FMT=CSV;DELIMITED;HDR=YES;DATABASE=e:\Temp\].[test.csv];

三、将CSV文件追加到现有的ACCESS表中：

Insert INTO test Select * FROM

[TEXT;FMT=CSV;DELIMITED;HDR=YES;DATABASE=e:\Temp\].[test.csv];

'cn.Execute "DELETE FROM td_forecast"

'DoCmd.TransferText acImportDelim, , "è?ê?1¤×êêy?Y", "d:\sample_830.csv", -1

'DoCmd.TransferText acExportDelim, , "è?ê?1¤×êêy?Y", "d:\April.csv", True

'DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "è?ê?1¤×êêy?Y", "d:\123.xls", True

'DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "è?ê?1¤×êêy?Y","d:\123.xls", True, "A:A"

Code:

DoCmd.RunSQL ("SELECT SubscriberKey, AccountNumber, EmailAddress, FullName, SubscriberType, FractionSuiteGroup INTO ExportSubscriberTemp FROM " & vEventID & "_C;")

DoCmd.TransferText acExportDelim, "ExportSubscriberData", "ExportSubscriberTemp", "C:\Campaigns\" & vEventID &

"\subscriber_data.txt", 1