Импорт из таблиц доступа 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 

Это часто является хорошей идеей, но не всегда необходимо, чтобы использовать спецификацию импорта или импортировать в существующую таблицу при работе с текстовыми файлами ,