[SAP ABAP開發技術總結]客戶端文本文件、Excel文件上傳下載


 

客戶端文本文件或Excel文件導入與導出

TEXT_CONVERT_XLS_TO_SAP

TEXT_CONVERT_XLS_TO_SAP函數可以將本地的文本文件(列與列之間默認使用TAB鍵分開,但也可以指定)或真正的Excel文件上傳到服務內表中,並且文件轉換成內表中的數據是自動完成,不需要手動,這與ALSM_EXCEL_TO_INTERNAL_TABLE函數是不一樣的

PARAMETERS:p_file LIKE rlgrap-filename OBLIGATORY.
TYPE-POOLS: truxs.
DATA: BEGIN OF i_data OCCURS 0,
       
c(2),
        n
(2) TYPE n,

       
i TYPE i,
        d
TYPE d,
     
END OF i_data.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file. "彈出選擇文件對話框
 
CALL FUNCTION 'WS_FILENAME_GET'
   
EXPORTING
*     DEF_FILENAME     = ' '
      def_path        
= 'C:\'
         
"Structure of MASK: ,<text>,<FILTERGROUP>.
         
"Structure of FILTERGROUP: <filter>;<filter>*
     
mask             = ',Excel File,*.xls;*.xlsx;*.txt.'
     
title            = 'Window Title:請選擇文件'
         
"彈出框的模式 S -- 用來保存文件 O -- 用來打開文件
     
MODE             = 'S'
   
IMPORTING
      filename        
= p_file
*     RC               =

   
EXCEPTIONS
      INV_WINSYS      
= 1
      NO_BATCH        
= 2
      SELECTION_CANCEL
= 3"如果用戶取消了對話框
      SELECTION_ERROR 
= 4
     
OTHERS           = 5.

START
-OF-SELECTION.
 
DATA: il_raw TYPE truxs_t_text_data.
 
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
   
EXPORTING
*     I_FIELD_SEPERATOR    =
*     i_line_header        = 'X' "文本中的第一行是否是標題頭,如果是則不會讀取
      i_tab_raw_data      
= il_raw "該參數實際上沒有使用到,但為必輸參數
      i_filename          
= p_file
   
TABLES

      i_tab_converted_data
= i_data.
  BREAK
-POINT.

 

ALSM_EXCEL_TO_INTERNAL_TABLE

image001

通過ALSM_EXCEL_TO_INTERNAL_TABLE函數可以將上面Excel中的數據導入到下面結構的內表中:

image002

最后我們還需要手動將上面一個個單元格轉換為成一行行,轉換后如下:

image003

DATA: filetab TYPE filetable WITH HEADER LINE .
DATA: rc TYPE i.
DATA: outtab TYPE TABLE OF mara WITH HEADER LINE  .
DATA: itab TYPE TABLE OF alsmex_tabline WITH HEADER LINE.
DATA:g_file TYPE rlgrap-filename.
FIELD-SYMBOLS: <fs>.
PARAMETERS: p_file TYPE string.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
 
"打開文件選擇對話框
 
CALL METHOD cl_gui_frontend_services=>file_open_dialog
   
EXPORTING

      default_filename
= p_file
   
CHANGING

      rc              
= rc
      file_table      
= filetab[].

 
READ TABLE  filetab INDEX  1.
 
IF sy-subrc EQ 0.
    p_file
= filetab-filename.
 
ENDIF.


START
-OF-SELECTION.
  g_file
= p_file.
 
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
   
EXPORTING
      filename   
= g_file
      i_begin_col
= 1

      i_begin_row
= 1
      i_end_col  
= 255
      i_end_row  
= 65536
   
TABLES
      intern     
= itab[].
*  DELETE itab WHERE row = 1.  "刪除字段名行
 
LOOP AT itab.
   
ON CHANGE OF itab-row.
     
IF sy-tabix <> 1.
       
APPEND outtab.
       
CLEAR outtab.
     
ENDIF.
   
ENDON.
   
"將列轉換為內表行的形式
   
ASSIGN COMPONENT itab-col OF STRUCTURE outtab TO <fs>.
    <fs>
= itab-value.
 
ENDLOOP.
 
APPEND outtab."最后一條APPEND
到內表中

使用ALSM_EXCEL_TO_INTERNAL_TABLE 時,單元格內容的長度是有限制,好像是50個,我們可以采用如下辦法來解決問題:將ALSM_EXCEL_TO_INTERNAL_TABLE Copy出來,然后Copy一個INTERN所參考的Structure,把Value的長度改為4096,這樣大多數情況下都能勝任了。另外,如果不要這樣做,那我使用前面的TEXT_CONVERT_XLS_TO_SAP函數應該可以。

SAP_CONVERT_TO_XLS_FORMAT

ABAP 內表導出到excel

CALL FUNCTION 'SAP_CONVERT_TO_XLS_FORMAT'

            EXPORTING

                 i_filename        = file1

            TABLES

                  i_tab_sap_data    = itable1

            EXCEPTIONS

                  conversion_failed = 1.

 

以上代碼是將內表itable1寫到一個EXCEL文件file1中。如果EXCEL文件已經存在,那么將被覆蓋。

 結果顯示,內表的內容是寫到了EXCEL文件中,但如果原來的EXCEL文件行記錄(假如M行)多於內表的行(假如N行),那末只覆蓋一部分(M行中的前N行)。


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM