Dateien in einem Ordner ausser eine
08.03.2019 11:49:07
Torsten
ich moechte alle Exceldateien in einem Ordner oeffnen, dort ein Makro laufen lassen und wieder schliessen. Das habe ich in einer Do While Schleife geloest. Soweit so gut.
Jetzt moechte ich aber ein oder zwei Dateien von der Bearbeitung, also von der Schleife ausschliessen. Wie kann ich das loesen? Passt auch, wenn ich den Namen der Dateien in den Code schreiben muss.
Hier mein bisheriger Code fuer alle Dateien:
Option Explicit
Public aktWB As String, ARaktWB As String, nowWB As String, aktApp As String
Public Const path As String = "\\murplfp01\Workgroups\MUS GBC Operations\Team\CSSS\2018\ _
CSSS_Proc\Tools & Templates\Activity Tracker\"
Sub open_close()
Dim Filename As String
Filename = Dir(path & "*.xlsm")
Do While Filename ""
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False
Workbooks.Open Filename:=path & Filename, UpdateLinks:=False
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
With Workbooks(Filename)
.Activate
aktWB = ActiveWorkbook.Name
DoEvents
Application.Run (aktWB & "!all_checks")
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False
.Close savechanges:=True
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
End With
Filename = Dir()
Loop
MsgBox "Finish"
End Sub