Probleme mit 2. Excelinstaz unter Windows7
29.11.2013 13:07:58
Christian
ich öffne eine Userform mit Klassenmodul (habe den Code damals hier aus dem Forum gezogen) in einer 2. Excelisntanz über eine Datei aus der 1. Excelinstanz heraus mit folgendem VBA-Code, unter Windows XP kein Problem.
Sub Instanz2()
Dim objXL As Object
Dim Pfad As String, nam As String
Pfad = ThisWorkbook.Path & "\Test.xls"
Set objXL = CreateObject("Excel.Application")
objXL.Visible = True
objXL.WindowState = -4137
On Error Resume Next
objXL.Workbooks.Open Pfad
If Err Then objXL.Quit
Set objXL = Nothing
End Sub
Ich habe jetzt Windows7 und habe das Problem, dass beim ersten Öffnen der Datei in der 2.Excelanwendung diese Fehlermeldung kommt:Microsoft Excel wartet auf die Beendigung einer OLE-Action in einer anderen Anwendung
Ich muss die Datei, aus der ich die 2.Excelinstanz über Makro starte, dann über den Task-Manager beenden, dann startet die Datei mit der UF. Bei allen weiteren Öffnungen funktioniert das dann aber aus der 1.Excelinstanz heraus einwandfrei. Das muss mit dem klassenmodul für die UF zu tun haben, da das Öffnen anderer Dateien ohne Klassenmodul in der 2.Excelinstanz mit dem o.a. Code kein Problem darstellt.
Ich habe exemplarisch die beiden Dateien mit den entsprechenden Codes angehängt, vielleicht ist es ja nur eine Kleinigkeit. Wäre super, wenn mir jemand weiterhelfen könnte.
https://www.herber.de/bbs/user/88312.xls
(Datei zum Öffnen)
https://www.herber.de/bbs/user/88313.xls
(zu öffnende Datei, Name Test.xls)
Gruß
Christian