COBOL2002 ユーザーズガイド
OLEメソッドやOLEプロパティの参照には,コンテナやコレクションをすべて指定して参照する方法と,OLEメソッドが返すOLEオブジェクトを起点として参照する方法があります。
セルのValueプロパティを使って値を設定するときに,生成したApplicationオブジェクトからのコンテナやコレクションをすべて指定して参照する例を次に示します。
WORKING-STORAGE SECTION. 01 AP-OBJ USAGE OBJECT REFERENCE OLE. PROCEDURE DIVISION. : INVOKE 'Excel.Application' 'CREATEOBJ' RETURNING AP-OBJ. : SET 'Workbooks(1).Worksheets(1).Cells(1,1).Value' WITH AP-OBJ TO 'ABCD'. SET 'Workbooks(1).Worksheets(1).Cells(1,2).Value' WITH AP-OBJ TO 'ABCD'. SET 'Workbooks(1).Worksheets(1).Cells(1,3).Value' WITH AP-OBJ TO 'ABCD'.
OLEオブジェクトの起点を変えてコンテナやコレクションを参照する例を次に示します。
WORKING-STORAGE SECTION. 01 AP-OBJ USAGE OBJECT REFERENCE OLE. 01 CEL-OBJ USAGE OBJECT REFERENCE OLE. …1. 01 CEL-IDX PIC 9 VALUE ZERO. PROCEDURE DIVISION. INVOKE 'Excel.Application' 'CREATEOBJ' RETURNING AP-OBJ. : PERFORM SET-CELL 3 TIMES. : SET-CELL SECTION. COMPUTE CEL-IDX = CEL-IDX + 1. INVOKE AP-OBJ 'Workbooks(1).Worksheets(1).Cells' USING VALUE 1 CEL-IDX RETURNING CEL-OBJ. …1. SET 'Value' WITH CEL-OBJ TO 'ABCD'. …2.
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.