Доброго здоровья!
Забуксовал на методе гиперссылки к ячейке.
Data: App type OLE2_OBJECT,
Wok type OLE2_OBJECT,
sheet type OLE2_OBJECT,
column type OLE2_OBJECT,
Hpr type OLE2_OBJECT,
cells type OLE2_OBJECT.
Create object App 'excel.application'.
Call method of App 'Workbooks' = Wok.
Call method of Wok 'Add'.
Call method of App 'Worksheets' = sheet
exporting #1 = 1.
Call method of sheet 'Activate'.
Call method of sheet 'Hyperlinks' = Hpr.
Сall method of sheet 'Cells' = cells
xporting #1 = 1
#2 = 6.
Set property of cells 'Value' = 'c:\temp'. " Здесь нужна ссылка на файл
Call method of sheet 'Add' = Hpr
exporting #1 = cells
#2 = 'c:\temp'.
После вызова последнего sy-subrc = 2.
|