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).
OnErrorResumeNext Set objWB = GetObject("E:\Temp\Test\Mappe4.xls")
IfNot objWB IsNothingThen objWB.Close True
Set objWB = Nothing EndSub
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" ?
PublicSub 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 EndIf EndSub
Gruß
Nepumuk
Anzeige
AW: Workbook einer anderen Instanz schließen
12.07.2009 20:20:53
Josef
Hallo Andi,
' ********************************************************************** ' Modul: Modul2 Typ: Allgemeines Modul ' **********************************************************************
OptionExplicit
Sub closeForeignWB() Dim objWB As Workbook, xlApp As Application
OnErrorResumeNext Set objWB = GetObject("E:\Temp\Test\Mappe4.xls")