JScriptメモ

パラメータを処理する

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();