Цитата: ( http://programmersforum.ru/showthread.php?t=166456 )  
 
"Благодарю Hugo121. Буду разбираться."  
 
Не разобрались? Зачем этот кросспостинг? На всех форумах по Excel отвечают в основном одни и те же специалисты.

А вот если надо так - скриптом открыть файл, и чтобы сработал его макрос автозапуска, и вывел число, переданное по параметру - вот именно так вероятно не получится.  
Можно отключить Экселю события, открыть файл, прописать куда нужно что нужно, потом принудительно запустить макрос из файла (или сохранить/закрыть файл, включить события, снова открыть файл.)  
Но макрос при запуске должен быть не    
  MsgBox "Test", а хотя бы    MsgBox [A1] - а в A1 можно скриптом поместить параметр.
Вы луше объясните, что именно хотите достичь - может быть найдётся другое решение.

Практически например вот: я Эксель с новой книгой открываю из Тотала таким vbs скриптом:  
 
 
 
Dim objExcel  
 
ActivateExcel  
 
objExcel.Workbooks.Add  
 
Private Function ActivateExcel()  
On Error resume next    
Set objExcel = GetObject(, "Excel.Application")  
If objExcel Is Nothing Then  
Set objExcel = CreateObject("Excel.Application")  
objExcel.Workbooks.Open ("c:\Documents and Settings\Игорь\Application Data\Microsoft\Excel\XLSTART\MyFunc.xls")  
objExcel.Workbooks.Open ("c:\Documents and Settings\Игорь\Application Data\Microsoft\Excel\XLSTART\NUMBERLAT.XLS")  
objExcel.Workbooks.Open ("c:\Documents and Settings\Игорь\Application Data\Microsoft\Excel\XLSTART\PERSONAL.XLS")  
objExcel.Visible = True  
End If  
End Function  
 
 
 
Если Эксель уже открыт - то просто создаётся новая книга.  
Если закрыт - после открытия Экселя ещё открываются книги из папки автозапуска.  
Сюда вполне можно добавить занесение WScript.Arguments.Item(0) в любое место открываемого документа.  
А нужную книгу открывать вместо  
objExcel.Workbooks.Add  
 
Так расскажите, что именно нужно получить в итоге?

Допустим значение "1515" нужно прописать в ячейку А1.  
Как изменить строку WScript.Arguments.Item(0)?  
 
Будет ли макрос "Test" запускаться простым Call Test в скрипте?

Например так:  
 
Dim objExcel, wb  
 
ActivateExcel  
 
set wb=objExcel.Workbooks.Open ("c:\Temp\4Brod9ga\testfile.xls")  
wb.sheets(1).Range("a1").value =  WScript.Arguments.Item(0)  
 
objExcel.Application.OnTime Now, "Кнопка1_Щелчок"  
 
Private Function ActivateExcel()  
On Error resume next    
Set objExcel = GetObject(, "Excel.Application")  
If objExcel Is Nothing Then  
Set objExcel = CreateObject("Excel.Application")  
objExcel.Workbooks.Open ("c:\Documents and Settings\Игорь\Application Data\Microsoft\Excel\XLSTART\MyFunc.xls")  
objExcel.Workbooks.Open ("c:\Documents and Settings\Игорь\Application Data\Microsoft\Excel\XLSTART\NUMBERLAT.XLS")  
objExcel.Workbooks.Open ("c:\Documents and Settings\Игорь\Application Data\Microsoft\Excel\XLSTART\PERSONAL.XLS")  
objExcel.Visible = True  
End If  
End Function  
 
 
 
Кнопка1_Щелчок - это    
 
Sub Кнопка1_Щелчок()  
UserForm1.Show  
End Sub  
 
Т.е. если эта форма при запуске будет брать значение из ячейки (например, если переменная не задана первой формой, то берём с листа), то должно сработать.  
Только потом форма должна сразу это значение на листе затереть, ну или это должна сделать первая форма.  
 
Но вот как задать скриптом значение переменной в макросе файла - пока не нашёл.