Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Daten aus einem Verzeichnis auslesen

Betrifft: Daten aus einem Verzeichnis auslesen von: A.Meyer
Geschrieben am: 15.09.2004 16:32:04

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

  


Betrifft: AW: Daten aus einem Verzeichnis auslesen von: tobias
Geschrieben am: 15.09.2004 19:34:55

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


  


Betrifft: AW: Daten aus einem Verzeichnis auslesen von: A.Meyer
Geschrieben am: 20.09.2004 09:31:13

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


 

Beiträge aus den Excel-Beispielen zum Thema "Daten aus einem Verzeichnis auslesen "