Импорт из CSV в MS таблицы доступа с помощью макроса

Question

Может ли кто-нибудь предоставить мне макрос VBA для импорта данных из файла CSV в таблицы доступа ms?

Answer 1

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 2

Я бы использовал TransferText для CSV:

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

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

Answer 3

Проверьте, поможет ли Docmd.TransferSpreadSheet .