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

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 :)

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
AW: Mehrere Dateien Öffnen
Rudi
Vielen Dank, werde ich gleich ausprobieren :)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige