File Open geht, wie in ein neues gem. Worksheet
04.05.2009 18:50:05
Mindjogger
nun habe ich es endlich, dank dem Forum geschafft, mein verzeichnis mit Unterverzeichnissen auszulesen und mir eine Dateiliste zu erstellen.
Leider versagt mein kleines Skript (unten), da nach dem ersten File dieses als aktiv gesetzt ist und die Spalte A nun keinen Dateinamen mit Pfad mehr hat.
Aber wie kann ich nun den Inhalt der geöffneten Datei in ein neues Worksheet bringen?
Es reicht mir, wenn ich es einfach Kopiere und auf ein neues Blatt einfüge.
Wenn jemand weis, wie ich die Öffnen Funktion so nutzen kann, das es als neues Blatt autom. eingefügt wird ... nur her damit ;-)
Was habe ich bisher:
Sub OPEN_SPALTE_A()
' In Spalte A befinden sich Dateinamen von .txt files
' Das Makro geht über alle Einträge in Spalte A und öffnet die Dateien
Dim iRow As Long
For iRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
MsgBox 1 & Cells(iRow, 1) & 2
Workbooks.Open Filename:=Cells(iRow, 1)
Next iRow
End Sub