‎2007 Jun 09 8:12 AM
HAI ALL,
I have to read data from Excel(here i have open office s/w) to internal table. I have used GUI_UPLOAD FM .
ITS WORKINGONLY FOR TXT TYPE FILES. IF I USE OTHER THAN ANYTHING I STORING DATA AS ASCI CHARS.
I HAVE USED FILETYPE PARAMETER ASC.
IF I USE OTHER THAN THAT ASC FILETYPE, IT SAYS NOT VALID FILE TYPE.
2. I HAVE ALOS TRIED
TEXT_CONVERT_XLS_TO_SAP FM.
IF I USE THIS FM, IT SAYS SPECIFIED FILE CANNOT BE PROCESSED..
PL. HELP ME.
MY COADING.
TYPE-POOLS: truxs.
DATA: i_text_data TYPE truxs_t_text_data,
v_filename_string TYPE string.
DATA: BEGIN OF itab OCCURS 0,
KUNNR(20) ,
AUGDT(10) ,
DMBTR(13) ,
END OF itab.
PARAMETERS: p_file LIKE rlgrap-filename.
START-OF-SELECTION.
v_filename_string = p_file.
*CALL FUNCTION 'GUI_UPLOAD'
*EXPORTING
*filename = v_filename_string
*filetype = 'ASC'
*has_field_separator = 'X'
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
*dat_mode = ''
IMPORTING
FILELENGTH =
HEADER =
*TABLES
*data_tab = ITAB
*EXCEPTIONS
*file_open_error = 1
*file_read_error = 2
*no_batch = 3
*gui_refuse_filetransfer = 4
*invalid_type = 5
*no_authority = 6
*unknown_error = 7
*bad_data_format = 8
*header_not_allowed = 9
*separator_not_allowed = 10
*header_too_long = 11
*unknown_dp_error = 12
*access_denied = 13
*dp_out_of_memory = 14
*disk_full = 15
*dp_timeout = 16
*OTHERS = 17.
*IF sy-subrc <> 0.
*MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*ENDIF.
*
*CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
*EXPORTING
*i_field_seperator = 'X'
I_LINE_HEADER =
*i_tab_raw_data = i_text_data
*i_filename = p_file
*TABLES
*i_tab_converted_data = itab
*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.
THANKS IN ADVANCE
SENTHIL KUMAR
‎2007 Jun 09 8:19 AM
‎2007 Jun 09 10:05 AM
This will directly put the excel data into required internal table.
data rawdata type TRUXS_T_TEXT_DATA.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
i_tab_raw_data = rawdata
i_filename = path
tables
i_tab_converted_data = itab
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.
‎2007 Jun 09 10:07 AM
While using 'TEXT_CONVERT_XLS_TO_SAP', the source excel file should be closed.