Dateien in Unterverzeichnisse
14.10.2014 13:29:35
dip
Gerne würde ich folgende Problemstellung in das Forum einbringen, in der Hoffnung, jemand kann mir weiterhelfen :-)
Ich habe folgendes Makro:
Option Explicit
Const strPath As String = "C:\Users\xxx\EditBox\" 'Verzeichnis anpassen!!!
Sub Main()
Dim strDateiname As String
Dim wkbBook As Workbook
Dim lngLastRowQ As Long
Dim lngLastRowZ As Long
Dim lngLastCol As Long
Dim intCalc As Integer
Dim i As Long
On Error GoTo Fin
With Application
.ScreenUpdating = False
.AskToUpdateLinks = False
.EnableEvents = False
intCalc = .Calculation
.Calculation = xlCalculationManual
.DisplayAlerts = False
End With
'strDateiname = Dir$(ThisWorkbook.Path & "\*.xls") Dateityp anpassen!!!
strDateiname = Dir$(strPath & "\*.xlsm")
Do While strDateiname ""
If strDateiname ThisWorkbook.Name Then
Set wkbBook = Workbooks.Open(strPath & strDateiname)
' Start des Codes!!!
' Ende des Codes!!!
wkbBook.Close savechanges:=True ' True wenn gespeichert werden soll, False wenn _
nicht!!!
Set wkbBook = Nothing
End If
strDateiname = Dir$()
Loop
Fin:
Set wkbBook = Nothing
With Application
.ScreenUpdating = True
.AskToUpdateLinks = True
.EnableEvents = True
.Calculation = intCalc
.DisplayAlerts = True
End With
If Err.Number 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
MsgBox "Done!", vbInformation
End Sub
Mit diesem Makro werden alle Dateien in einem bestimmten Verzeichnis geöffnet, das entsprechende Makro ausgeführt (zwischen "Start des Codes" und "Ende des Codes"), und die Datei abgespeichert.
Nun würde ich gerne, dass auch alle Dateien in den Unterordnern in diesem Verzeichnis geöffnet, bearbeitet und abgespeichert werden.
Wie müsste das Makro geändert/ergänzt werden, damit auch alle Dateien in den Unterverzeichnissen mitberücksichtigt werden?
Ich bin für jeden Tipp/Hilfe sehr dankbar!
Beste Grüsse
Patrick