お前ら、wsh使ってますか？ Part2

>427
C:\book1.xlsに、
Sub test(data1,data2)
Worksheets("sheet1").Cells(1, 1) = data1
Worksheets("sheet1").Cells(1, 2) = data2
End Sub
というマクロがあるとして、VBS側に
Dim oExcel
Set oExcel = WScript.CreateObject("Excel.Application")
oExcel.Workbooks.open "C:\book1.xls"
oExcel.Run "test","data1","data2"
Set oExcel = Nothing
で、VBSからVBAマクロを引数付で動かせます。あとは工夫次第でいかようにも。

>428
横ﾚｽthx。なんとなくどこら辺に問題を抱えているのかが見当がついた。
確かめていないし、確実な事はこちらの方からは何もいいだせないけれどね。

>429
まぁ、ひとまずおちけつ。こんなコードではエラーも出ないというところまで絞ってから、
積み重ねていった方が良く出来る。
VBAのサンプルﾄﾞｿﾞｰ。
Sub test()
ChDir "C:\WINNT\SYSTEM32"
s = Application.GetOpenFilename()
End Sub