Hilfe bei Mappen schließen

Bild

Betrifft: Hilfe bei Mappen schließen
von: Steffen
Geschrieben am: 21.02.2005 10:03:02
Guten Morgen,
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

Bild

Betrifft: AW: Hilfe bei Mappen schließen
von: alex
Geschrieben am: 21.02.2005 11:58:52
eine möglichkeit von vielen

Sub Schließen()
Dim daten_im_verz() As String
Dim off_dat() As String
Dim verz As String
  'On Error Resume Next
   verz = "C:\test\"
  With Application.FileSearch
   .NewSearch
   .LookIn = verz
   .SearchSubFolders = True
   .FileName = ".xls"
    If .Execute > 0 Then
 
 
 ReDim daten_im_verz(1 To Application.FileSearch.FoundFiles.Count)
    For y = 1 To Application.FileSearch.FoundFiles.Count
     daten_im_verz(y) = Application.FileSearch.FoundFiles(y)
    Next
End If
End With
ReDim off_dat(1 To Workbooks.Count)
For i = Workbooks.Count To 1 Step -1
off_dat(i) = Workbooks(i).Name
        For ii = 1 To UBound(daten_im_verz)
             If off_dat(i) = Dir(daten_im_verz(ii)) Then
             Application.DisplayAlerts = False
             Windows(off_dat(i)).Close
             Application.DisplayAlerts = True
             Exit For
             End If
        Next ii
Next
    
End Sub

Bild

Betrifft: AW: Hilfe bei Mappen schließen
von: Steffen
Geschrieben am: 21.02.2005 12:15:19
Hallo Alex,
funktioniert das auch wenn ein anderer User diese Datei geöffnet hat???
Wird die Datei vor dem schließen gespeichert?
Ich habe von sowas nicht viel Ahnung.
Danke
Steffen
Bild

Betrifft: AW: Hilfe bei Mappen schließen
von: alex
Geschrieben am: 21.02.2005 13:35:14
das Makro läuft auf dem Rechner und kümmert sich nur um die offnen Dateien auf diesen Rechner .Gespeichert wird nicht. Aber wenn Du die Anweisungen Application.DisplayAlerts = True/False löschst, fragt Excel vor dem schließen nach, ob es gespeichert werden soll.
man könnte auch ein speichern einbauen.
Bild

Betrifft: AW: Hilfe bei Mappen schließen
von: Steffen
Geschrieben am: 21.02.2005 13:38:03
Ist es auch möglich das die Dateien auch geschlossen werden wenn ein anderer User
diese geöffnet hat???
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Hilfe bei Mappen schließen"