Datenimport mit VBA
05.08.2008 08:51:08
Harald
ich habe mal wieder ein VBA Problem.
Ich habe folgenden Code:
Sub FileSelection()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen False Then
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;fileToOpen" _
, Destination:=Range("A1"))
.Name = "IOC-9_All Labels_80723"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=True
End With
End If
End Sub
Leider bekomme ich immer einen Laufzeitfehler 1004, dass die Datei nicht gefunden werden kann, obwohl ich sie ja zuvor über das Dialogmenü ausgewählt habe.
Kann mir jemand helfen? Danke
MfG Harald
Anzeige