Das Archiv des Excel-Forums

Alle geöffneten verknüpften Mappen schliessen (VBA

Bild

Betrifft: Alle geöffneten verknüpften Mappen schliessen (VBA
von: Wilfried

Geschrieben am: 10.10.2003 08:59:00

Hallo
Ich habe das unten stehende Makro zum Öffnen aller verknüpften Mappen einer Excelmappe.
Wie kann man das Makro ändern um alle diese Mappen wieder zu schließen?

Frage in Kurzform:
Alle geöffneten verknüpften Mappen einer Excelmappe sollen geschlossen werden (VBA)



Sub ÖffnenAllerVerknüpftenArbeitsmappen()
Dim Links As Variant
Links = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Links) Then
For i = 1 To UBound(Links)
Workbooks.Open Links(i)
Next i
Else
MsgBox "Diese Arbeitsmappe hat keine Verknüpfungen zu anderen Mappen!"
End If
End Sub



Vielen Dank für Eure Hilfe
Wilfried
Bild


Betrifft: AW: Alle geöffneten verknüpften Mappen schliessen (VBA
von: ChrisL
Geschrieben am: 10.10.2003 11:39:26

Hi Wilfried


Sub SchliessenAllerVerknüpftenArbeitsmappen()
Dim Links As Variant
Links = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Links) Then
For i = 1 To UBound(Links)
Workbooks.Close Links(i)
Next i
Else
MsgBox "Diese Arbeitsmappe hat keine Verknüpfungen zu anderen Mappen!"
End If
End Sub



Gruss
Chris


Bild


Betrifft: Jetzt: Fehler beim Kompelieren
von: Wilfried
Geschrieben am: 10.10.2003 13:36:57

Hallo Chris
Vielen Dank für die schnelle Hilfe.
Ich habe dein Makro ausprobiert.

In der Zeile: "Workbooks.Open Links (i)" erscheint jetzt:
Fehler beim Kompelieren:
Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft

Hast Du vielleicht noch eine Idee??


GRuß
Wilfried


Bild


Betrifft: AW: Jetzt: Fehler beim Kompelieren
von: ChrisL
Geschrieben am: 10.10.2003 14:26:52

Hi Wilfried

Hab es nicht getestet, aber Workbooks.Open kommt im Code gar nicht mehr vor.

Gruss
Chris


Bild


Betrifft: AW: Jetzt: Fehler beim Kompelieren
von: Wilfried
Geschrieben am: 10.10.2003 14:48:32

Hallo Chris

Die Fehlermeldung kommt natürlich bei Workbooks.Close Links(i)

Ich probiere schon die ganze Zeit, könnte es sein das der Weg in der Schleife darüber führt:

Windows("September.xls").Activate
ActiveWindow.Close

Mit einem Dateinamen funktioniert das Makro. ------Aber:
Ich bekomme die Variable für die Dateinamen nicht hin (Links(i))funktioniert nicht !!

Oder bin ich jetzt völlig auf dem Holzweg?


Wilfried


Bild


Betrifft: AW: Jetzt: Fehler beim Kompelieren
von: ChrisL
Geschrieben am: 10.10.2003 14:56:13

Versuch mal...

Workbooks(Links(i)).Close

Gruss
Chris


 Bild

Excel-Beispiele zum Thema " Alle geöffneten verknüpften Mappen schliessen (VB"

Blätter in andere Arbeitsmappen kopieren download Variablenübergabe in andere Arbeitsmappen download
Bezüge auf Namen in anderen Mappen aufheben download Zugriff auf geschlossene Arbeitsmappen download
1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen download Arbeitsmappen-History erstellen download
Alle Arbeitsmappen außer einer schließen download Auslesen der Arbeitsmappeneigenschaften download
Geöffnete Arbeitsmappen mit Arbeitblättern listen download Alle Arbeitsmappen schließen bzw. Excel beenden download
Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern download Offene Arbeitsmappen in Dialog listen download
Spalte A mehrer Mappen in UserForm und aktives Blatt download Arbeitsmappen-Titel über benutzerdefinierte Funktion download
Arbeitsmappen eines Verzeichnisses ändern download Aus Excel heraus eine Email ohne Arbeitsmappenanlage versenden download
Arbeitsmappen- und Tabellenblattnamen auslesen download Alle Arbeitsmappen eines Verzeichnisses öffnen download
Blatttyp und Arbeitsmappennamen prüfen download Sicherheitskopien von Arbeitsmappen speichern download
Mehrere Arbeitsmappen per Outlook an einen Empfänger download Daten aus geschlossenen Arbeitsmappen listen download
Einlesen von Arbeitsmappen in ein TreeView-Steuerelement download Vorkommen eines Wortes in Arbeitsmappen eines Verzeichnisse download
Aufteilen der Arbeitsblätter in neue Arbeitsmappen download Geöffete Arbeitsmappen in Menü-ComboBox listen download
Aus einer Serie von Arbeitsmappen einen Bereich sammeln download Auswechseln der Excel- und Arbeitsmappen-Icons download
Benannte Bereich aus mehreren Arbeitsmappen importieren download Werte aus geschlossenen Arbeitsmappen einlesen download
DoubleClick-Ereignis für alle Arbeitsmappen initialisieren download Eintrag von Werten in verschiedene Arbeitsmappen download
Arbeitsmappen öffnen und Bereiche kopieren download Arbeitsmappen gem. Liste an Email-Adressen versenden download
Neue Arbeitsmappen mit Optionsfeldern erstellen download Werte aus anderen Arbeitsmappen importieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Arbeitsmappe schliessen, wenn kein Eintrag in TextBox erfolgt download