Daten aus einem Verzeichnis auslesen

Forumthread: Daten aus einem Verzeichnis auslesen

15.09.2004 16:32:04

A.Meyer

Hallo zusammen,
ich möchte aus allen Excel Dateien eines Verzeichnisses bestimmte Daten auslesen und in eine neue Tabelle kopieren bzw. teiweise summieren.
Ein Wert befindet sich z.B. immer im Feld L55 diesen möchte ich aus allen Dateien in einem Verzeichnis auslesen und summieren.
Eine weiterer Wert ist in Feld D16 bis D22 (Textinhalt) ist es möglich diese Inhalte auszulesen und in einem einzelnen Tabellenblatt untereinander einzufügen?
Gibt es hierfür eine Lösung? Die Suchfunktion hat mich leider nicht weitergebracht...
Besten Dank im Voraus
Gruß A.Meyer

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Daten aus einem Verzeichnis auslesen

tobias
AW: Daten aus einem Verzeichnis auslesen

20.09.2004 09:31:13

A.Meyer

AW: Daten aus einem Verzeichnis auslesen

tobias

Hallo
folgende Prozedur ist nur ein ungetestetes Beispiel. Variablennamen und programmierart könnten noch verbessert werden...


Sub konsolidieren(Pfad As String)
Dim NeuAPP As New Excel.Application, Tabelle As Worksheet
Dim Wert As Double, i As Long, AktivMapp As String, Zähler As Long
Dim Feld() As String, Fcount As Integer, NeuAPPMapp As String
ReDim Feld(0 To 6)
With Application.FileSearch
.LookIn = Pfad
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 1 Then
Workbooks.Add
Worksheets("Tabelle3").Delete
Worksheets("Tabelle2").Delete
Worksheets("Tabelle1").Name = "Daten"
AktivMapp = activeWorkbook.Name
for i = 1 To .FoundFiles.Count
NeuAPP.Workbooks.Open .FoundFiles(i)
For Each Tabelle In NeuAPP.ActiveWorkbook.Worksheets
Wert = Wert + Tabelle.Range("L55") ' oder Wert = Wert + Val(Tabelle.Range("L55"))'testen, je nach Formatierung
for Fcount = 1 To 6
Feld(Fcount) = Tabelle.Cells((Fcount + 16), 4)
next
NeuAPPMapp = NeuAPP.ActiveWorkbook.Name
Workbooks(AktivMapp).activate
For Fcount = 1 To 6
Worksheets("Daten").Cells((Zähler + Fcount), 1) = Feld(Fcount)
Next
Worksheets("Daten").Range("L55") = Wert
NeuAPP.Workbooks(NeuAPPMapp).Activate
Erase Feld
Zähler = Zähler + 6
Next
NeuAPP.ActiveWorkbook.Close false
Next
End if
End With
End Sub

mfg tobias

AW: Daten aus einem Verzeichnis auslesen

20.09.2004 09:31:13

A.Meyer

Hallo Tobias,
besten Dank erst mal für die schnelle Antwort.
Ich werde mal schauen ob ich das ganze so Umsetzen kann...
Danke und Gruß
Andreas

Beliebteste Forumthreads (12 Monate)

Daten aus einem Verzeichnis auslesen

Forumthread: Daten aus einem Verzeichnis auslesen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread