vba - 将参数从 vba 传递到 vbs

Question

我有一个带有命令按钮的 vb 脚本和 excel 页面。

vb 脚本---test.vbs

MsgBox("Hello world")

excel vba 代码

Private Sub CommandButton1_Click()
  Dim SFilename As String
    SFilename = "C:\Users\mkamaraj\Desktop\test.vbs" 'Change the file path

    ' Run VBScript file
    Set wshShell = CreateObject("Wscript.Shell")
    wshShell.Run """" & SFilename & """"
End Sub

当我单击 Excel 中的按钮时，它会执行 VBScript和 MessageBox显示。现在，我需要通过 TextBox 值 来自 Excel VBA至 VBScript并且该值应该与 VBScript 一起显示 MessagBox .

我该怎么做？

Answer 1

您可以将参数发送到 VBScript。看看下面的链接:

Can I pass an argument to a VBScript (vbs file launched with cscript)?

脚本:

MsgBox("Hello " & WScript.Arguments(0))

VBA:

Private Sub CommandButton1_Click()
  Dim SFilename As String
    SFilename = "C:\Users\mkamaraj\Desktop\test.vbs " & """Something Else""" 'Change the file path

    ' Run VBScript file
    Set wshShell = CreateObject("Wscript.Shell")
    wshShell.Run """" & SFilename & """"
End Sub