如何在程序中将外部Excel数据上载到数据库并AlV展示,实例
俩个主要的函数
function : 获取excel文件路径
————————————————————————————————————————
call function 'GUI_FILE_LOAD_DIALOG'
exporting
WINDOW_TITLE = '打开文件'
DEFAULT_EXTENSION = ''
* DEFAULT_FILE_NAME =
* WITH_ENCODING =
* FILE_FILTER =
INITIAL_DIRECTORY = 'D:\'
importing
* FILENAME =
* PATH =
FULLPATH = P_FILE
* USER_ACTION =
* FILE_ENCODING =
————————————————————————————————————————
————————————————————————————————————————————-
form UPLOAD_DATA .
type-pools: TRUXS.
data: LT_TXT type TRUXS_T_TEXT_DATA,
LC_DATAFILE type LOCALFILE.
LC_DATAFILE = P_FILE. 文件名赋值
call function 'TEXT_CONVERT_XLS_TO_SAP'
exporting
* I_FIELD_SEPERATOR =
I_LINE_HEADER = 'X'
I_TAB_RAW_DATA = LT_TXT
I_FILENAME = LC_DATAFILE *传入文件
tables
I_TAB_CONVERTED_DATA = GT_SUBJECT *数据传入内表
exceptions
CONVERSION_FAILED = 1
others = 2
.
if SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
endform. " UPLOAD_DATA
————————————————————————————————————--——
可能有些同学像我一样是在自己的ecc6上测试自学的,
没有业务环境,那现在我们可以先自己模拟一些数据,测试一些,搞懂简单的过程,我的excel数据是
那你相应的要建立透明表,去数据字典
data
element 和domain自己定义就可以了,
下面是整个程序
——————————————————————————————————————————
*&---------------------------------------------------------------------*
*& Report ZSUB006_JIAN
*&
*&---------------------------------------------------------------------*
*&<