Textdateien nacheinander importieren

Hallo Excel User,
ich brauche mal Eure Hilfe...
Ich möchte vier Textdateien, mit unterschiedlichen Dateinamen nacheinander in eine Tabelle importieren...
Dies soll mit Hilfe eines Makros realisiert werden...
Die Einträge in den jeweiligen Dateien ändern sich von Woche zu Woche, so dass ich nicht pauschal sagen kann gehe nach dem importieren in Zeile X und importiere dort die nächste Datei.
Im Makro soll also ausgedrückt werden, dass nach einem Import die nächste freie Zeile angesteuert wird und dort dann die nächste Textdatei importiert wird.
Bisher wird immer pauschal eine bestimmte zeile angesteuert, ändert sich aber die Anzahl der Einträge in der Textdatei, dann wird also trotzdem bei beim Wert X angesetzt.
Hier mal als Beispiel...
Range("A187").Select
dort soll aber statt der 187 die nächste freie Zeile angesteuert werden...
geht wahrscheinlich mit dem Befehl... Selection.End(xlDown).Select
aber meine VBA Kenntnisse sind minimal...
Bitte um Eure Hilfe
Danke Nico

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ingo, danke erstmal für Deine Hilfe... Mein Problem ist aber, dass ich die Dateien über Textdatei importieren einfügen möchte und nicht jede einzelne öffnen will...
Hier mal der Code... im Code sind es nur 2 Dateien... aber normal sind es mehrere...


Sub Makro2()
' Makro2 Makro
' Makro am 16.08.2005 von Walter aufgezeichnet
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;K:text.txt", Destination:=Range( _
"A1"))
.Name = "ABH_Nohra."
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = " "
.Refresh BackgroundQuery:=False
End With
Range("A65536").End(xlUp).Offset(1, 0).Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;K:\text2.txt", Destination:=Range _
("A187"))
.Name = "ABH_Nohra2."
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = " "
.Refresh BackgroundQuery:=False
End With
End Sub

Wie bekomme ich nun hin das er nicht in die 187. Zeile springt, sondern in die erste freie... Vielen Dank schon mal im Voraus... Nico

Beliebteste Forumthreads (12 Monate)

Textdateien nacheinander importieren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textdateien nacheinander importieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread