webからの帳票表示

解決済

質問者：rillarilla
質問日時：2002/07/04 12:48
回答数：2件

現在、以下の方法でWebより帳票(Excel)を表示しています。

１．ASPにてSQLを実行し、データベース(Oracle8i)よりレコードセット
を取得する。
２．取得したレコードセットを、XMLで保持する。
３．XMLを、XSLで指定した形式で、Htmlに変換する(JavaScriptの
transformNodeで)
４．変換したHtmlを、クリップボードに退避する。
５．JavaScriptのActiveXObject("Excel.Application")で、
Excelを起動する。
６．Workbooks.Open("[テンプレート名]")で、Excelテンプレート
を立ち上げる。
７．ExcelのBookに、クリップボードに退避したHtmlを貼り付ける。

以上の手順を踏むと、ExcelにHtmlで書かれたとおりの表が表示される
仕組みです。
しかし、この方法だと、大量のデータ件数(横50列、１０００件以上)で
ある場合、貼り付けに非常に時間がかかり、タイムアウトしてしまいます。
(ExcelがHtmlを解釈するのに時間がかかるせいだと思うのですが・・・）
せめて横50列以上、２万件以上のデータ量に耐えられる仕組みにしなければ
なりません。
以下の仕様は極力守りつつ、なにか良い方法はないでしょうか。

a．データはなるべくXMLから取得したい
b．帳票を出力するツールはExcelとしたい

aについては、データはレコードセットでも構いません。
bについては、何か他に良い帳票ツールがあれば教えて下さい。
どうぞよろしくお願いします。

●環境
IE:5.5
Excel:97(SR-2)
DB：Oracle8i

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.2ベストアンサー

回答者： kumagoro-
回答日時：2002/07/04 17:31

以下のようにすれば画面が表示された後で、クライアント側でExcelが立ち上がり、レコードが記入されていくと思います。

・
・
・
<SCRIPT LANGUAGE="VBScript">
Sub CreateFile()
Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.Open("[テンプレート名]")
Set objSheet = objBook.Worksheets(1)

'Excelを表示する
objExcel.Visible = True

<%
'レコードセット
objRS.Open ・・・

i = 1
Do Until objRS.EOF
%>
objSheet.Range("B<%=i%>").Value = "<%=objRS("[列名1]")%>"
objSheet.Range("C<%=i%>").Value = "<%=objRS("[列名2]")%>"
<%
objRS.MoveNext
Loop

objRS.Close
Set objRS = Nothing
%>

objBook.SaveAs [保存ファイル名]
objBook.Close
Set objBook = Nothing

objExcel.Quit
Set objExcel = Nothing

End Sub
</SCRIPT>
</HEAD>
<BODY onLoad="CreateFile();">
・
・
・