VBA-Programmierung in Microsoft Excel

Aufruf eines VBScripts aus VBA

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

    

Beiträge aus dem Excel-Forum zu den Themen Extern und VBScript