Windows Scripting Host Laboratory

Windows Scripting Host Laboratory

http://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list40.shtml

C:\book1.xlsに、
Sub test(data1,data2)
Worksheets("sheet1").Cells(1, 1) = data1
Worksheets("sheet1").Cells(1, 2) = data2
End Sub

などというマクロがあったとして、

Dim objExcel As Object

Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.open FileName:="C:\book1.xls"

objExcel.Run "book1.xls!test","data1","data2"

Set objExcel = Nothing

なるれろ