3.1.2 EURをOLEオートメーションオブジェクトとして実行するには
EURをOLEオートメーションオブジェクトとして起動できます。
EUR以外の製品のプログラムIDについては,各製品のマニュアル,またはヘルプを参照してください。また,CreateObject関数,およびGetObject関数については,各開発環境製品のマニュアル,またはヘルプを参照してください。
(1) CreateObject関数による起動
EURを新しいOLEオートメーションオブジェクトとして作成します。
CreateObject関数の形式を次に示します。
- CreateObject ("プログラムID")
-
EURのプログラムIDは,"APGRPT.Report"(バージョン非依存),または"APGRPT.Report.3"(バージョン依存)です。バージョンを特定しない場合は,バージョン非依存のプログラムID"APGRPT.Report"を指定してください。
バージョン5以降に特定する場合は,バージョン依存のプログラムID"APGRPT.Report.3"を指定してください。ただし,バージョン依存のプログラムIDは,バージョン5以降で変更されることもあります。その場合,アプリケーションプログラムに指定されているプログラムIDの変更が必要になります。
EURをOLEオートメーションオブジェクトとして新規に作成するには,CreateObject関数の戻り値をオブジェクト変数に代入します。記述例を次に示します。
- (記述例)
-
Set Rpt = CreateObject("APGRPT.Report")
(2) GetObject関数による起動
指定した帳票ファイルの参照を取得します。GetObject関数の形式を次に示します。
- GetObject (〔"パス名"〕 , 〔"プログラムID"〕)
-
パス名には,取得したいオブジェクトが含まれているファイルのパス名,および帳票ファイル名を指定します。EURのプログラムIDは,"APGRPT.Report"(バージョン非依存),または"APGRPT.Report.3"(バージョン依存)です。バージョンを特定しない場合は,バージョン非依存のプログラムID"APGRPT.Report"を指定してください。
バージョン5以降に特定する場合は,バージョン依存のプログラムID"APGRPT.Report.3"を指定してください。ただし,バージョン依存のプログラムIDは,バージョン5以降で変更されることもあります。その場合,アプリケーションプログラムに指定されているプログラムIDの変更が必要になります。
既存の帳票ファイルを開くには,GetObject関数の戻り値をオブジェクト変数に代入します。記述例を次に示します。
- (記述例)
-
Set Rpt = GetObject("c:\eur\table.agr")