passando argumento de vba para vbs
Eu tenho um script vb e excel página com o botão de comando.
vb script --- test.vbs
MsgBox("Hello world")
excel código 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
Quando clico no botão no Excel, ele executa oVBScript
e aMessageBox
é exibido. Agora preciso passar peloTextBox
valor deExcel VBA
paraVBScript
e esse valor deve ser exibido com issoVBScript
MessagBox
.
Como eu posso fazer isso?