Excel Macro

set xlapp=createobject("Excel.Application")

xlapp.visible=true

xlapp.displayalerts=False

set xlbook=xlApp.Workbooks.open("C:\xls\030526.xls")

xlApp.run("Macro1")

msgbox xlbook.worksheets("sheet1").Range("A" & 2).value
xlbook.worksheets("sheet1").Range("A" & 1).value="test_test"

xlApp.Quit

set xlbook=nothing
set xlApp=nothing

msgbox Err.Description

VB.NETからExcelを操作するコードのサンプル
http://d.hatena.ne.jp/cofe_arabi/20050626