使用宏从csv导入ms访问表

Question

有些人可以提供给我一个VBA宏，用于将CSV文件中的数据导入到ms访问表中吗？

Answer 1

看看Docmd.TransferSpreadSheet有帮助。

Answer 2

INSERT INTO tblSomeTable ([TRADE DATE], REP, REPID, [ACCOUNT/POLICY], 
          CUSTOMER, [REP# COMPANY], [PRODUCT NAME], QUANTITY, [FACE AMOUNT], 
          [GROSS COMMISSION], [CUSTOMER SSN]) 
SELECT [TRADE DATE], REP, REPID, [ACCOUNT/POLICY], 
     CUSTOMER, [REP# COMPANY], [PRODUCT NAME], QUANTITY, [FACE AMOUNT], 
     [GROSS COMMISSION], [CUSTOMER SSN] 
FROM [Text; 
     FMT=Delimited; 
     HDR=YES; 
     CharacterSet=437; 
     DATABASE=C:\Documents And Settings\spauldb\Desktop].Transactions_Jan1_to_Jan30.csv 
WHERE [TRADE DATE] Is Not Null; 

Answer 3

我会用TransferText为CSV：

DoCmd.TransferText acImportDelim, , "NewTable2", "c:\docs\ltd.csv", True 

它往往是一个好主意，但并不总是必要的，使用导入规格或文本文件时导入到现有的表。