Gruppe
Extern
Bereich
VBScript
Thema
Aufruf eines VBScripts aus VBA
Problem
Der Aufruf eines VBScripts (mit einfacher Meldung) soll demonstriert werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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