импортировать несколько файлов CSV в базу данных Access и сохранять их в разных таблицах в зависимости от имени файла - PullRequest
Новая
       8

импортировать несколько файлов CSV в базу данных Access и сохранять их в разных таблицах в зависимости от имени файла

0 голосов
/ 01 мая 2018

У меня есть около 100 CSV-файлов, которые я пытаюсь импортировать в Access, а затем переименовывать таблицы на основе имен файлов.

Вот код, который я нашел, но "имя таблицы" должно быть именем моего файла. тем не менее, я не могу заставить его работать, поскольку я новичок в написании сценариев. 

Function Import_multi_csv()

Dim fs, fldr, fls, fl
Set fs = CreateObject("Scripting.FileSystemObject")
Set fldr = fs.getfolder("D:Files\")
Set fls = fldr.files

     For Each fl In fls

      If Right(fl.Name, 4) = ".csv" Then
       DoCmd.TransferText acImportDelim, , "TableName", "D:Files\" & fl.Name, False
      End If

     Next fl

End Function

Кроме того, у меня есть три столбца в моих файлах, и я хочу, чтобы третий столбец был импортирован как двойной.

Любая помощь будет оценена.

1 Ответ

0 голосов
/ 01 мая 2018

Должно быть так: 

DoCmd.TransferText acImportDelim, , "[" & fs.GetBaseName(fl.Name) & "]", "D:Files\" & fl.Name, False

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

...