Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

geöffnete Arbeitsmappen eines Pfads schließen

geöffnete Arbeitsmappen eines Pfads schließen
28.03.2007 10:26:48
Wilfried
Hallo und guten Morgen,
ich möchte per VBA alle geöffneten Arbeitsmappen aus einem genannten Pfad ohne speichern schließen.
Der Pfad z.B: C:\eigene Dateien ist in Tabelle1, Zelle A1 hinterlegt
besteht die Möglichkeit, den folgenden Code der alle geöffneten Dateien schließt entsprechend zu erweitern?

Sub AlleMappenSchließenMitSpeichern()
Dim Mappe As Workbook
For Each Mappe In Application.Workbooks()
Mappe.Close savechanges:=True
Next Mappe
End Sub
Ich würde mich über eine Antwort sehr freuen
Gruß
Wilfried

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: geöffnete Arbeitsmappen eines Pfads schließen
28.03.2007 10:33:00
Oberschlumpf
Hi Wilfried
Versuch mal so (ungetestet):

Sub AlleMappenSchließenMitSpeichern()
Dim Mappe As Workbook, lstrFile As String
For Each Mappe In Application.Workbooks()
lstrFile = Dir(ThisWorkbook.Sheets("Tabelle1").Range("A1").Value & "\" & Mappe.Name)
If Mappe.Name  ThisWorkbook.Name And lstrFile  "" Then
Mappe.Close savechanges:=True
End If
Next Mappe
End Sub
Konnte ich helfen?
Ciao
Thorsten
AW: geöffnete Arbeitsmappen eines Pfads schließen
28.03.2007 10:58:00
Wilfried
Super Thorsten,
genauso hatte ich es mir vorgestellt!!
Vielen Dank für Deine schnelle Hilfe.
Wilfried
AW: geöffnete Arbeitsmappen eines Pfads schließen
28.03.2007 10:43:00
Rudi
Hallo,

Sub AlleMappenSchließenMitSpeichern()
Dim Mappe As Workbook
For Each Mappe In Application.Workbooks()
If Mappe.Path = Range("A1") And Not Mappe Is ThisWorkbook Then Mappe.Close savechanges:= _
True
Next Mappe
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: geöffnete Arbeitsmappen eines Pfads schließen
28.03.2007 10:49:06
Case
Hallo,
probier mal so - es wird nicht gespeichert:
Option Explicit
Sub AlleMappenSchließenMitSpeichern()
Dim Mappe As Workbook
For Each Mappe In Application.Workbooks()
If Mappe.Name  ThisWorkbook.Name And Mappe.Path = Range("A1").Text Then
Mappe.Close False
End If
Next Mappe
End Sub
Servus
Case
Vielen Dank Thorsten, Rudi und Case -es klappt
28.03.2007 11:08:00
Wilfried
Vielen Dank Thorsten, Rudi und Case -es funktioniert
Ich habe mich über Eure schnelle Unterstützung sehr gefreut.
Gruß
Wilfried

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige