Макрос требуется для добавления нескольких файлов CSV в MSAccess 2003 - PullRequest
Новая
       31

Макрос требуется для добавления нескольких файлов CSV в MSAccess 2003

0 голосов
/ 13 сентября 2011

Нужна помощь по двум вещам

1) Макросы для импорта нескольких файлов CSV в Access. У меня есть несколько Csv-файлов около 60+, каждый из которых импортируется в MSAccess2003
безусловно, займет время. Когда googled получил следующий код, но он не работает для меня 

Import_multi_csv()
Dim fs, fldr, fls, fl
Set fs = CreateObject("Scripting.FileSystemObject")
Set fldr = fs.getfolder("D:CSVFolder\")
Set fls = fldr.files
For Each fl In fls
    If Right(fl.Name, 4) = ".csv" Then
        DoCmd.TransferText acImportDelim, , "tblName", " D:CSVFolder \" & fl.Name, True
    End If
Next fl

2) Любой макрос доступен для импорта определенных файлов из нескольких файлов CSV в MSAccess2003?

Любая помощь очень ценится.

1 Ответ

0 голосов
/ 26 ноября 2011

Прежде всего, я согласен с 'HansUp', вы определенно пропускаете \, который должен следовать за буквой диска, во-вторых, я считаю, что всегда хорошо правильно объявлять ваши переменные, вы установили fs, fldr и fls ok,но затем он сразу же запрашивает каждую fl в fls, это может быть необязательно на 100%, но по моему опыту было бы хорошо объявить следующее:

Dim fl as File

...