Laufparameter

Hi,
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

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Laufparameter

22.11.2006 00:30:26

fcs

Hallo Carsten,
ungetestet könte evtl. folgendes gehen. Für die Destination der eingefügten Daten muss du ggf auch noch etwas anpassen, im einfachsten Fall nur den Schritt füe den zeilenzähler
Gruss
Franz


Sub Test()
Dim I As Integer, Dateiname As String, Zeile As Long
Zeile = 2 '1. Zeile für die Destination
For I = 10 To 90 Step 10
Dateiname = "Tabelle0.5Grad_StromA" & 10 & "A"
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\Carsten\Desktop\Diplomarbeit\live\ergebnisse\" _
& Dateiname & ".txt", Destination:=Cells(Zeile, 2))
.Name = Dateiname
.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
Zeile = Zeile + 1 'Zählwert ggf. anpassen oder anders berechnen!!!
Next
End Sub

Beliebteste Forumthreads (12 Monate)

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread