Thema Datum  Von Nutzer Rating
Antwort
07.06.2017 16:16:09 Martin
NotSolved
Blau Loop through - Werte aus mehreren .xlsm Dateien auslesen.
13.06.2017 19:40:34 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
13.06.2017 19:40:34		 Views:
532		 Rating:
     
Antwort:
  Ja
Thema:
Loop through - Werte aus mehreren .xlsm Dateien auslesen.

Hallo,

in dieser Muster-Arbeitsmappe ist ein funktionierendes Beispiel enthalten.

Die Sub "Einlesen" ließt alle Dateien vom Typ "xlsm" ein und öffnet diese im Schreibgeschützten Modus nacheinander:

Sub Einlesen()
    Dim myCls As New clsFindFiles
    Dim myPaths As New Collection
    Dim Item As Variant
    Dim iRow As Integer
    Dim wbk As Workbook
    Dim wbkFile As Workbook
    myCls.SearchPathsRecursive RootPath, "\.xlsm$"
    Set myPaths = myCls.Files
    If myPaths.Count > 0 Then
        Set wbk = Application.Workbooks.Add
        iRow = 1
        Application.EnableEvents = False
        For Each Item In myPaths
            Set wbkFile = Application.Workbooks.Open(Filename:=Item, ReadOnly:=True)
            wbk.Worksheets(1).Cells(iRow, 1).Value = Item
            wbk.Worksheets(1).Cells(iRow, 2).Value = wbkFile.Worksheets(1).Range("G22").Value
            wbkFile.Close False
            iRow = iRow + 1
        Next
        Application.EnableEvents = True
    End If
End Sub

Die Klasse clsFindFiles enthält weitere Befehle zum Scannen der Pfade und Unterpfade. Die Klasse ist in der Muster-Arbeitsmappe mit enthalten.

LG, BigBen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.06.2017 16:16:09 Martin
NotSolved
Blau Loop through - Werte aus mehreren .xlsm Dateien auslesen.
13.06.2017 19:40:34 BigBen
NotSolved