ich verwende die Methode QueryTables wie folgt:
With Worksheets(2).QueryTables.Add(Connection:= _
"TEXT; C:\Excel\z-verlauf.fda ", Destination:=Tabelle2.Range("A2"))
.Name = "z-verlauf"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
'nach sehen!
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(13, 10, 9, 15, 16, 15, 15, 15, 15, 15, 15)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = " "
'nach sehen !
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Nun will ich das aber mit einer relativen Pfadangabe realisieren
Die Versionen:
Pfad = ActiveWorkbook.Path & "\z-verlauf.fda"
With Worksheets(2).QueryTables.Add(Connection:= _
"TEXT; Pfad"
oder
With Worksheets(2).QueryTables.Add(Connection:= _
"TEXT; ActiveWorkbook.Path & "\z-verlauf.fda""
Funktionieren nicht.
Bin für jede Hilfe dankbar
Nele