将字段符号分配给内部表

Question

I'm trying upload Excel file to internal table in ABAP. I'm using function GUI_UPLOAD and then SCMS_BINARY_TO_XSTRING . At last I have field sybmbol <gt_data> with data from Excel file.

DATA(lo_data_ref) = lo_excel_ref->if_fdt_doc_spreadsheet~get_itab_from_worksheet(
                                             lv_woksheetname ).
*-- Excel work sheet data in dyanmic internal table
    ASSIGN lo_data_ref->* TO <gt_data>.

A [CString]	B [CString]
data1	data11
data2	data22
data3	data33

How I can iterate <gt_data> to internal table? I would try like below, but I received dump.

 TYPES: BEGIN OF lty_test,
           A  TYPE string,
           B TYPE string,
         END OF lty_test.

  DATA: lt_test_table    TYPE STANDARD TABLE OF lty_test.

Answer 1

As far as I understood, you want to read excel rows with this code.

LOOP AT <gt_data> ASSIGNING FIELD-SYMBOL(<ls_data>).
ENDLOOP.

I am not sure struct of <ls_data> but I think you can read it with index for get to know main idea.

Could you try it like below?

CHECK <gt_data> IS ASSIGNED.
"It's column count for excel file. It can be found dynamically.
DATA(lv_column_count) = 10.
"Loop for rows.
LOOP AT <gt_data> ASSIGNING FIELD-SYMBOL(<ls_data>).
  "Loop for columns
  DO lv_column_count.
   ASSIGN COMPONENT sy-index OF <ls_dat> TO FIELD-SYMBOL(<lfs_value>).
  ENDDO.
ENDLOOP.

Answer 2

Try this:

    file = 'C:\xyz.XLS'.

  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = file
      i_begin_col             = '1'
      i_begin_row             = '1'
      i_end_col               = '5'
      i_end_row               = '6000'
    TABLES
      intern                  = xcel
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.

LOOP AT xcel.
  " xcel is an internal table and has field xcel-value
ENDLOOP.

Answer 3

So first you need to declare a structure for the internal table and each field in the structure should have type "string".

Types:begin of ty_upload,
    Field1 type string,
    Field2 type string,
   End of ty_upload.
Data:it_upload type standard table of ty_upload.
It_upload[] = <gt_data>

Now internal table it_upload should have the data from the field value