sap ABAP EXCEL數據批量導入自建表

以下是基本程序，根據情況只要稍稍修改就可以了~~

創新互聯公司成立于2013年，我們提供高端網站建設、網站制作公司、網站設計、網站定制、營銷型網站建設、微信平臺小程序開發、微信公眾號開發、seo優化服務，提供專業營銷思路、內容策劃、視覺設計、程序開發來完成項目落地，為成都活動板房企業提供源源不斷的流量和訂單咨詢。

1、 REPORT ZLLLL.

data:begin OF ZMSTUDENT,

ZMSID TYPE ZMSID,

ZMCNO TYPE ZMCNO,

ZMKNO TYPE ZMKNO,

ZMNAME TYPE ZMNAME,

ZMSSEX TYPE ZMSSEX,

ZMSAGE TYPE ZMSAGE,

ZMSTEL TYPE ZMSTEL,

END OF ZMSTUDENT.

DATA:itab LIKE TABLE OF ZMSTUDENT WITH HEADER LINE,（存放表）

bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE,（執行的參數傳遞表）

message_table LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.（返回執行結果）

DATA: BEGIN OF it_message OCCURS 0,

msgtp TYPE bdc_mart,

matnr LIKE makt-matnr,

text(40),

END OF it_message.

SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.

PARAMETERS:P_TYP TYPE CTU_MODE OBLIGATORY DEFAULT'N',

P_FILE LIKE RLGRAP-FILENAME OBLIGATORY.

SELECTION-SCREEN END OF BLOCK BLK.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

PERFORM SELECT_FILE.

START-OF-SELECTION.

PERFORM GET_FILE_DATA.

PERFORM pross_data.

*-----------------------------------------------------------------

form SELECT_FILE .

DATA : l_FILETAB TYPE FILETABLE,

L_WAFTAB LIKE LINE OF L_FILETAB,

L_RC TYPE I.

CALL METHOD CL_GUI_FRONTEND_SERVICES=FILE_OPEN_DIALOG

EXPORTING

WINDOW_TITLE = '打開文件'

initial_DIRECTORY = 'C:/'

CHANGING

FILE_TABLE = L_FILETAB

RC = L_RC

EXCEPTIONS

file_open_dialog_failed = 1

cntl_error = 2

error_no_gui = 3

not_supported_by_gui = 4

OTHERS = 5

.

IF sy-subrc 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

EXIT.

ELSE.

READ TABLE l_filetab INTO l_waftab INDEX 1.

p_file = l_waftab-filename.

CLEAR: l_filetab,

l_waftab.

ENDIF.

endform. " SELECT_FILE

*----------------------------------------------------------------

form GET_FILE_DATA .

DATA lt_excel TYPE TABLE OF alsmex_tabline WITH HEADER LINE.

DATA l_index LIKE sy-tabix.

FIELD-SYMBOLS .

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

filename = p_file

i_begin_col = '1'

i_begin_row = '2'

i_end_col = '50'

i_end_row = '50000'

TABLES

intern = lt_excel

EXCEPTIONS

inconsistent_parameters = 1

upload_ole = 2

OTHERS = 3.

* 將EXCEL格式中的數據導入到內表TAB_LOAD中

LOOP AT lt_excel.

MOVE lt_excel-col TO l_index.

* ASSIGN COMPONENT l_index OF STRUCTURE itab TO .

* MOVE lt_excel-value TO .

* AT END OF row.

* TRANSLATE gt_user-uname TO UPPER CASE.

CASE L_INDEX.

WHEN'1'.

MOVE lT_EXCEL-VALUE TO ZMSTUDENT-ZMSID.

WHEN'2'.

MOVE lT_EXCEL-VALUE TO ZMSTUDENT-ZMCNO.

WHEN'3'.

MOVE lT_EXCEL-VALUE TO ZMSTUDENT-ZMKNO.

WHEN'4'.

MOVE lT_EXCEL-VALUE TO ZMSTUDENT-ZMNAME.

WHEN'5'.

MOVE lT_EXCEL-VALUE TO ZMSTUDENT-ZMSSEX.

WHEN'6'.

move lt_excel-value to zmstudent-zmsage.

when'7'.

move lt_excel-value to zmstudent-zmstel.

endcase.

at end of row.

APPEND itab.

CLEAR itab.

ENDAT.

ENDLOOP.

endform. " GET_FILE_DATA

*----------------------------------------------------------------

form PROSS_DATA .

DATA: l_line1(6).

data: aa(3), bb(3) ,cc(3).

DATA:LC(5).

LOOP AT itab.

perform bdc_dynpro using 'ZMLL001' '2000'.（需要用到的程序名和屏幕號）

perform bdc_field using 'BDC_CURSOR'

'LS_ZMSTUDENT-ZMSTEL'.

perform bdc_field using 'BDC_OKCODE'

'SAVE'.

MOVE ITAB-ZMCNO TO AA.（因為zmcno字段是num型的，所以這里要把它放大一個char型的字段里）

MOVE ITAB-ZMKNO TO BB.

