Hilfe bei Mappen schließen
21.02.2005 10:03:02
Steffen
ich möchte über VBA alle Mappen (wenn geöffnet) eines Verzeichnes (mit Unterordner) schließen lassen. Da ich nicht so bewandert bin mit VBA habe ich
mir als Versuch selbst was zusammen gebastelt. Das ist sich totaler Quatsch was
ich hier gemacht habe und brauch daher eure Hilfe.
Danke
Sub Schließen()
On Error Resume Next
Const verz = "D:\Archiv\Abrechnungen"
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.xls"
.Execute
End With
For y = 1 To Application.FileSearch.FoundFiles.Count
Application.DisplayAlerts = True
Set quelle = AktiveWorkbooks.Close(Application.FileSearch.FoundFiles(y))
Next
End Sub