eine neuerliche Frage, denn ich verzweifle.
Ich weiß, das Thema ist schon mehrfach im Forum durchdiskutiert. Habe auch alles gelesen
und weitestgehend verstanden denke ich.
Trotzdem bekomme ich folgenden Code nicht zum laufen.
Ich möchte csv daten einlesen in die Tabelle import
das ganze natürlich über den Datei-Öffnen Dialog und nicht mit festem Quelldaten-Bezug
An der Stelle with ActiveSheet.QueryTables ... hängt er
bin dankbar für jede Fehlerkorrektur, ich blicke es nicht....
Sub Datenimport()
'Daten importieren in Zelle A1
'Datei öffnen-Dialog
Dim Datei As String
Datei = Application.GetOpenFilename(filefilter:="Textdateien (*.csv), *.csv")
'Abbrechen falls keine Datei ausgewählt
If Datei = "Falsch" Then
MsgBox "Keine Daten zum Import ausgewählt!", , "Abbruch"
Exit Sub
End If
Sheets("Import").Activate
With ActiveSheet.QueryTables.Add(Connection:=Datei, Destination:=Range("A1"))
.Name = "Importdatei"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 2, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub