ROACH部落落

看起來滿簡單的

*==在最上面先宣告

INCLUDE OLE2INCL.
DATA: H_EXCEL TYPE OLE2_OBJECT, " Excel object
H_MAPL TYPE OLE2_OBJECT, " list of workbooks
H_MAP TYPE OLE2_OBJECT, " workbook
H_ZL TYPE OLE2_OBJECT, " cell
H_F TYPE OLE2_OBJECT. " font

*寫一段這個
FORM FILL_CELL USING I J BOLD VAL.
CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.
SET PROPERTY OF H_ZL 'Value' = VAL .
GET PROPERTY OF H_ZL 'Font' = H_F.
SET PROPERTY OF H_F 'Bold' = BOLD .

ENDFORM.

接下來就在LOOP裡面加一段這行！就會輸出直接產生Excel的

第一個變數是第幾行可以在loop裡面用sy-tabix帶入

第二個變數是第幾列

第三個變數是看要黑體或一般字

第四個變數是值

PERFORM FILL_CELL USING H 1 0 ITAB-MATNR.

如果輸出的值前面有0預設會被清掉

輸出前直接針對要顯示前導0的欄位這樣做就可以的

CONCATENATE '''' ITAB-MATNR INTO ITAB-MATNR.

PERFORM FILL_CELL USING H 1 0 ITAB-MATNR.