2005.06.09

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

なるれろ

|

Link」カテゴリの記事

Mac&CLIE」カテゴリの記事

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/18615/4486679

この記事へのトラックバック一覧です: Windows Scripting Host Laboratory: