excel to itab

[Former Member]

hi

i got 14000 records in excel sheet, 1st row is headers(i wanna skip this row)

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = 'ZMAMASS_MATERIAL_DISC_UPADTION'

DYNPRO_NUMBER = '1000'

FIELD_NAME = 'p_file'

IMPORTING

FILE_NAME = p_file.

FORM download_file .

data: fname type localfile.

fname = p_file.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

FILENAME = fname

I_BEGIN_COL = 1

I_BEGIN_ROW = 2

I_END_COL = 2

I_END_ROW = 14000

TABLES

INTERN = IT_MAKT

EXCEPTIONS

INCONSISTENT_PARAMETERS = 1

UPLOAD_OLE = 2

OTHERS = 3

.

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. " download_file

it's giving dump...

whats the problem..plz respond fast

[Former Member]

hi

i got 14000 records in excel sheet, 1st row is headers(i wanna skip this row)

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = 'ZMAMASS_MATERIAL_DISC_UPADTION'

DYNPRO_NUMBER = '1000'

FIELD_NAME = 'p_file'

IMPORTING

FILE_NAME = p_file.

FORM download_file .

data: fname type localfile.

fname = p_file.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

FILENAME = fname

I_BEGIN_COL = 1

I_BEGIN_ROW = 2

I_END_COL = 2

I_END_ROW = 14000

TABLES

INTERN = IT_MAKT

EXCEPTIONS

INCONSISTENT_PARAMETERS = 1

UPLOAD_OLE = 2

OTHERS = 3

.

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. " download_file

it's giving dump...

whats the problem..plz respond fast

[Former Member]

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = 'ZMAMASS_MATERIAL_DISC_UPADTION'

DYNPRO_NUMBER = '1000'

FIELD_NAME = 'P_FILE' "<----

---

give the name in upper case

IMPORTING

FILE_NAME = p_file.

Declare fname type RLGRAP-FILENAME.

and declare IT_MAKT of type ALSMEX_TABLINE

DATA : IT_MAKT TYPE TABLE OF ALSMEX_TABLINE.

[amit_khare]

fname should be of type - RLGRAP-FILENAME

and IT_MAKT should be of type - ALSMEX_TABLINE

In I_END_COL put the last number of columns you want to read.

Regards,

Amit

Reward all helpful replies.

[Former Member]

see the following ex:

data: begin of excel_tab occurs 0.

include structure alsmex_tabline.

data: end of excel_tab .

data: begin of itab occurs 0,

bldat like bkpf-bldat,

blart like bkpf-blart,

bukrs like bkpf-bukrs,

budat like bkpf-budat,

waers like bkpf-waers,

bschl like bseg-bschl,

hkont like bseg-hkont,

sgtxt like bseg-sgtxt,

end of itab.

data: process_tab_struct_tmp like itab.

field-symbols: <fs1>.

selection-screen: begin of block blk.

parameters: fname type rlgrap-filename.

selection-screen: end of block blk.

at selection-screen on value-request for fname.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = 'ZFI_EXCEL'

DYNPRO_NUMBER = '1000'

FIELD_NAME = 'FNAME'

IMPORTING

FILE_NAME = FNAME.

START-OF-SELECTION.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

filename = FNAME

i_begin_col = 1

i_begin_row = 1

i_end_col = 24

i_end_row = 60000

tables

intern = EXCEL_TAB

LOOP AT EXCEL_TAB.

assign component excel_tab-col of structure

process_tab_struct_tmp to <fs1>.

<fs1> = excel_tab-value.

at end of row.

move-corresponding: process_tab_struct_tmp to itab. “Move values to itab

append itab.

endat.

ENDLOOP.

LOOP AT ITAB.

WRITE:/2 ITAB-BLDAT,14(8) ITAB-BLART,20(10) ITAB-BUDAT.

ENDLOOP.

[Former Member]

Hi,

you can use the fm also 'TEXT_CONVERT_XLS_TO_SAP' Try this

TYPE-POOLS: truxs.

data: begin of it_datatab1,

col01(60) TYPE c,

col02(60) TYPE c,

end of it_datatab1.

DATA : it_datatab like it_datatab1 occurs 0,

• wa_datatab type it_datatab1.

it_raw TYPE truxs_t_text_data.

PARAMETERS: p_file LIKE ibipparms-path OBLIGATORY. "Input file

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

CALL FUNCTION 'F4_FILENAME' "For upload of the program

EXPORTING

field_name = 'P_FILE'

IMPORTING

file_name = p_file.

CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'

EXPORTING

• I_FIELD_SEPERATOR =

• I_LINE_HEADER =

I_TAB_RAW_DATA = it_raw

I_FILENAME = p_file

TABLES

I_TAB_CONVERTED_DATA = it_datatab

• 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.

<b>Rewrad points</b>

Regards

[Former Member]

Hi,

Pls check the file name, u need to mention full path with extension.

Pls reward points.

Regards,

Ameet

[Former Member]

thx u all