Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Hilfe bei Mappen schließen"
Blätter in andere Arbeitsmappen kopieren Variablenübergabe in andere Arbeitsmappen
Bezüge auf Namen in anderen Mappen aufheben Zugriff auf geschlossene Arbeitsmappen
1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen Arbeitsmappen-History erstellen
Alle Arbeitsmappen außer einer schließen Auslesen der Arbeitsmappeneigenschaften
Geöffnete Arbeitsmappen mit Arbeitblättern listen Alle Arbeitsmappen schließen bzw. Excel beenden