Pass Argument from VBS to VBA

Question

I try to call a VBA subroutine from VBS with passing a string variable from VBS to VBA, but can\'t find the appropiate syntax:

\'VBS:
\'---------------------         


        

Answer 1

You need to specify parameters in your VBA Sub and use them as you would do if using it from VBA normally.

For example, I tried the following VBScript

dim wd: set wd = GetObject(,"Word.Application")
wd.Visible = true
wd.run "test", "an argument"

and the VBA

Sub Test(t As String)
    MsgBox t
End Sub

which worked successfully, generating a message box.

Answer 2

Addendum to @user69820 answer, if arguments are VBScript variables, they need to be cast as appropriate type before calling the subroutine:

This does not work:

dim argumentVariable
argumentVariable = "an argument"
wd.run "test", argumentVariable

This does:

dim argumentVariable
argumentVariable = "an argument"
wd.run "test", CStr(argumentVariable)

Tested on Excel 2010, Win7SP1 x64