Laufparameter
21.11.2006 12:04:23
Carsten
hab hier ein kleines Problem:
Aufgabe: Aus diversen Textfiles in Tabellenform soll Excel
mit einem Makro eine Tabelle erstellen.
Hab das Ganze für eine Datei schon aufgezeichnet und
das klappt auch recht gut.
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and
Settings\Carsten\Desktop\Diplomarbeit\live\ergebnisse\Tabelle0.5Grad_StromA10A.txt"
_
, Destination:=Range("B2"))
.Name = "Tabelle0.5Grad_StromA10A"
.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 = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 1, 9)
.TextFileFixedColumnWidths = Array(21, 17)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = " "
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Nun möchte ich das per DO-Schleife automatisieren.
Wie kann man den Laufparameter in den Dateinamen mit einbauen?
Tabelle0.5Grad_StromA10A.txt
Tabelle0.5Grad_StromA20A.txt
Tabelle0.5Grad_StromA30A.txt
...
Vielen Dank im Voraus.
Carsten