MS Access 2016 Importar vários arquivos CSV

0

Estou tentando importar vários arquivos csv, todos no mesmo diretório para o MS Access 2016.

Este é o módulo VBA que tenho atualmente, graças a physics2010 , mas não está funcionando. Alguma dica?

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
    
por Adre 06.10.2016 / 08:44

1 resposta

0

Graças a Atzmon , o problema estava no meu strPath, em vez de strPath = "C:\Users\xxx" , deveria ser strPath = "C:\Users\xxx\"

    
por 06.10.2016 / 10:47