Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten aus mehreren XLS Dateien exportieren

Daten aus mehreren XLS Dateien exportieren
11.07.2007 09:39:00
Enjoy82
Hallo,
Ich habe einen Ordner "Aktuell" und einen Ordner "Übersicht" erstellt.
Im Ordner "Übersicht" befindet sich die Datei "Gesamtliste.xls".
Im Ordner "Aktuell" befinden sich die Files "1.xls", "2.xls" und "3.xls".
Ich möchte nun ein Makro in der Gesamtliste.xls schreiben, dass bei Ausführung nacheinander die Tabelle
1.xls, 2.xls und 3.xls öffnet, jeweils den Wert aus der Zelle A1 ausliest und diese Werte dann
in "Gesamtliste.xls" in die Zellen A1, A2 bzw. A3 einträgt.
PS: Die Dateien 1.xls, 2.xls und 3.xls sollen nach dem Auslesen des Wertes wieder geschlossen werden.
Kann mich dabei bitte jemand unterstützen?
Danke im Voraus
ROBERT

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Daten aus mehreren XLS Dateien exportieren
11.07.2007 10:33:32
Wolli
Hallo Robert? Warum muss es ein Makro sein? Du kannst doch einfach einen externen Bezug verwenden, der die Zahlen zieht! Gruß, Wolli

AW: Daten aus mehreren XLS Dateien exportieren
11.07.2007 10:34:00
haw
Hallo Robert,
so z.B..:

Sub DatenListen()
Dim wbG As Workbook, wb As Workbook, i%, Pfad$, efz%
Pfad = "C:\Daten\Aktuell\"
Workbooks.Open Filename = "C:\Daten\Übersicht\Gesamtliste.xls"
Set wbG = ActiveWorkbook
For i = 1 To 3
Workbooks.Open Filename = Pfad & i & ".xls"
Set wb = ActiveWorkbook
If wbG.Worksheets(1).Range("A1").Value = "" Then
efz = 1
Else
efz = wbG.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
wbG.Worksheets(1).Cells(efz, 1).Value = wb.Worksheets(1).Range("A1").Value
wb.Close False
Next i
End Sub


Gruß
Heinz

Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige