Pfad mit Explorerbox für Textdateienimport
05.03.2013 13:07:52
Marc
ich möchte gerne mittels Makro eine Textdatei einlesen, die ich zuvor mittels Dateiexplorer ausgewählt habe. Dann möchte ich diese Datei eben noch in verschiedener Art und Weise formatieren. Dafür habe ich folgenden Code aufgezeichnet, dann ausgeblendet und hinzugefügt:
Dim strPfad As String
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Bitte Datei wählen"
.Filters.Clear
If .Show = -1 Then
strPfad = .SelectedItems(1)
End If
End With
With ActiveSheet.QueryTables.Add(Connection:=strPfad, Destination:=Range("$A$1"))
'With ActiveSheet.QueryTables.Add(Connection:= _
' "TEXT;D:Test.txt", Destination:=Range("$A$1"))
' .Name = "out_06008586.0462449"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 28592
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 4, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
Allerdings macht er mir einen Fehler. Und ich weiss nicht, was ich falsch mache?!
Kann mir jemand den entscheidenen Tipp geben?
Danke und Gruß
Marc