Excel形式ファイル出力のコーディング例

帳票システム構築支援　uCosminexus EUR　uCosminexus EUR サーバ帳票出力

Webサーバ上のASP環境でスクリプトを指定して，帳票をExcel形式ファイルに出力するコーディング例を次に示します。

帳票セットを指定する場合（データベースを使用）

 
<HTML>
<HEAD>
<TITLE>Sample Script for EUR Print Service Enterprise</TITLE>
</HEAD>
<BODY>
<%
 
  'エラーハンドリングを行う
  On Error Resume Next
   'プログラムID「EURPS.Exec」を指定して，
   'ActiveXオブジェクトのインスタンス作成
   Set EUR=Server.CreateObject("EURPS.Exec")
 
  '**********///　2.　ファイル名指定領域　開始　///**********
  '出力タイプ(XLSX形式ファイル出力)の指定
  EUR.OutputType=4
  '出力先ファイルの指定
  EUR.OutFileName="output.xlsx"
  '接続情報ファイルの指定
  EUR.DBInfoFileName="DBInfo1.txt"
  '帳票ファイルの指定
  EUR.ReportFileName="sample1.fms"
  '可変記号値定義ファイルの指定
  EUR.DataFileName="DBVar1.txt"
  '**********///　2.　ファイル名指定領域　終了　///**********
 
  If Err.Number<>0 Then
    Response.Write("EUR実行前にエラーが発生しています"& Err.Number &"<BR>")
  Else
    '印刷指示
    EUR.PrintReport()
    'PrintReportメソッドは正常終了かどうかの判定
    If Err.Number=0 Then
      '「XLSX形式ファイル出力終了」をHTMLドキュメントに出力
      Response.Write("XLSX形式ファイル出力終了")
    Else
      Response.Write("エラーが発生しました。<BR>")
      Response.Write("エラー番号="& Err.Number &"<BR>")
      'メッセージ文字列からメッセージIDをerridに取り出す
      errid=Cint(Mid(Err.Description,5,3))
 
  '**********///　3.　エラー番号指定領域　開始　///**********
      If errid=300 Then
      '***/// KEEU300-Wの場合のエラー処理 ///***
        Elseif errid=5 Then
        '***/// KEEU005-Eの場合のエラー処理 ///***
        Elseif errid=53 Then
        '***/// KEEU053-Eの場合のエラー処理 ///***
  '**********///　3.　エラー番号指定領域　終了　///**********
 
      End If
    End If
  End If
%>
</BODY>
</HTML>

帳票セットを指定する場合は，「2.ファイル名指定領域」，「3.エラー番号指定領域」のそれぞれに，次に示すコーディング例を当てはめて使用してください。

＜この項の構成＞: (1)　帳票セットを指定する場合

(1)　帳票セットを指定する場合

配列定義領域
必要ありません。

ファイル名指定領域

'出力タイプ(Excel形式ファイル出力)の指定
EUR.OutputType=4
'出力先ファイルの指定
EUR.OutFileName="output.xlsx"
'帳票ファイルの指定
EUR.ReportFileName="sample1.fms"
'マッピングデータファイルの指定
EUR.DataFileName="mapping1.csv"

エラー番号指定領域

If errid=300 Then
'***/// KEEU300-Wの場合のエラー処理 ///***
Elseif errid=5 Then
'***/// KEEU005-Eの場合のエラー処理 ///***
Elseif errid=6 Then
'***/// KEEU006-Eの場合のエラー処理 ///***

4.8.6 Excel形式ファイル出力のコーディング例

(1) 帳票セットを指定する場合

4.8.6　Excel形式ファイル出力のコーディング例

(1)　帳票セットを指定する場合