パラメータを処理する
WScript.Echo("引数は" + WScript.Arguments.length + "個");
for(arguments = new Enumerator( WScript.Arguments ) ; !arguments.atEnd() ; arguments.moveNext() ){
argument = arguments.item();
WScript.Echo(argument);
}
Excelの全てのシートを処理する
if (WScript.Arguments.length < 1) {
WScript.Echo("Excelファイルを指定してください");
WScript.Quit(1);
}
excel = WScript.CreateObject("Excel.Application");
workBook = excel.WorkBooks.Open(WScript.Arguments(0), 0);
for( sheets = new Enumerator( workBook.WorkSheets ) ; !sheets.atEnd() ; sheets.moveNext() ){
sheet = sheets.item();
WScript.Echo(sheet.name);
}
excel.Quit();
テキストをファイルに出力
fso = new ActiveXObject("Scripting.FileSystemObject");
textfile = fso.CreateTextFile(fso.GetParentFolderName(WScript.ScriptFullName)+"\\test.txt", true);
textfile.WriteLine("あああ");
textfile.close();
カレントのファイルを全て処理する
fso = new ActiveXObject("Scripting.FileSystemObject");
folder = fso.GetFolder(".");
for(files = new Enumerator(folder.Files); !files.atEnd(); files.moveNext()) {
file = files.item();
WScript.Echo(file);
}
Excelのシートをテキストで保存する
if (WScript.Arguments.length < 1) {
WScript.Echo("Excelファイルを指定してください");
WScript.Quit(1);
}
fso = new ActiveXObject("Scripting.FileSystemObject");
excel = WScript.CreateObject("Excel.Application");
workBook = excel.WorkBooks.Open(WScript.Arguments(0), 0);
excel.DisplayAlerts = false;
workBook.saveas(fso.GetParentFolderName(WScript.ScriptFullName)+"\\aaa.txt", -4158);
excel.Quit();