вот весь код функции, где много восклицательных знаков там выскакивает ошибка
FUNCTION Z_IBS_BW_BEX_TO_FOLD_PL.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*" IMPORTING
*" REFERENCE(ISPREPLOADFOLDERS) DEFAULT 1
*" REFERENCE(PATH_TO_XLA)
*" REFERENCE(REPORT) TYPE CHAR3
*" EXCEPTIONS
*" EXCEL_VIEWER_NOT_INSTALL
*"----------------------------------------------------------------------
DATA: TMP_TABLE_1 TYPE ZIBSBWWBIDS OCCURS 0 WITH HEADER LINE.
TYPE-POOLS OLE2.
DATA:
EXCEL_APP TYPE OLE2_OBJECT,
CURR_WORKBOOK TYPE OLE2_OBJECT,
CURR_SHEET TYPE OLE2_OBJECT,
CURR_FILTER_CELL TYPE OLE2_OBJECT
.
DATA:
* CURR_PROJECT_ID TYPE I,
CURR_PROJECT_ID LIKE ZIBSBWPLFOLT-FILTERID,
* CURR_PROJECT_ID_STR TYPE STRING,
CURR_DIR TYPE STRING,
CURR_FILENAME TYPE STRING,
* PATH_TO_XLA TYPE STRING,
CURR_WORKBOOK_ID TYPE STRING,
CURR_FILTER_CELL_ROW TYPE I,
CURR_FILTER_CELL_COL TYPE I,
S LIKE ZIBSBWWBIDS-WB_DESC,
COUNTER TYPE I VALUE 0,
L_EXCEL_REOPEN_COUNTER TYPE I VALUE 0
.
CALL TRANSACTION 'RRMX' AND SKIP FIRST SCREEN.
DATA OLE_NEWBOOK TYPE OLE2_OBJECT.
CREATE OBJECT OLE_NEWBOOK 'EXCEL.SHEET'.
IF SY-SUBRC > 0. RAISE EXCEL_VIEWER_NOT_INSTALLED. ENDIF.
CALL METHOD OF OLE_NEWBOOK 'Application' = EXCEL_APP.
CALL METHOD OF OLE_NEWBOOK 'Close'.
FREE OBJECT OLE_NEWBOOK.
CALL METHOD OF EXCEL_APP 'Workbooks' = CURR_WORKBOOK.
CALL METHOD OF CURR_WORKBOOK 'Open'
EXPORTING #1 = PATH_TO_XLA.
SELECT
*
FROM
ZIBSBWWBIDS
INTO
TABLE TMP_TABLE_1
WHERE
IS_HIDDEN <> 'X' and
report = report
.
LOOP AT TMP_TABLE_1.
CURR_WORKBOOK_ID = TMP_TABLE_1-WB_ID.
* opening our report Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!!
CALL METHOD OF EXCEL_APP 'RUN' EXPORTING
#1 = 'SAPBEX.XLA!SAPBEXReadWorkbook' #2 = CURR_WORKBOOK_ID
.
CALL METHOD OF EXCEL_APP 'ActiveWorkbook' = CURR_WORKBOOK.
CALL METHOD OF EXCEL_APP 'ActiveSheet' = CURR_SHEET.
*refreshing query
CALL METHOD OF EXCEL_APP 'RUN' EXPORTING
#1 = 'add_util.xla!BEXRefresh'
.
* saving current workbook
CALL METHOD OF EXCEL_APP 'RUN' EXPORTING
#1 = 'add_util.xla!SaveCopyToDir'
#2 = CURR_WORKBOOK
#3 = CURR_DIR
#4 = CURR_FILENAME
.
CALL METHOD OF CURR_WORKBOOK 'Close' EXPORTING
#1 = 0
.
ENDLOOP.
CALL METHOD OF EXCEL_APP 'Quit'.
FREE OBJECT EXCEL_APP.
ENDFUNCTION.
|
|