<sample01.js>
var oExcel = new ActiveXObject("Excel.Application");
var target_file = oExcel.GetOpenFilename("読み込み (*.*),*");
var a01 = oExcel.InputBox("prompt","Title","Default");
oExcel.Quit();
delete oExcel;
WScript.Echo(target_file);
WScript.Echo(a01);
その他のやり方1
<sample02.bat>.BATにして動かす
@if(0)==(0) ECHO OFF
C:\Windows\SysWOW64\WScript.exe //NoLogo //E:JScript "%~f0" %1
GOTO :EOF
@end
var nVBS = new ActiveXObject("ScriptControl");
nVBS.Language = "VBScript";
nVBS.AddCode("Function func_msgbox(a01) " + "\n" +
" func_msgbox = MsgBox(a01)" + "\n" +
"End Function " + "\n" +
"Function func_inputbox(prompt,title,default) " + "\n" +
" func_inputbox = inputBox(prompt,title,default)" + "\n" +
"End Function");
var oVBS = nVBS.CodeObject;
WScript.Echo(oVBS.func_msgbox("aaaaa"));
WScript.Echo(oVBS.func_inputbox("Prompt","Title","Default"));