Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Frage zu VBS

Betrifft: Frage zu VBS von: Benedikt
Geschrieben am: 24.10.2020 23:36:34

Hallo zusammen
Vielleicht kann mir jemand helfen, im vorab schon Danke für eure Zeit
Mit nachfolgendem Code wird eine Userform geöffnet - funktioniert
Beim schliessen der UF kommt aber eine Fehlermeldung (Windows script)
Zeile 10 (objExcel.Run "VBS")
Fehler Unbekannter Laufzeitfehler
Code 800A9C68

Dim objExcel
Dim objWshShell
Set objExcel = WScript.CreateObject("Excel.Application")
Set objWshShell = CreateObject("WScript.Shell")
objExcel.Visible = FALSE

'Excel Datei öffnen
objExcel.WorkBooks.Open "C:\Test\Adressen\Adressen.xlsm"

'User form öffnen
objExcel.Run "VBS"
WScript.Quit

In der UF ist nachfolgender Code hinterlegt
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveWorkbook.Close SaveChanges:=False
Application.Quit

Betrifft: Erledigt ShowModal false und gut
von: Benedikt
Geschrieben am: 25.10.2020 07:18:58

.