クジラ机ブログ
JScriptでExcelの表をCSVテキストとして得る

WSH/JScriptでExcelファイルをCSVのテキストデータとして取得して返すサンプル。テキストデータに変換するために、一度、CSV形式で保存して、その内容を読みだして返すという裏ワザ的なやり方をしています。

function getTextAsExcel(path) {
  // 一時書き出し用のテンポラリファイル
  var temp = getTempFile();
  var xlCSV = 6;
  // Excelを開く
  var excel = new ActiveXObject("Excel.Application");
  excel.Visible = true;
  excel.DisplayAlerts = false;
  var book = excel.Workbooks.Open(path);
  // CSVで保存
  book.SaveAs(temp, xlCSV);
  // 後始末
  book.Close();
  excel.Quit();
  // 一時ファイルを読み出す
  var res = readFile(temp);
  return res;
}
// テンポラリファイルの作成
function getTempFile() {
  var fso = new ActiveXObject("Scripting.FileSystemObject");
  var tDir = fso.GetSpecialFolder(2);
  var tFile = fso.GetTempName();
  return tDir + "\\" + tFile;
}
function readFile(fname, charset) {
  if (charset == undefined) {
    charset = "_autodetect_all";
  }
  var adTypeBinary = 1, adTypeText = 2;
  var adReadAll = -1,   adReadLine = -2;
  var s = new ActiveXObject("ADODB.Stream");
  s.Type = adTypeText;
  s.charset = charset;
  s.Open();
  s.LoadFromFile(fname);
  var text = s.ReadText(adReadAll);
  s.Close();
  return text;
}

参考 *