Ich versuche, CSV-Dateien in einem Ordner in Access als neue Tabellen angeordnet zu importieren und ich habe mit einem CodeCSV-Import in eine neue Tabelle -MS Zugang
Public Const rootdir = "C:\Users\deb670s\Desktop\importcsv"
Sub import()
Dim nr As Integer
Dim file As AcBrowseToObjectType
file = Dir$(rootdir & "*.csv")
nr = 1
Do While file <> ""
DoCmd.TransferText acImportDelim, "ImportSpec", "NewTableName-" & nr, rootdir & file, True, , msoEncodingCentralEuropean
file = Dir$
nr = nr + 1
Loop
End Sub
Aber ich erhalte eine Fehlermeldung versucht, variable sagen nicht definiert unter msoEncodingCentralEuropean Kann mir jemand sagen, wo ich falsch liege?
Access weiß nichts über die 'msoEncodingCentralEuropean'-Konstante, es sei denn, Sie fügen einen Verweis auf die * Microsoft Office-Objektbibliothek * hinzu. Oder Sie könnten den Wert der Konstanten, 1250, anstelle des Namens der Konstanten verwenden. – HansUp
Ich tat es, aber jetzt bekomme ich den Fehlertyp Mismatch in der Zeilendatei = Dir $ (rootdir & "* .csv"). –
OK, das ist ein anderer Fehler. Also, was ist 'importcsv' in' C: \ Benutzer \ deb670s \ Desktop \ importcsv'? Wenn das der Name des Ordners ist, der die CSV-Dateien enthält, tun Sie dies: 'Public Const rootdir =" C: \ Benutzer \ deb670s \ Desktop \ importcsv \ "' – HansUp