【vbs から vba マクロ呼び出し】

ここを編集

test.vbs

Dim objExcel
Set objExcel = CreateObject("Excel.Application")
 
objExcel.Visible = False
With objExcel
    .Workbooks.Open "C:\Users\draem_000\Documents\Dropbox\test.xls"
    .Run "'test.xls'!testfunc", CStr(Wscript.Arguments(0))
    .Quit
End With
objExcel.Visible = True
 
Set objExcel = Nothing
 

test.xls

Public Sub testfunc( _
    ByVal sArg1 As String _
)
    MsgBox sArg1
End Sub
 

ここを編集