朴所罗门

朴所罗门

关注
发信
关注(28)粉丝(399)

ABAP OLE EXCEL DOWNLOAD 2


点击(此处)折叠或打开

  1. *&---------------------------------------------------------------------*
  2. *& Report ZDEMO15
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*

  9. REPORT zdemo15.

  11. DATA:BEGIN OF gs_itab,
  12.       matnr TYPE makt-matnr,
  13.       maktx TYPE makt-maktx,
  14.       END OF gs_itab,
  15.       gt_itab LIKE TABLE OF gs_itab.

  17. DATA:gv_lines TYPE i.

  19. INCLUDE ole2incl.

  21. DATA: gv_excel TYPE ole2_object, " Excel object
  22.       gv_workbook TYPE ole2_object, " workbook
  23.       gv_sheet TYPE ole2_object, " sheet
  24.       gv_zl TYPE ole2_object, " cell
  25.       gv_f TYPE ole2_object. " font

  27. ***dowm muban
  28. DATA:gs_wwwdatatab TYPE wwwdatatab, "Contents of table WWWDATA
  29.      gv_filename TYPE rlgrap-filename,
  30.      gv_rc TYPE sy-subrc.

  32. PERFORM frm_get_file_path USING gv_filename.
  33. CHECK gv_filename IS NOT INITIAL.

  35. SELECT SINGLE
  36.    relid "Region in IMPORT/EXPORT Data Table
  37.    objid "SAP WWW Gateway Object Name
  38.  FROM wwwdata
  39.  INTO CORRESPONDING FIELDS OF gs_wwwdatatab
  40.  WHERE srtf2 = '0'
  41.  AND relid = 'MI'
  42.  AND objid = 'ZDEMO15'.
  43. IF sy-subrc <> 0 .
  44.   MESSAGE 'not exit' TYPE 'I'.
  45. ENDIF.

  47. CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
  48.   EXPORTING
  49.     key = gs_wwwdatatab
  50.     destination = gv_filename
  51.   IMPORTING
  52.     rc = gv_rc.
  53. IF gv_rc <> 0.
  54.   MESSAGE 'Down faile' TYPE 'E'.
  55. ENDIF.

  57. * start Excel
  58. CREATE OBJECT gv_excel 'EXCEL.APPLICATION'.
  59. PERFORM err_hdl.
  60. SET PROPERTY OF gv_excel 'Visible' = 0. "1 DISPLAY 0 NO-DISPLAY
  61. PERFORM err_hdl.

  63. * get list of workbooks, initially empty
  64. CALL METHOD OF
  65.     gv_excel
  66.     'WORKBOOKS' = gv_workbook.
  67. PERFORM err_hdl.

  69. * OPEN DOWNLOAD EXCEL
  70. CALL METHOD OF
  71.     gv_workbook
  72.     'OPEN'

  74.   EXPORTING
  75.     #1 = gv_filename.

  77. CALL METHOD OF
  78.     gv_excel
  79.     'SHEETS' = gv_sheet
  80.   EXPORTING
  81.     #1 = 1.

  83. CALL METHOD OF
  84.     gv_sheet
  85.     'SELECT'.

  87. CALL METHOD OF gv_sheet 'ACTIVATE'. "sheet ACTIVATE

  89. ** add a new workbook
  90. *CALL METHOD OF
  91. * gv_workbook
  92. * 'Add' = gv_map.
  93. *PERFORM err_hdl.

  95. * output column headings to active Excel sheet
  96. PERFORM fill_cell USING 1 1 1 '物料编码'.
  97. PERFORM fill_cell USING 1 2 1 '物料描述'.

  99. SELECT matnr maktx INTO TABLE gt_itab
  100.   FROM makt UP TO 10 ROWS.

  102. gv_lines = 1.
  103. LOOP AT gt_itab INTO gs_itab.
  104.   gv_lines = gv_lines + 1.
  105.   PERFORM fill_cell USING gv_lines 1 0 gs_itab-matnr.
  106.   PERFORM fill_cell USING gv_lines 2 0 gs_itab-maktx.
  107. ENDLOOP.

  109. SET PROPERTY OF gv_excel 'DisplayAlerts' = 0.

  111. CALL METHOD OF
  112.     gv_sheet
  113.     'SaveAs'

  115.   EXPORTING
  116.     #1 = gv_filename
  117.     #2 = 1
  118.     #3 = '123456'."增加密码设置 FZH

  120. CALL METHOD OF
  121.     gv_sheet
  122.     'close'

  124.   EXPORTING
  125.     #1 = 0.

  127. CALL METHOD OF
  128.     gv_sheet
  129.     'quit'.

  131. CALL METHOD OF
  132.     gv_sheet
  133.     'Exit' = gv_sheet.

  135. * disconnect from Excel
  136. DO.
  137.   CALL FUNCTION 'FLUSH'
  138.     EXCEPTIONS
  139.       OTHERS = 0.

  141.   FREE OBJECT gv_excel.
  142.   IF sy-subrc EQ 0.
  143.     EXIT.
  144.   ENDIF.
  145. ENDDO.
  146. PERFORM err_hdl.



  150. *&---------------------------------------------------------------------*
  151. *& Form fill_cell
  152. *&---------------------------------------------------------------------*
  153. * text
  154. *----------------------------------------------------------------------*
  155. * -->I text
  156. * -->J text
  157. * -->BOLD text
  158. * -->VAL text
  159. *----------------------------------------------------------------------*
  160. FORM fill_cell USING i j bold val.
  161.   CALL METHOD OF
  162.       gv_excel
  163.       'Cells' = gv_zl
  164.     EXPORTING
  165.       #1 = i
  166.       #2 = j.
  167.   PERFORM err_hdl.
  168.   SET PROPERTY OF gv_zl 'Value' = val .
  169.   PERFORM err_hdl.
  170.   GET PROPERTY OF gv_zl 'Font' = gv_f.
  171.   PERFORM err_hdl.
  172.   SET PROPERTY OF gv_f 'Bold' = bold .
  173.   PERFORM err_hdl.
  174. ENDFORM. "fill_cell

  176. * output column headings to active Excel sheet
  177. *&---------------------------------------------------------------------*
  178. *& Form err_hdl
  179. *&---------------------------------------------------------------------*
  180. * text
  181. *----------------------------------------------------------------------*
  182. FORM err_hdl.
  183.   IF sy-subrc <> 0.
  184.     WRITE: / 'Fehler bei OLE-Automation:'(010), sy-subrc.
  185.     STOP.
  186.   ENDIF.
  187. ENDFORM. " ERR_HDL

  189. *&---------------------------------------------------------------------*
  190. *& Form frm_get_file_path
  191. *&---------------------------------------------------------------------*
  192. * text
  193. *----------------------------------------------------------------------*
  194. *
  195. *----------------------------------------------------------------------*
  196. FORM frm_get_file_path CHANGING cv_file TYPE rlgrap-filename.
  197.   DATA:lv_rc TYPE i,
  198.         lv_filename TYPE string,
  199.         lv_path TYPE string,
  200.         lv_fullpath TYPE string.

  202.   CALL METHOD cl_gui_frontend_services=>file_save_dialog
  203.     EXPORTING
  204.       window_title = '选择文件'
  205.       file_filter = '(*.xls)|*.xls|'
  206.     CHANGING
  207.       filename = lv_filename
  208.       path = lv_path
  209.       fullpath = lv_fullpath
  210.     EXCEPTIONS
  211.       OTHERS = 5.

  213.   IF sy-subrc EQ 0.
  214.     cv_file = lv_fullpath.
  215.   ENDIF.
  216. ENDFORM. "FRM_GET_FILE_PATH

10-12 08:48
Powered by LMLPHP ©2024 朴所罗门 0.062653