MOVE ITAB-ZMSAGE TO CC.

*****************以下這段是錄屏截得的代碼~~~~~*******************

perform bdc_field using 'LS_ZMSTUDENT-ZMSID'

itab-zmsid.

* record-ZMSID_001.

perform bdc_field using 'LS_ZMSTUDENT-ZMCNO'

AA.

* itab-ZMCNO.

* record-ZMCNO_002.

perform bdc_field using 'LS_ZMSTUDENT-ZMKNO'

BB.

* itab-ZMKNO.

* record-ZMKNO_003.

perform bdc_field using 'LS_ZMSTUDENT-ZMNAME'

itab-ZMNAME.

* record-ZMNAME_004.

perform bdc_field using 'LS_ZMSTUDENT-ZMSSEX'

itab-ZMSSEX.

* record-ZMSSEX_005.

perform bdc_field using 'LS_ZMSTUDENT-ZMSAGE'

CC.

* itab-ZMSAGE.

* record-ZMSAGE_006.

perform bdc_field using 'LS_ZMSTUDENT-ZMSTEL'

itab-ZMSTEL.

* record-ZMSTEL_007.

ENDLOOP.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BACK1'.

CALL TRANSACTION 'ZMM' USING bdcdata MODE p_typ

UPDATE 'L'

MESSAGES INTO message_table.

DESCRIBE TABLE message_table LINES l_line1.

READ TABLE message_table INDEX l_line1.

IF sy-subrc = 0.

it_message-msgtp = message_table-msgtyp.

* it_message-matnr = itma-matnr.

SELECT SINGLE text

FROM t100

INTO it_message-text

WHERE sprsl = sy-langu AND

arbgb = message_table-msgid AND

msgnr = message_table-msgnr.

REPLACE FIRST OCCURRENCE OF ' ' IN it_message-text WITH message_table-msgv1.

REPLACE FIRST OCCURRENCE OF ' ' IN it_message-text WITH message_table-msgv2.

REPLACE FIRST OCCURRENCE OF ' ' IN it_message-text WITH message_table-msgv3.

REPLACE FIRST OCCURRENCE OF ' ' IN it_message-text WITH message_table-msgv4.

ENDIF.

APPEND it_message.

CLEAR it_message.

CLEAR:message_table,message_table[],bdcdata,bdcdata[].

endform. " PROSS_DATA

*----------------------------------------------------------------

form BDC_DYNPRO using program dynpro.

CLEAR bdcdata.

bdcdata-program = program.

bdcdata-dynpro = dynpro.

bdcdata-dynbegin = 'X'.

APPEND bdcdata.

endform. " BDC_DYNPRO

*----------------------------------------------------------------

form BDC_FIELD using fnam fval.

CLEAR bdcdata.

bdcdata-fnam = fnam.

bdcdata-fval = fval.

APPEND bdcdata.

endform. " BDC_FIELD

如何實現excel表格中批量復制粘貼到SAP系統中

這得看你這個系統能怎樣輸入內容了。原來遇到過類似問題，其實就是簡單重復、復雜的復制，再粘貼到指定地方，可以用以下幾個方法處理：一是按鍵精靈，錄制一個動作，然后稍作修改后運行實現指定操作；二是AutoIT，這個也可以先錄制動作，然后修改后完成重復操作；三是部分情況可以嘗試使用VBS操作也可能實現。比較起來，應該按鍵精靈最容易上手些，簡單的使用只需要熟悉一下就能用了。試試吧，希望能幫到你！

如何將一個excel模板文件上傳到sap系統中

從 Excel 文件中導入和導出 RFx 問題

可將 RFx 問題導出，進行離線編輯，然后再次導入。通過導出和導入功能，將問題從模板或 RFx 導出，然后導入其他模板或 RFx，還可實現問題共享。

只能將新問題和部分導入 RFx 中。要替換現有問題和部分，請在導入新版本之前從 RFx 刪除原始版本。

過程

從 Excel 文件導入 RFx 問題

在〖問題〗選項卡上，選擇〖導入〗。

在〖導入向導〗中，瀏覽并選擇要導入的文件，然后選擇〖確定〗。

（可選）選中〖文件預覽〗框，對導入的問題進行預覽。 選擇〖下一步〗。

如果選擇了〖文件預覽〗，請對問題進行檢查，然后選擇〖下一步〗。

監控導入對話框中的導入狀態和進度，完成后即可選擇〖完成〗。

問題將顯示在〖RFx 問題〗頁面中。

將 RFx 問題導出至 Excel 文件

在 RFx 或 RFx 模板中，選擇〖報表〗，然后選擇〖RFx 問題導出〗。

系統顯示 RFx 問題導出報表。若要重新導入問題，系統將通過此報表來指示所用數據和格式。

注釋 保存 RFx 后，即顯示〖報表〗工具欄按鈕。

結束注釋。 選擇〖導出 Excel〗。

在〖文件下載〗對話框中，選擇〖保存〗。

輸入文件名稱及位置并保存。

問題保存至文件。