データベースから書き出したHTMLテーブルをエクセルのシートに取り込む

質問

データベースから書き出したHTMLテーブルをエクセルのシートに取り込むというプログラムをJavaScriptで書いています。

エクセルのオートシェイプをJavaScriptでエクセルのシート上に書き出したいのですが、どうも上手くいきません。

どうすれば良いか教えてください。

以下のようなソースを書いてみました。

function createShape() {

var excel = new ActiveXObject("Excel.Application");// OLEオブジェクトの生成
excelVisibility = _visibility;
excel.Visible = this.excelVisibility;// エクセルの可視化：真偽値
excel.DisplayAlerts = false;// 確認ダイアログを表示するかどうか：常にfalseでOK

var workBook = excel.Workbooks.Add(); // ブックを設定
var workSheet = workBook.Worksheets.Add(); // シートを設定

// 長方形を書いてみる：ここでエラーになっていた
workSheet.Shapes.AddShape(Microsoft.Office.Core.MsoAutoShapeType.msoShapeRectangle, 301.0, 142.0, 163.0, 82.0 );

}

※今回、VBScriptでの対応は考えておりません。全て、JavaScriptで行いたいと思います。

回答No.1

fujillin · ベストアンサー

＞今回、VBScriptでの対応は考えておりません。全て、JavaScript
＞で行いたいと思います
ActiveXを使用する時点で、javascriptではなくなっているのでは？

とりあえず、矩形を描くだけなら…（XP、IE6、Excel2003で確認）

function createShape() {
var excel = new ActiveXObject("Excel.Application");
excel.visible = true;
var sht = excel.Workbooks.Add().activeSheet;
sht.Shapes.AddShape(1, 100, 100, 200, 150);
}

とか？

お礼

ありがとうございました。
私の方（Windows XP, Excel2000）にて、見事動きました！！

引数に問題があったのですね。
Microsoft.Office.Core.MsoAutoShapeType.msoShapeRectangle ではなく、数字の１が正解ですね。
※VBエディタのスクリプトブラウザで、『Const msoShapeRectangle = 1』の文字列を発見しました。

初めて、質問したのですが、良い人に巡り会えました。
もう、最高です！

> ActiveXを使用する時点で、javascriptではなくなっているのでは？

勉強不足でした。精進します！！

また、よろしくおねがいします。