第一篇：ABAP知識總結

一． SAP在企業中的策略

On premise（前提）（知識庫—資源流程）完全面向對象的概念，通過面向服務的架構，解決核心業務。

On demand 通過創新進行功能的擴展并集成在業務的整個流程里。

On device（產品策略）通過擴展消費者的需求，以提供滿足消費者的策略，擴展SAP 的功能。

這三項完美結合，能確保數據的聯系性和流程的完整結合。并通過多層應用對流程進行管理。

二． Sap 提供各種產品類型給不同規模的公司。

三． Sap business suite 提供適應不同企業需求的解決方案，還擁有大量針對特定行業的功能。Sap netweaver 的知識庫：

核心應用（ERP/SRM/SCM）——工業應用——補充應用——SAP 應用的增強包

四． Applications 和 components

不同的應用可以包含相同的組件。

Components（sap ECC= sap central component）五． 逐步釋放給廣大用戶使用：

Beta 測試版——釋放給用戶（restricted）——無限制的釋放給用戶

六． 業務的生命周期（維護策略）：

主流維護（從限制到非限制）——擴展的維護——客戶自定義的維護 七． Sap netweaver的層次和主要功能： 應用架構

三個維度，三個集成：共三層

人的集成（多渠道—portal門戶和collaboration協作）——信息集成（主數據、知識、業務）——流程集成 第四層：這三種集成的應用平臺為java和abap 數據庫和系統 DB、OS 八．

1、Sap netweaver 應用服務提供了：多級架構；可靠的運行環境（java和abap）；很高的擴展性；操作系統和數據庫獨立；方便擴展環境；支持多種協議；對執行企業流程有高的安全標準。、2、外部系統：表現層（支持多種用戶接口，GUI 和browser）

應用層（支持多種操作系統）

數據庫層（支持多種數據庫）

3、應用層——dispatcher，通過分發器對表現層直接進行控制

通過ICM（內部通訊）控制

九、/n 退出當前

/nxxxx直接訪問xxxx /n打開overview of sessions /oxxxx打開一個新的頁面并訪問xxxx /nend 關閉窗口，有提示信息 /nex 直接關閉 /i 刪除當前窗口

十、AS（應用服務器）中ABAP Processes：三種

1．B/S

Message server（MS）：處理信息在位于AS ABAP的分布式的觸發器之間。每個SAP系統只配置一次MS

2．gateway（GW）：在SAP 系統之間或者在SAP 系統與外部應用系統之間進行交流。每個GW有一個觸發器

3．C/S

Internet communication manager（ICM）：與SAP系統的交流利用web 協議（protocol），比如HTTP，ICM收到用戶請求并傳給SAP系統。可以配置一個最大的ICM給每個應用服務器

十一、用戶傳輸請求的過程

表現層（GUI）：將屏幕上的GUI圖像展現給用戶，再將其轉化為內部的格式傳遞給AS ABAP 系統。

應用層：觸發器將用戶所有請求排列，遵循先進先出的原則。處理用戶請求必須從abap數據庫中讀取數據。當一個工作流程完成，結果就會通過觸發器返回給SAP GUI，SAP GUI通過對數據的編譯然后向用戶輸出屏幕。這個階段被稱為buffer（緩存），經常被讀取的數據通過緩存，可直接被讀取，不用每次讀取數據庫中的。幫助加速處理用戶請求。

數據庫層：每一項工作流程都和ABAP數據庫直接相連 問題?應用層和數據庫層之間如何進行數據的傳輸？ ABAP 編譯器通過專門的語言（OPEN SQL）訪問數據庫接口，DB interface 再通過Native SQL語言訪問數據庫層，或者直接在緩存中讀取 ABAP 編譯器直接通過Native SQL語言對數據庫層進行訪問

十二、PBO和 PAI

十三、業務流程中的數據同步：

1、SAP系統中的CRM獲得訂單信息，并將其傳輸到ERP的后端backend

2、格式化數據成相同類型的數據

3、通過遠程調用RFC 技術實現

4、傳輸類型，每隔六十秒同步一次

5、在網上提供產品和服務 P135問題?

1． 哪些接口或交流選項是SAP 所支持的？ HTTP；SMTP；RFC；BAPIs 2． BAPIs 的作用？

Requst data from an sap system

Pass data to an sap system

Access business processes in SAP system 在程序中用字典元素定義數據對象

DATA mycarried TYPE s_carr_id.獲得一個數據對象（變量）的類型指明在data element里是

DATA myconnid TYPE sbc400focc-connid.獲得一個數據對象（變量）有相同的類型的結構體是sbc400focc-connid.PARAMENTERS_pa_carr TYPE spfli-carrid.獲得一個域自動出現在屏上和spfli-carrid的變量類型相同。

DATA ｗa_focc TYPE sbc400fccc.其中data wa_focc type sbc400focc.是定義一個結構體，定義結構體的命名規 則通常是以wa_開頭加上變量名，代表是一個結構體變量。

獲得一個和結構體sbc400fccc有相同類型的結構體變量。

DATA ｗa_spfli TYPE spfli.data wa_spfli type spfli.是用來定義一個透明表。

獲得與spfli表中一行具有相同類型的結構體變量。

第二篇：ABAP學習總結

SAP學習總結 信管0911

楊釧

2011-12-2

SAP學習總結

立談之間，來集團參加ERP項目已近四個月，通過集團ERP項目組精心組織的培訓，經過自己的努力學習，我對ERP的認識有了很大程度的轉變。從一開始的不了解，帶著對很多專業名詞及模塊功能的疑問，到現在融入到ERP項目組后，被SAP龐大的功能所震撼；從一開始認為SAP僅僅是一種應用軟件，跟其他公司的ERP差不多，到現在深刻的地體會到SAP在企業管理中的重要位置；從一開始對SAP可能帶來的不便以及人力、財力、時間成本產生抵觸情緒，到現在對SAP產生依賴心理。這些對SAP認識的轉變，讓我意識到作為一名關鍵用戶和信息人員，為確保ERP的上線成功，應該如何發揮自身的作用。

5月9日，初步接觸到了SAP軟件。五月份到七月份我初步學習SAP中ABAP語言，起初感覺這跟平時學校學習的語言差不多，但是接觸的越久，我就越深深 的震撼ABAP語言的嚴謹性，以及ABAP編輯語言在SAP中的重要的位置，對其他工作模塊工作有非常重要的影響。通過這段時間ABAP語言的學習后，我進入技術組協助技術組中的各位老師，解決些小問題。工作一段時間之后，我才發覺，ERP前期項目的工作量大大超乎我的想像，它的重要性也讓人感到緊張。在每天的工作中，大家加班加點，熱火朝天的討論業務流程問題，以及程序代碼如何實現業務需求，有時候為了一個觀點不同而爭論不休，有時候又為達成共識而言歡高興。大家良好的溝通交流，讓我們這些初識者更積極主動地參與進來。

在技術組組工作了近兩周之后，為了讓我們全面認識SAP，從而更深入地開展工作，ERP項目組辦公室組織人員進行了為期一周的SAP開發語言ABAP的培訓。對于我們來說，掌握ABAP編程語言是深入理解SAP軟件知識要領的敲門磚。通過對ABAP的學習，我對SAP的后臺有了更進一步的了解，也為下一步深入接觸實際操作打下了基礎。在BASIS組織的講座和培訓中，我對BASIS有了一定了解，意識到ABAP對做好SAP系統的后臺規劃、安裝、配置、管理、監控、維護、調優等工作的重要性。通過此次培訓，大家對SAP有了些許的初步了解，對應該做好哪些工作有了初步的認識。

接下來說說，近半年我所學到的一些ABAP知識，報表顯示ALV ALV是系統的一種網格的顯示方式,這種方式帶有匯總排序篩選等功能,ALV格式的數據是以單元格為單位顯示,不象一般的寫屏方式拷出來或是導出成文件不同列的內容粘在一塊,這種方式便于數據導出來放在電子表格里進行加工.ALV： abap list view / Sap list view，在SAP報表數據輸出使用最廣泛的技術基于GUI，在展現層處理

操作簡單

較強的標準功能。排序、過濾、計算等

有三個版本的技術實現Function->grid->OM

BDC技術

首先簡單解釋一下BDC（Batch Data Conversion）：

在SAP系統里，由于某種原因，可能需要重復輸入數據，（數據不同，但是操作是相同的，典型的情形就是切換系統的時候，舊系統的數據需要導入SAP），大致過程不外乎是這樣： 輸入一個t-code，進入一個某個屏幕，然后輸入一個值（有時還要加上一些附加的checkbox選項等），點執行或者確定按鈕，進入另一個屏幕，在某些字段輸入值（`也可能是標注checkbox選中或者不選中）或者修改這些字段里的值。

然后按“Eneter”??

最后按“SAVE”??，一條記錄完成了，繼續下一條，如此循環

等等ABAP技術，每當接觸ABAP學習ABAP的新知識，都感覺很震撼，ABAP語言的邏輯性真的很強。

在SAP的學習過程中，我認識到只有系統地學習財務模塊、人資模塊、生產模塊和物資模塊才能對整個ERP系統功能和SAP的關鍵設置有整體的了解。不僅僅如此，系統學習這些模塊知識，對ABAP語言的學習和程序報表的開發都有很大的用處的。雖然過去了半年，但是我并沒有覺得是在浪費時間，反而覺得比在學校學的還要多，覺得很充實，讓我找到了前進的目標。

第三篇：ABAP使用OLE方法總結

SAP ABAP OLE 操作EXCEL小結

ABAP直接操作EXCEL實現數據處理。這里是用OLE實現操作EXCEL的。現在還有

DOI操作EXCEL等方法。以后用到再做介紹。此處不是直接生成EXCEL文件，而是從

服務器已經上傳的EXCEL模板中下載模板然后打開修改實現數據保存。也可以直接創建

新的EXCEL文件往里面傳遞數據并設置格式。這里不做介紹。

1.采用模板文件實現。上傳EXCEL模板

T-code：SMW0 WebRFC 的二進制數據 包：MI

點擊

模板數據保存在系統表www.tmdps.cntl_error = 1 error_no_gui = 2 not_supported_by_gui = 3 OTHERS = 4.IF lc_fullpath = “".MESSAGE ”不能打開excel“ TYPE ”E“.ENDIF.IF sy-subrc = 0.p_dest = lc_fullpath.* concatenate p_objid ”.XLS“ into ls_objnam.CONDENSE ls_objnam NO-GAPS.SELECT SINGLE relid objid FROM wwwdata INTO CORRESPONDING FIELDS OF lo_objdata WHERE srtf2 = 0 AND relid = ”MI“ AND objid = p_objid.*檢查表wwwdata中是否存在所指定的模板文件

IF sy-subrc NE 0 OR lo_objdata-objid EQ space.“如果不存在，則給出錯誤提示

CONCATENATE ”模板文件“ ls_objnam ”不存在“ INTO ls_errtxt.MESSAGE ls_errtxt TYPE ”I“.ENDIF.ls_destination = p_dest.”保存路徑

*如果存在，調用DOWNLOAD_WEB_OBJECT 函數下載模板到路徑下

CALL FUNCTION ”DOWNLOAD_WEB_OBJECT“ EXPORTING key = lo_objdata destination = ls_destination IMPORTING rc = li_rc.IF li_rc NE 0.CONCATENATE ”模板文件：“ ls_objnam ”下載失敗“ INTO ls_errtxt.MESSAGE ls_errtxt TYPE ”E“.ENDIF.fname = ls_destination.ENDIF.ENDFORM.”fm_excel

3.下載完模板后，打開模板文件，填入數據

CREATE OBJECT excel “EXCEL.APPLICATION”.“Create EXCEL OBJECT IF sy-subrc NE 0.EXIT.ENDIF.SET PROPERTY OF excel ”Visible“ = 0.”1/0 是否顯示EXCEL

CALL METHOD OF excel “Workbooks” = workbook.CALL METHOD OF workbook “Open” EXPORTING #1 = fname..“打開上面下載路徑下的excel文件

CALL METHOD OF excel ”Sheets“ = sheet EXPORTING #1 = 1.CALL METHOD OF sheet ”Select“.CALL METHOD OF sheet ”ACTIVATE“.“sheet 激活

SET PROPERTY OF sheet ”NAME“ = sheetname.“設定sheet名稱

*此處假設內表itab 中已經存在需要寫入excel中的數據

*并且假如從模板的第7行開始插入數據

LOOP AT itab INTO wa.tab = wa-tabix + 6.*在excel中插入一行

PERFORM excel_row_insert USING sheet tab 1.*填充所插入行的每個單元格的數據

PERFORM fill_range USING tab 1 wa-t01.PERFORM fill_range USING tab 2 wa-t02.PERFORM fill_range USING tab 3 wa-t03.PERFORM fill_range USING tab 4 wa-t04.PERFORM fill_range USING tab 5 wa-t05.PERFORM fill_range USING tab 6 wa-t06.ENDLOOP.*設置EXCEL中所插入的數據行邊框線格式為黑色有邊框

bod = tab.CONDENSE bod NO-GAPS.CONCATENATE ”A6:F“ bod INTO bod.PERFORM borderrange USING excel bod.PERFORM sub_excel_save.”保存excel數據

*&-------* *& Form sub_excel_save *&-------* * text *--------* FORM sub_excel_save.GET PROPERTY OF excel “ActiveSheet” = sheet.“獲取活動SHEET

FREE OBJECT sheet.FREE OBJECT workbook.GET PROPERTY OF excel “ActiveWorkbook” = workbook.CALL METHOD OF workbook “SAVE”.SET PROPERTY OF excel “Visible” = 1.“是否顯示EXCEL 此處顯示不退出

* SET PROPERTY OF excel ”Visible“ = 1.* CALL METHOD OF workbook ”CLOSE“.* CALL METHOD OF excel ”QUIT“.注釋部分為不顯示直接退出

FREE OBJECT sheet.FREE OBJECT workbook.FREE OBJECT excel.ENDFORM.”save_book

*&-------* *& 向excel中的指定行插入N行

*&-------* FORM excel_row_insert USING lcobj_sheet lc_row lc_count.DATA lc_range TYPE ole2_object.DATA h_borders TYPE ole2_object.DO lc_count TIMES.CALL METHOD OF lcobj_sheet “Rows” = lc_range EXPORTING #1 = 6.CALL METHOD OF lc_range “Copy”.“COPY第6行插入一個新行

CALL METHOD OF lcobj_sheet “Rows” = lc_range EXPORTING #1 = lc_row.CALL METHOD OF lc_range “Insert”.CALL METHOD OF lc_range “ClearContents”.“是否需要清空Cell ENDDO.ENDFORM.”excel_row_insert

*&-------* *& Form fill_range *&-------* * text 填充EXCEL 單元格

*--------* *-->VALUE(F_ROW)text *-->VALUE(F_COL)text *-->VALUE(F_VALUE)text *--------* FORM fill_range USING value(f_row)value(f_col)value(f_value).DATA: row TYPE i, col TYPE i.row = f_row.col = f_col.CALL METHOD OF excel “CELLS” = cell EXPORTING #1 = row #2 = col.SET PROPERTY OF cell “VALUE” = f_value.ENDFORM.“fill_range

*&-------* *& Form borderrange *&-------* * text：設置EXCEL中所插入的數據行邊框線格式

*--------* *-->LCOBJ_EXCEL text *-->RANGE text *--------* FORM borderrange USING lcobj_excel range.DATA: lc_cell TYPE ole2_object , lc_borders TYPE ole2_object.CALL METHOD OF lcobj_excel ”RANGE“ = lc_cell EXPORTING #1 = range.DO 4 TIMES.CALL METHOD OF lc_cell ”BORDERS“ = lc_borders

EXPORTING #1 = sy-index.SET PROPERTY OF lc_borders ”LineStyle“ = ”1“.SET PROPERTY OF lc_borders ”WEIGHT“ = 2.”4=max SET PROPERTY OF lc_borders “ColorIndex” = “1”.ENDDO.FREE OBJECT lc_borders.FREE OBJECT lc_cell.ENDFORM."borderrange

暫時只用到了這么多，還有ABAP設置EXCEL字體，對齊方式等功能。什么時候用到了再

做研究。希望對大家有所幫助。

第四篇：ABAP 內表用法小結

ABAP 內表用法小結

ABAP中的內表相當于其他程序設計語言中的二維數組，存儲多行結構相同的數據 不同于二維數組，內表在創建后，列結構與列數是固定不變的，而行數是動態增長的

內表支持循環對每行數據進行操作，也支持整體操作

內表是具有行和列的表結構，然而，不同于數據庫表，內表僅在程序運行期間在內存中存儲數據

ABAP中有三種內表類型：標準表，哈希表，排序表 – ABAP內表數據類型

內表數據對象是實際的內表，可以用數據進行填充

內表數據類型是用于定義內表數據對象的抽象數據類型（ADT）可以使用的內表數據類型有： Structure 數據庫表

用戶自定義數據類型 –ABAP內表聲明 1> TYPES: BEGIN OF line, field1 TYPE i, field2 TYPE i, END OF line.* 聲明一個數據類型

DATA: ITAB_WA TYPE(LIKE)line.“聲明一個內表工作區

DATA: ITAB TYPE(LIKE)line OCCURS 0.“聲明一個無工作區的內表 DATA: ITAB TYPE(LIKE)STANDARD TABLE OF line INITIAL SIZE 0.“聲明一個有工作區的內表 DATA: ITAB TYPE(LIKE)line OCCURS 0 WITH HEADER LINE.DATA: ITAB TYPE(LIKE)STANDARD TABLE OF line INITIAL SIZE 0 WITH HEADER LINE.2> DATA: BEGIN OF line, field1 TYPE i, field2 TYPE i, END OF line.* 聲明一個line對象，該對象可以作為工作區使用

* 用DATA定義的line本身也是一個結構類型,也可再聲明一個工作區 DATA: ITAB_WA TYPE(LIKE)line.“聲明一個工作區

DATA: ITAB TYPE(LIKE)line OCCURS 0 WITH HEADER LINE.“聲明一個帶工作區的內表

DATA: ITAB TYPE(LIKE)STANDARD TABLE OF line INITIAL SIZE 0 WITH HEADER LINE.“聲明一個帶工作區的內表 3>直接定義內表，這個內表是有工作區的 DATA: BEGIN OF ITAB OCCURS 0 , CARR1 LIKE SPFLI-CARRID, CONN1 LIKE SPFLI-CONNID, END OF ITAB.* DATA: ITAB1 TYPE ITAB.（錯誤的，實踐證明，定義出來的什么都不是）。正確方法：DATA: ITAB1 TYPE ITAB OCCURS 0.(這樣定義后的是一個無工作區的內表）。

DATA: ITAB1 LIKE ITAB OCCURS 0 WITH HEADER LINE.“定義一個帶工作區內表

4> type ref to 定義內表

type ref to 屬于ABAP中面向對象的編程。它是定義一個類的對象。5>通過數據庫表定義

data itab1 type table of sflight.“定義一個不帶內表的工作區 data wa1 like line of sflgit.“定義一個內表工作區

data itab1 type table of sflight with header line.“定義一個帶內表的工作區

–兩種內表定義方式的主要區別在于是否有隱式表頭行

內表是按行進行訪問的，然而，程序對內表的行操作不能直接進行，必須使用一種接口來傳輸，這個接口就是工作區（Work Area）–內表操作 填充內表行

append to “不帶表頭行的填充 append “帶隱式表頭行的填充 插入內表行

insert into [INDEX idx] “

insert [INDEX idx ] “隱式表頭行插入內表 –如果沒有指定INDEX，則默認插入到內表最后一行 讀取內表行

read into [INDEX idx] read [INDEX IDX] 修改內表行

modify from [INDEX idx] modify [INDEX idx] – read itab index 3.– itab-XX = ‘xxx’.– modify itab index 4.刪除內表行 delete [INDEX idx].–帶表頭行和不帶表頭行語法一致。內表循環

Loop at into . endloop.“帶表頭行的內表循環操作 Loop at . endloop.“不帶表頭行內表操作

–循環體的MODIFY，DELETE等語句不必指定INDEX項，系統默認處理當前行.–如果不需要讀取所有的內表行，可以使用WHERE選項進行限制 – LOOP AT [WHERE ] 清空內表

clear .“清空不帶表頭行內表 clear[].“清空帶表頭行內表 內表排序

SORT [ASCENDING | DESCENDING] [AS TEXT] –ASCENDING和DESCENDING指定升序還是降序排列，如果不指定，缺省排序方式是升序

–AS TEXT影響字符字段的排序方式，如果不使用該選項，系統將按字符平臺相應內部編碼進行排序，否則，系統根據當前語言按字母順序排序字符字段 刪除重復行

DELETE ADJACENT DUPLICATES FROM [COMPARING ].–刪除重復行之前須對內表進行排序 判斷內表行數

DESCRIBE TALBE LINES .將內表中部分或全部的數據行整體插入另一內表

INSERT LINES OF [FROM n1] [TO n2] INTO [TABLE] [INDEX ].– insert lines of itab1 from 1 to 100 into itab2.“將內表1前100行數據附加到內表2.–兩個內表必須具有相同的或可轉換的行結構 將內表中部分或全部的數據行整體填充到另一內表

APPEND LINES OF [FROM n1] [TO n2] TO .按照條件或者索引刪除一組選定行

DELETE [FROM n1] [TO n2] [WHERE ].– delete itab1 from 1 to 100 where age >30.“刪除內表前100行中年齡大于30 的記錄。

整體復制內表，目標內表原有內容被覆蓋

MOVE TO 不帶表頭行的內表之間進行復制 MOVE [] TO [].帶表頭行的內表之間進行復制

MOVE TO [].不帶表頭行的內表復制到帶表頭行的內表

MOVE-CORRESPONDING TO 復制內表1中與內表2具有相同結構的字段進行復制，同樣適用于工作區

第五篇：SAP ABAP OLE操作EXCEL小結

ABAP直接操作EXCEL實現數據處理。這里是用OLE實現操作EXCEL的。現在還有 DOI操作EXCEL等方法。以后用到再做介紹。此處不是直接生成EXCEL文件，而是從 服務器已經上傳的EXCEL模板中下載模板然后打開修改實現數據保存。也可以直接創建 新的EXCEL文件往里面傳遞數據并設置格式。這里不做介紹。

1.采用模板文件實現。上傳EXCEL模板 T-code：SMW0

注意選擇的是binary data(對于EXCEL模版上傳)如果是HTML上傳，對于存于www.tmdps.cntl_error = 1 error_no_gui = 2 not_supported_by_gui = 3 OTHERS = 4.IF lc_fullpath = ''.MESSAGE '不能打開excel' TYPE 'E'.ENDIF.IF sy-subrc = 0.p_dest = lc_fullpath.* concatenate p_objid '.XLS' into ls_objnam.CONDENSE ls_objnam NO-GAPS.SELECT SINGLE relid objid FROM wwwdata INTO CORRESPONDING FIELDS OF lo_objdata WHERE srtf2 = 0 AND relid = 'MI' AND objid = p_objid.“先嘗試取一下，接著檢查是否取到制定模版問件 *檢查表wwwdata中是否存在所指定的模板文件

IF sy-subrc NE 0 OR lo_objdata-objid EQ space.“如果不存在，則給出錯誤提示

CONCATENATE '模板文件' ls_objnam '不存在' INTO ls_errtxt.MESSAGE ls_errtxt TYPE 'I'.ENDIF.ls_destination = p_dest.”保存路徑

*如果存在，調用DOWNLOAD_WEB_OBJECT 函數下載模板到路徑下

CALL FUNCTION 'DOWNLOAD_WEB_OBJECT' EXPORTING key = lo_objdata destination = ls_destination IMPORTING rc = li_rc.IF li_rc NE 0.CONCATENATE '模板文件：' ls_objnam '下載失敗' INTO ls_errtxt.MESSAGE ls_errtxt TYPE 'E'.ENDIF.fname = ls_destination.ENDIF.ENDFORM.“fm_excel

3.下載完模板后，打開模板文件，填入數據 DATA: EXCEL TYPE ole2_object, WORKBOOK TYPE ole2_object, SHEET TYPE ole2_object.CREATE OBJECT excel 'EXCEL.APPLICATION'.”Create EXCEL OBJECT IF sy-subrc NE 0.EXIT.ENDIF.SET PROPERTY OF excel 'Visible' = 0.“1/0 是否顯示EXCEL CALL METHOD OF excel 'Workbooks' = workbook.CALL METHOD OF workbook 'Open' EXPORTING #1 = fname..”打開上面下載路徑下的excel文件

CALL METHOD OF excel 'Sheets' = sheet EXPORTING #1 = 1.CALL METHOD OF sheet 'Select'.CALL METHOD OF sheet 'ACTIVATE'.“sheet 激活 DATA SHEETNAME TYPE STRING.SHEETNAME = 'TESTTESTTEST'.SET PROPERTY OF sheet 'NAME' = sheetname.“設定sheet名稱 *此處假設內表itab 中已經存在需要寫入excel中的數據 *并且假如從模板的第7行開始插入數據 DATA ITAB LIKE STANDARD TABLE OF SFLIGHT.DATA WA LIKE SFLIGHT.DATA: TAB TYPE I,BOD(5)TYPE C.SELECT * INTO TABLE ITAB FROM SFLIGHT UP TO 8 ROWS.LOOP AT itab INTO wa.tab = sy-tabix + 6.*在excel中插入一行

PERFORM excel_row_insert USING sheet tab 1.*填充所插入行的每個單元格的數據

PERFORM fill_range USING tab 1 wa-t01.PERFORM fill_range USING tab 2 wa-t02.PERFORM fill_range USING tab 3 wa-t03.PERFORM fill_range USING tab 4 wa-t04.PERFORM fill_range USING tab 5 wa-t05.PERFORM fill_range USING tab 6 wa-t06.ENDLOOP.*設置EXCEL中所插入的數據行邊框線格式為黑色有邊框

bod = tab.CONDENSE bod NO-GAPS.CONCATENATE 'A6:F' bod INTO bod.PERFORM borderrange USING excel bod.PERFORM sub_excel_save.“保存excel數據

*&-------* *& Form sub_excel_save *&-------* * text *--------* FORM sub_excel_save.GET PROPERTY OF excel 'ActiveSheet' = sheet.“獲取活動SHEET FREE OBJECT sheet.FREE OBJECT workbook.GET PROPERTY OF excel 'ActiveWorkbook' = workbook.CALL METHOD OF workbook 'SAVE'.SET PROPERTY OF excel 'Visible' = 1.”是否顯示EXCEL 此處顯示不退出 * SET PROPERTY OF excel 'Visible' = 1.* CALL METHOD OF workbook 'CLOSE'.* CALL METHOD OF excel 'QUIT'.注釋部分為不顯示直接退出 FREE OBJECT sheet.FREE OBJECT workbook.FREE OBJECT excel.ENDFORM.“save_book

*&-------* *& 向excel中的指定行插入N行

*&-------* FORM excel_row_insert USING lcobj_sheet lc_row lc_count.DATA lc_range TYPE ole2_object.DATA h_borders TYPE ole2_object.DO lc_count TIMES.CALL METHOD OF lcobj_sheet 'Rows' = lc_range EXPORTING #1 = 6.CALL METHOD OF lc_range 'Copy'.“COPY第6行插入一個新行

CALL METHOD OF lcobj_sheet 'Rows' = lc_range EXPORTING #1 = lc_row.CALL METHOD OF lc_range 'Insert'.CALL METHOD OF lc_range 'ClearContents'.”是否需要清空Cell ENDDO.ENDFORM.“excel_row_insert *&-------* *& Form fill_range *&-------* * text 填充EXCEL 單元格

*--------* *-->VALUE(F_ROW)text *-->VALUE(F_COL)text *-->VALUE(F_VALUE)text *--------* FORM fill_range USING value(f_row)value(f_col)value(f_value).DATA: row TYPE i, col TYPE i.row = f_row.col = f_col.CALL METHOD OF excel 'CELLS' = cell EXPORTING #1 = row #2 = col.SET PROPERTY OF cell 'VALUE' = f_value.ENDFORM.”fill_range *&-------* *& Form borderrange *&-------* * text：設置EXCEL中所插入的數據行邊框線格式 *--------* *-->LCOBJ_EXCEL text *-->RANGE text *--------* FORM borderrange USING lcobj_excel range.DATA: lc_cell TYPE ole2_object , lc_borders TYPE ole2_object.CALL METHOD OF lcobj_excel 'RANGE' = lc_cell EXPORTING #1 = range.DO 4 TIMES.CALL METHOD OF lc_cell 'BORDERS' = lc_borders EXPORTING #1 = sy-index.SET PROPERTY OF lc_borders 'LineStyle' = '1'.SET PROPERTY OF lc_borders 'WEIGHT' = 2.“4=max SET PROPERTY OF lc_borders 'ColorIndex' = '1'.ENDDO.FREE OBJECT lc_borders.FREE OBJECT lc_cell.ENDFORM.”borderrange

暫時只用到了這么多，還有ABAP設置EXCEL字體，對齊方式等功能。什么時候用到了再 做研究。希望對大家有所幫助。