Exceldatei mit Userform in eigener Instanz

chris · 2009-01-20T14:54:25+00:00

Hallo VBA experten, ich habe ein Problem und eine frage gleichzeitig. Ich habe eine Datei erstellt mit einer Userform. Ich möchte nun das diese Exceldatei in einer eigenen Instanz von Excel geöffnet wird. Deshallb verwende ich eine Extra Datei.Ich habe also zwei dateien. Die eine in der Sich die userform befindet und in der anderen nur dieser Code zum öffnen. 'Mein Code zum öffnen der Userform datei. Option Explicit Dim xlAnw Private Sub Workbook_Open() Set xlAnw = CreateObject("Excel.Application") 'neue Instanz von Excel erstellen xlAnw.Workbooks.Open ("c:\test.xls") ' Auswertungsdatei in neuer Instanz von Excel starten ThisWorkbook.Close False End Sub In dem oben gezeigten Code wird eine neue INstanz von Excel erzeugt und in dieser wird meine "Userform Datei" geöffnet. Dann soll bzw wird die öffner datei wieder geschlossen.(aber nicht ganz irgendwie. Kann mir jemand sagen wie ich das hinbekomme so das die "userform datei" geöffnet wird und ich dann nur noch die userform auf dem bildschirm habe und wenn ich auf den Button beenden auf der userform klicke das dann diese "neue" INstanz von Excel geschlossen wird ? ich hoffe ich konnte es einigermaßen erklären was ich wollte. Dafür vielen dank im vorraus für eure Hilfe. Sollten noch fragen offen sein hoffe ich das ich diese noch erklären kann. Vielen dank gruß Chris

Hallo Tino Hallo Hajo,
ich habe es gerade gestestet was Tino mir gepostet hat.
Habe eine Datei mit diesen Makros.
'Code1 in einem Modul.
Option Explicit
Dim myXL_Application As Object
Dim anz


Private Sub Workbook_Open_aus()
On Error GoTo error
Set myXL_Application = CreateObject(Class:="Excel.Application")
myXL_Application.Workbooks.Open "c:\testUserformdatei.xls" ' Auswertungsdatei in neuer Instanz  _
von Excel starten
myXL_Application.WindowState = xlMaximized
myXL_Application.Visible = False
Set myXL_Application = Nothing
error:
anz = zaehle_wb
If Workbooks.Count - anz - 1

'Code2 in einem Modul.
Option Explicit


Public Function zaehle_wb()
Dim wb As Workbook
Dim InI As Integer
For Each wb In Application.Workbooks
If Application.Windows(wb.Name).Visible = False Then InI = InI + 1
Next
'MsgBox "von " & Workbooks.Count & " sind " & InI & " ausgeblendet"
zaehle_wb = InI
End Function

es klappt auch alles wunderbar bis auf eines.
Ich starte die erster datei mit den Makros.
diese öffnet mir dann diese Excel Datei (c:\testUserformdatei.xls)
Diese wird ausgeblendet so das nur noch die userform zu sehen ist.
Das ist auch richtig so nur ein problem habe ich jetzt.
Wenn ich auf der userform auf den Button "beenden" klicke wird folgender code ausgeführt.


Private Sub btn_programm_close_Click() 'file close save data
Application.Quit
End Sub

Danach ist die userform geschlossen.und auch kein Excel mehr zu sehen.
Wenn ich aber in den Taskmanager gehe sehe ich dort.
Excel.exe was mir ja sagt das Excel irgendwo noch geöffnet ist.
Wie kann ich das verhindern.Also wie erreiche ich das auch dort das Excel geschlossen ist ?
Vielen dank noch einmal an euch !
gruß Chris

Hallo,
ich habe es bei mir jetzt mal so getestet unter xl2007.
In der Startdatei:


Private Sub Workbook_Open()
On Error GoTo error
Dim myXL_Application As Object
Set myXL_Application = CreateObject(Class:="Excel.Application")
myXL_Application.WindowState = xlMaximized
myXL_Application.Visible = False
myXL_Application.Workbooks.Open "J:\1 Forum\U2.xls"
error:
ThisWorkbook.Saved = True
If Workbooks.Count = 1 Then
Application.Quit
Else
ThisWorkbook.Close False
End If
End Sub

In der Datei mit der Userform: ************************
'In DieseArbeitsmappe


Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:01"), "StartU2"
End Sub

'In einem Modul


Sub StartU2()
UserForm1.Show
End Sub

'beenden Button auf Userform


Private Sub CommandButton1_Click()
ThisWorkbook.Saved = True
Application.Quit
End Sub

Gruß Tino

Exceldatei mit Userform in eigener Instanz

Forumthread: Exceldatei mit Userform in eigener Instanz

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial