如何读取EXCEL文件到内表
来源:互联网 发布:js模块化 编辑:程序博客网 时间:2024/05/17 03:47
1 定义内表
data: gt_data type alsmex_tabline occurs 0 with header line.
2 定义文件参数
parameters:
p_file like rlgrap-filename.
3定义文件帮助
at selection-screen on value-request for p_file.
perform select_file.
form select_file .
call function 'WS_FILENAME_GET'
exporting
mask = ',Excel Files,*.xls,All Files,*.*.'(101)
title = '选择文件'(100)
importing
filename = p_file
exceptions
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
others = 5.
if sy-subrc <> 0 and sy-subrc <> 3.
message e100(zdev) with '选择文件出错!'(007).
endif.
endform.
4 读取EXCEL 文件到内表
" SELECT_FILE
call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
*倒入EXCEL数据到内表
exporting
filename = p_file
i_begin_col = '1'
i_begin_row = '1'
i_end_col = '4'
i_end_row = '5000'
tables
intern = gt_data.
sort gt_data by row col value.
5 数据转换
loop at gt_data.
if g_row <> gt_data-row and sy-tabix > 1 .
append gt_zfi025.
clear gt_zfi025.
endif.
gt_zfi025-mandt = sy-mandt.
case gt_data-col.
when 1. gt_zfi025-bukrs = gt_data-value.
when 2. gt_zfi025-bzirk = gt_data-value.
when 3. gt_zfi025-vkbur = gt_data-value.
when 4. gt_zfi025-money = gt_data-value.
endcase.
g_row = gt_data-row.
clear gt_data.
endloop.
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1408409
- 如何读取EXCEL文件到内表
- 如何读取EXCEL文件到内表
- 如何读取EXCEL文件到内表
- c#如何读取excel文件
- delphi7如何读取excel文件
- C#如何读取Excel文件
- vb如何读取excel文件
- 如何读取EXCEL文件中的图片?
- C#如何高效读取EXCEL文件
- PHPExcel如何读取超大excel文件
- ASP.NET如何高效读取EXCEL文件
- MATLAB如何读取excel文件中的数据?
- SAP ABAP 如何读取EXCEL数据到内表
- SAP ABAP 如何读取EXCEL数据到内表
- 如何读取Excel文件并赋值给DataGridView对象
- Java, 如何从Excel中读取数据到文件中
- 如何使用XlsReadWriteII在Delphi中读取Excel文件
- cocos2d-x移植到android如何读取Excel文件
- 如何进行各种码制数据之间转换
- nio socket 及其开源框架MINA学习总结(一)
- 部分有关会计单词的英中文对照(续)
- 部分有关会计单词的英中文对照
- ABAP--处理'REUSE_ALV_GRID_DISPLAY'的双击事件
- 如何读取EXCEL文件到内表
- ubuntu 7.10中Fcitx 安装 , 和在英文环境中使用 Fcitx (英文界面)
- 关于文本(Read_text,Save_text)
- nio socket 及其开源框架MINA学习总结(二)
- 关于MRP的几个概念
- SAP 中国的咨询合作伙伴
- Product Cost by Sales Order
- SAP中有关差异的一些概念
- ERP系统中的存货计价过程