---

Suche Batch-Programm für Excel(-Makros) ?

Startrek hat mir zwar auf die schnelle provisorisch schonmal geholfen,
jedoch kann ich mir nicht Vorstellen das Ihr da nicht auch was elegantes
kennt:

Suche Programm welches mir im Batchbetrieb ein Makro über
"Alle zu wählenden" Excel-Dateien laufen lässt.

Mir ist wichtig dabei das man mehrere Dateien aus verschiedenen Ordnern
auswählen kann !

Mein Provisorium sieht derzeit so aus das man ein Verzeichnis im Makro
selbst benennt und in diesem alle Dateien gewählt werden, wenn man jedoch
200 Ordner hat ist auch dies nicht mehr "schön" 200x anzupassen.
--------schnipp----------
  Dim wb As Workbook
  Dim f$, p$
  p = "D:\meinOrdner\"
  f = Dir(p & "*.xls")
  Application.ScreenUpdating = 0
  Do While f <> ""
      Set wb = Workbooks.Open(p & f)
      '##### hier mein Code start##########
    Application.Run ("BL_LISTE.XLS!MK_BL_FORMAT")
--------schnipp----------

Gibt es da was einfaches mit Dialogfeld für lau !?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

weiss nicht, ob ich das richtig verstehe. Aber so wie ich das lese, willst Du einen Oberordner angeben und aus dieser Ebene sollen alle Unterordner nach *.xls Dateien durchsucht werden - richtig?

Verweis auf 'Microsoft Scripting Runtime' setzen

Code:

---

Public Sub OrdnerDurchsuchen(Pfad As String)

    Dim FSO As Scripting.FileSystemObject
    Dim Ordner As Scripting.Folder
    Dim UOrdner As Scripting.Folder
    Dim Datei As Scripting.File
   
    Dim internPfad As String
   
        internPfad = Replace(Pfad, "/", "\")
        If Right(internPfad, 1) <> "\" Then
            internPfad = internPfad & "\"
        End If
   
        Set FSO = New FileSystemObject
        Set Ordner = FSO.GetFolder(Pfad)
   
        For Each UOrdner In Ordner.SubFolders
            OrdnerDurchsuchen UOrdner.Path
        Next UOrdner
   
        For Each Datei In Ordner.Files
            If VBA.Right(Datei.Path, 3) = "xls" Then
                  Debug.Print Datei.Path
            End If
        Next Datei
End Sub

Sub start()
    OrdnerDurchsuchen ("E:\musi")
End Sub

---

[Quelle]http://groups.google.de/group/microsoft.public.de.vb/browse_thread/thread/dd8c4e4830182cd9/86abfdb0197bf601?lnk=st&q=vb+verzeichnis+rekursiv+durchsuchen&rnum=1&hl=de#86abfd b0197bf601

Musst Dir dann halt in ein Array einlesen oder Du machst von dort aus einen Funktionsaufruf.

Gruss TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP