Office: Datei in 2. Excel-Instanz starten

Hallo Experten,

ich habe folgendes Problem und benötige Hilfe. Ich möchte gerne eine kleine Excel-Anwendung direkt in einer 2. Excel-Instanz starten. Das soll allerdings nur dan der Fall sein, wenn bereits eine Instanz besteht. d.h. also vorher prüfen, ob eine offen ist.

Habe folgendes codiert und in der zu startenden Datei unter "DieseArbeitsmappe" abgelegt.

Option Explicit
Public objExcel As Object

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Call Menueleiste_Einblenden
Set objExcel = Nothing
Call FarbeEnde
ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_Open()
Stop
'prüfen, ob bereits ein Excel gestartet ist.
Dim objWMI As Object
Dim ExcelInstanzen As Integer
Set objWMI = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("select * from win32_process where name='excel.exe' ")
ExcelInstanzen = objWMI.Count
'neue Excel-Instanz starten
If ExcelInstanzen > 0 Then
Call ZweiteInstanz
'beim Oeffnen der Datei wird das Startformular geladen und angezeigt
'Stop
Sheets("Start").Range("H21").Value = ""
Call Tabellenblätter_Ausblenden
Load frmStart
frmStart.Show
End If
End Sub

Public Function ZweiteInstanz() As Variant
Application.ScreenUpdating = False
Dim xlApp As New Excel.Application
Dim WB As Workbook
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set WB = xlApp.Workbooks.Open(ActiveWorkbook)
Application.ScreenUpdating = True
End Function

Der Debugger meldet keinen Fehler, aber dennoch wird keine 2. Instanz geöffnet. Wer weis Rat, was hier falsch läuft?
Vielen Dank vorab für Eure Ratschläge.
Gruß
vino

:)

 

Hallo vino,

mal eine Denkaufgabe:
Das Makro läuft in einer Excelmappe. Können zu diesem Zeitpunkt also 0 Instanzen von Excel laufen?

Die Zeile
Code:

wird so nicht laufen, vermutlich ist gemeint:
Code:

Dann greift aber:
Code:

worin wieder einer neue Instanz mit dem aktiven Workbook geöffnet wird, was wiederum dazu führt, dass.... Du weiß, schon, was ich meine.

Die 2. Instanz wird übrigens anstandslos bei mir geöffnet. Woran erkennst Du, dass es bei Dir nicht klappt?

Grüße
EarlFred

 

Hallo EarlFred,

bin leider erst jetzt dazu gekommen mich des Themas erneut anzunehmen. Es bewahrheitet sich mal wieder, der Dau sitzt vor dem Rechner. Du hast natürlich vollkommen recht, die Prüfung nach einem offenem Excel macht keinen Sinn.
Dennoch es ist mir noch nicht klar, wie ich meine Datei per Doppelklick in einer neuen Instanz öffnen kann. Wo muss der Code abgelegt werden?

Weitere Versuche haben in einer Endlosschleife geendet, so wie von Dir prognostiziert. Lasse ich den Set WB .... weg wird meine Datei geöffnet und zusätzlich eine leere 2. Instanz. Schließe ich dann meine Datei, werden beide Excel geschlossen, was so nicht beabsichtigt war.

Weis mir keinen Rat wie es klappen soll. Weitere Recherchen waren bisher erfolglos. Wäre für weitere Hilfe dankbar.

Gruss Vino