Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Dateien Öffnen

Forumthread: Mehrere Dateien Öffnen

Mehrere Dateien Öffnen
03.06.2004 11:42:08
Rudi
Hallo,
ich würde gerne mit VBA mehrere *.txt Dateien öffnen, sie sollen alle in der gleichen Arbeitsmappe, aber in unterschiedlichen Tabellen liegen.
Der Name der Tabelle soll gleich der Name der Datei sein (ohne .txt).
Wie realisiere ich das am einfachsten?
Was müsste ich am Code ändern, wenn ich alle Dateien auf einem Tabellenblatt untereinander einfügen möchte?
Danke :)
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Dateien Öffnen
03.06.2004 13:58:02
Hans
Hallo Rudi,
wie folgt:

Sub TextImport()
Dim wkb As Workbook
Dim vFiles As Variant
Dim iCounter As Integer
Dim sPath As String
Set wkb = ThisWorkbook
sPath = "c:\temp\"
vFiles = Array("test1.txt", "test2.txt", "test3.txt")
For iCounter = 0 To UBound(vFiles)
Workbooks.OpenText (sPath & vFiles(iCounter))
ActiveSheet.Move after:=wkb.Worksheets(wkb.Worksheets.Count)
Next iCounter
End Sub

gruss hans
Anzeige
AW: Mehrere Dateien Öffnen
Rudi
Vielen Dank, werde ich gleich ausprobieren :)

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige