Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1088to1092
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1088to1092
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook einer anderen Instanz schließen

Workbook einer anderen Instanz schließen
andreas78
Hi liebes Forum-
komm nicht mehr weiter.
wie kann ich elegant mittels VBA aus einer Instanz heraus ein Workbook einer anderen Instanz schließen (Pfad bekannt).

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

Betreff
Benutzer
Anzeige
AW: Workbook einer anderen Instanz schließen
12.07.2009 18:50:49
Josef
Hallo Andreas,
Sub closeForeignWB()
  Dim objWB As Workbook
  
  On Error Resume Next
  Set objWB = GetObject("E:\Temp\Test\Mappe4.xls")
  
  If Not objWB Is Nothing Then objWB.Close True
  
  Set objWB = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Workbook einer anderen Instanz schließen
12.07.2009 20:08:06
andreas78
Tausend, tausend Dank.
Nur noch ein kleines problemchen hinterher-
Wie schaffe ich es, dass auch die Gesamte Excel-Applikation der "anderen Instanz" geschlossen wird, falls sich dort kein geöffnetes Workbook mehr befindet.
lieber gruss andi
AW: Workbook einer anderen Instanz schließen
12.07.2009 20:16:25
Nepumuk
Hallo Andi,
bist du dir das sicher mit deiner Einschätzung "VBA gut" ?
Public Sub Test()
    Dim objWorkbook As Workbook
    Set objWorkbook = GetObject(PathName:="C:\Test.xls")
    objWorkbook.Saved = True
    If objWorkbook.Parent.Workbooks.Count = 1 Then
        objWorkbook.Parent.Quit
    Else
        objWorkbook.Close
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Workbook einer anderen Instanz schließen
12.07.2009 20:20:53
Josef
Hallo Andi,
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub closeForeignWB()
  Dim objWB As Workbook, xlApp As Application
  
  On Error Resume Next
  Set objWB = GetObject("E:\Temp\Test\Mappe4.xls")
  
  If Not objWB Is Nothing Then
    If objWB.Parent.Workbooks.Count = 1 Then Set xlApp = objWB.Parent
    objWB.Close True
    If Not xlApp Is Nothing Then xlApp.Quit
  End If
  
  Set objWB = Nothing
  Set xlApp = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Workbook einer anderen Instanz schließen
12.07.2009 18:50:52
Nepumuk
Hallo,
einfach so:
Public Sub Test()
    Dim objWorkbook As Workbook
    Set objWorkbook = GetObject(PathName:="C:\Test.xls")
    objWorkbook.Close SaveChanges:=False
End Sub

Gruß
Nepumuk
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige