UserForm per Script ohne Excel öffnen

Moderator: ModerationP

UserForm per Script ohne Excel öffnen

Beitragvon TheBeginner » 27. Feb 2015, 10:49

Hi,

ich möchte eine Excel UserForm öffnen, ohne dass Excel sichtbar wird.
Dazu habe ich folgenden Script:
Code: Alles auswählen
Dim objExcel
Dim objWshShell
Set objExcel = WScript.CreateObject("Excel.Application")
Set objWshShell = CreateObject("WScript.Shell")
objExcel.Visible = FALSE
objExcel.DisplayAlerts = FALSE

'Excel Datei öffnen
objExcel.WorkBooks.Open "Mein-Pfad-zur-Excel-Datei.xlsm"

'Ein Excel-Makro starten
objExcel.Run "auto_open"

'Excel schließen
objExcel.WorkBooks.Close
Set objExcel = Nothing
Set objWshShell = Nothing


Das Öffnen der UserForm klappt auch bestens.
Aber nach dem Schließen der UserForm erhalte ich folgende Fehlermeldung:
Unbekannter Laufzeitfehler
800A9C68
in der Zeile 12: -> objExcel.Run "auto_open"

Ich suche schon eine ganze Weile was mir die Fehlermeldung sagen will und wie ich die abstellen kann, leider ohne Erfolg.

Hat jemand eine Idee dazu?

Verschoben nach Excel. steve1da
Benutzeravatar
TheBeginner
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 121
Registriert: 23. Feb 2015, 15:39

Re: UserForm per Script ohne Excel öffnen

Beitragvon r.mueller » 27. Feb 2015, 10:57

Hallo

entferne die Zeile:

objExcel.Run "auto_open"

ganz
r.mueller
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 924
Registriert: 16. Jan 2015, 15:28

Re: UserForm per Script ohne Excel öffnen

Beitragvon TheBeginner » 27. Feb 2015, 11:02

Okay, die Fehlermeldung kommt nicht mehr, aber die Userform startet auch nicht.
:oops:

Ich starte die UserForm mit Auto_Open
Code: Alles auswählen
Sub Auto_Open()
UserForm1.Show
Application.WindowState = xlMinimized
End Sub
Benutzeravatar
TheBeginner
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 121
Registriert: 23. Feb 2015, 15:39

Re: UserForm per Script ohne Excel öffnen

Beitragvon r.mueller » 27. Feb 2015, 11:18

Hallo

>> aber die Userform startet auch nicht
Du schreibst aber:
>> Aber nach dem Schließen der UserForm erhalte ich folgende Fehlermeldung:
höchst eigenartig, oder wird der Code gar ein zweites mal durchlaufen?

oder schreibe mal einfach:
On Error Resume Next

über diese Zeile
r.mueller
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 924
Registriert: 16. Jan 2015, 15:28

Re: UserForm per Script ohne Excel öffnen

Beitragvon TheBeginner » 27. Feb 2015, 11:30

>> Aber nach dem Schließen der UserForm erhalte ich folgende Fehlermeldung:
höchst eigenartig, oder wird der Code gar ein zweites mal durchlaufen?


1. Ja die Fehlermeldung kommt nach dem schließen.
2. Nein der Code läuft nur einmal durch.

Code: Alles auswählen
On Error Resume Next


Genial, genial einfach.
Hätte ich auch selber drauf kommen können.

Danke!
Benutzeravatar
TheBeginner
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 121
Registriert: 23. Feb 2015, 15:39

Re: UserForm per Script ohne Excel öffnen

Beitragvon snb » 21. Aug 2015, 09:15

Alternative:

Code: Alles auswählen
Sub M_snb()
    getobject("Mein-Pfad-zur-Excel-Datei.xlsm").application.visible=false
End Sub


In "Mein-Pfad-zur-Excel-Datei.xlsm"

Code: Alles auswählen
Sub Private workbooks_open()
   userform1.show
End sub


In userform1

Code: Alles auswählen
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   Application.quit
End Sub
snb
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 7895
Registriert: 25. Sep 2014, 16:37


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste