MS-ExcelファイルをCSV形式で保存するWSHスクリプト

唐突に、WSHスクリプト(JScript)を作ったので覚え書きのために残しておく。

// saveAsCsv.js

// Excelファイル名(拡張子".xls"は除いた名前)
var filename = "Book1";

// カレントディレクトリ
var WshShell = WScript.CreateObject("WScript.Shell");
var currentDirectory = WshShell.CurrentDirectory;

var xlsFileName = filename + ".xls";
var xlsFilePath = currentDirectory + "\\" + xlsFileName;
var csvFilePath = currentDirectory + "\\" + filename + ".csv";

// ExcelのApplicationオブジェクトを取得
var exelApplication = WScript.CreateObject("Excel.Application");
// メッセージダイアログ表示の抑制
exelApplication.DisplayAlerts = false;

try {
  exelApplication.WorkBooks.Open(xlsFilePath);
  var book1 = exelApplication.Workbooks(xlsFileName);
  var sheet1 = book1.Worksheets(1);

  // CSVで保存 (6 は 定数XlFileFormat.xlCSV の値)
  sheet1.SaveAs(csvFilePath, 6);

  WScript.Echo("Saved.");
} catch(e) {
  // エラー発生
  WScript.Echo("error: " + e.description);
} finally {
  // Excelを終了
  exelApplication.Quit();
}