DATA Declaration
TYPE-POOLS: SOI, OLE2.
DATA: APPLICATION TYPE OLE2_OBJECT,
WORKBOOK TYPE OLE2_OBJECT,
WORKBOOKS TYPE OLE2_OBJECT,
RANGE TYPE OLE2_OBJECT,
WORKSHEET TYPE OLE2_OBJECT,
WORKSHEETS TYPE OLE2_OBJECT,
COLUMN TYPE OLE2_OBJECT,
ROW TYPE OLE2_OBJECT,
CELL TYPE OLE2_OBJECT,
FONT TYPE OLE2_OBJECT.
DATA: CELLSTART TYPE OLE2_OBJECT,
CELLEND TYPE OLE2_OBJECT,
SELECTION TYPE OLE2_OBJECT,
VALIDATION TYPE OLE2_OBJECT.
DATA: INTERIOR TYPE OLE2_OBJECT,
BORDERS TYPE OLE2_OBJECT.
DATA: SELECTED_FOLDER TYPE STRING,
COMPLETE_PATH TYPE CHAR256,
TITULO TYPE STRING.
경로 지정 Dialog
CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_BROWSE
EXPORTING
WINDOW_TITLE = TITULO
INITIAL_FOLDER = DESKTOPDIRECTORY
CHANGING
SELECTED_FOLDER = SELECTED_FOLDER.
CHECK NOT SELECTED_FOLDER IS INITIAL.하세요
Excel Open
*&---------------------------------------------------------------------*
* Excel Open
*&---------------------------------------------------------------------*
CREATE OBJECT APPLICATION 'EXCEL.APPLICATION'. "엑셀 Open
CALL METHOD OF APPLICATION 'WORKBOOKS' = WORKBOOKS. "Workbooks 불러옴
CALL METHOD OF WORKBOOKS 'ADD' = WORKBOOK. "Workbook 추가
GET PROPERTY OF APPLICATION 'ACTIVESHEET' = WORKSHEET. "Workbook 활성화
SET PROPERTY OF APPLICATION 'VISIBLE' = 1.
Excel Close & Save file
*&---------------------------------------------------------------------*
* Excel Close
*&---------------------------------------------------------------------*
CONCATENATE SELECTED_FOLDER '\Test' INTO COMPLETE_PATH.
CALL METHOD OF WORKBOOK 'SAVEAS' EXPORTING #1 = COMPLETE_PATH.
IF SY-SUBRC = 0.
MESSAGE 'File downloaded seccessfully' TYPE 'S'.
ELSE.
MESSAGE 'Error Downloading the file' TYPE 'E'.
ENDIF.
CALL METHOD OF APPLICATION 'QUIT'.
FREE OBJECT WORKSHEET.
FREE OBJECT WORKBOOK.
FREE OBJECT APPLICATION.
