Gruppe
Extern
Problem
Der Aufruf eines VBScripts (mit einfacher Meldung) soll demonstriert werden.
StandardModule: Modul1
Sub Aufruf()
Dim v As Variant
Dim sPath As String
sPath = ThisWorkbook.Path & "\message.vbs"
If Dir(sPath) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
v = Shell( _
"wscript c:\hwh\excel\support\forum\message.vbs ""Hans W. Herber"" " _
& Now, vbHide)
End Sub