DATA: H_APPL  TYPE OLE2_OBJECT.
DATA: H_BOOKS TYPE OLE2_OBJECT.
DATA: H_WORK  TYPE OLE2_OBJECT.
DATA: H_SHEET TYPE OLE2_OBJECT.

FORM RUN_EXCEL USING HTMLFILE XLSFILE OK.
DATA: H_RANGE TYPE OLE2_OBJECT.
DATA: COL TYPE I.
DATA: WIDTH TYPE I.

  CLEAR OK.

  CREATE OBJECT H_APPL 'EXCEL.APPLICATION'.
  CHECK SY-SUBRC = 0.

  CALL METHOD OF H_APPL 'WORKBOOKS' = H_BOOKS.
  CHECK SY-SUBRC = 0.

  CALL METHOD OF H_BOOKS 'OPEN'
  EXPORTING #1 = HTMLFILE.
  CHECK SY-SUBRC = 0.

  CALL METHOD OF H_APPL 'ACTIVEWORKBOOK' = H_WORK.
  IF SY-SUBRC <> 0. EXIT. ENDIF.

  CALL METHOD OF H_APPL 'ActiveSheet' = H_SHEET.
  IF SY-SUBRC <> 0. EXIT. ENDIF.

* При загрузки HTML файла  EXEL не выставляет ширину столбцов
* поэтому делаем это через OLE
  IF XLS_PREPARE_COL_WIDTH = 'X'.
    LOOP AT ITCOL WHERE WIDTH > 0.
      WIDTH = ITCOL-WIDTH * CHAR_WIDTH_X + CHAR_WIDTH_X_D.
      ADD 1 TO COL.
      CALL METHOD OF H_SHEET 'Columns' = H_RANGE
        EXPORTING #1 = COL.
      IF SY-SUBRC = 0.
        SET PROPERTY OF  H_RANGE 'ColumnWidth' = WIDTH.
      ENDIF.
    ENDLOOP.
  ENDIF.

* Это надо сделать т.к. если этого не делать файл так и останется
* HTML ным.
  CALL METHOD OF H_WORK 'SAVEAS'
  EXPORTING #1 = XLSFILE
            #2 = -4143. " xlNormal
  CHECK SY-SUBRC = 0.

  OK = 'X'.

  CALL METHOD OF H_WORK 'SAVE'.
ENDFORM.