Я пытаюсь импортировать несколько файлов CSV, все в одном каталоге в MS Access 2016.

Это модуль VBA, который у меня сейчас есть, благодаря физике 2010, но он не работает. Какие-нибудь советы?

Option Compare Database
Option Explicit

Function DoImport()

Dim strPathFile As String
Dim strFile As String
Dim strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean

' Change this next line to True if the first row in CSV worksheet
' has field names
blnHasFieldNames = True

' Replace C:\Documents\ with the real path to the folder that
' contains the CSV files
strPath = "C:\Users\xxx"

' Replace tablename with the real name of the table into which
' the data are to be imported
strTable = "Table1"

strFile = Dir(strPath & "*.csv")


Do While Len(strFile) > 0
      strTable = Left(strFile, Len(strFile) - 4)
      strPathFile = strPath & strFile
      DoCmd.TransferText acImportDelim, , strTable, strPathFile, blnHasFieldNames


' Uncomment out the next code step if you want to delete the
' EXCEL file after it's been imported
'       Kill strPathFile

      strFile = Dir()

Loop


   MsgBox "done"


End Function

1 ответ1

0

Благодаря Atzmon проблема была в моем strPath, вместо strPath = "C:\Users\xxx" это должно быть strPath = "C:\Users\xxx\"

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .