Excel to ZTABLE

Hi, is posible using Excel directy send data to Z tabla via RFC ?
I need send from Excel or MS Project to Z Table.
Any idea ?
Thank you.

Victor...Does something like this helps you??? <a href="/people/kathirvel.balakrishnan2/blog/2006/09/14/simple-se38-emulator-using-microsoft-excel">Simple SE38 Emulator using Microsoft Excel</a>
Greetings,
Blag.

Similar Messages

Upload data from excel to Ztable with statistics

Hi,
I have a requirement to upload data from excel sheet to ztable .
Here i need tp provide the user with the execution statistics like
1.Number of records read from the Excel spread-sheet
2. Number records processed successfully
3. Number records with Error
4. Name and location of Error Log-file (text-file format)
5. Name and location of the file containing error records (Excel spread-sheet format)
I would appreciate if any of you have code written for the same

See the below example code to upload from xl file to sap
REPORT ZLWMI151_UPLOAD no standard page heading
 line-size 100 line-count 60.
*tables : zbatch_cross_ref.
data : begin of t_text occurs 0,
 werks(4) type c,
 cmatnr(15) type c,
 srlno(12) type n,
 matnr(7) type n,
 charg(10) type n,
 end of t_text.
data: begin of t_zbatch occurs 0,
 werks like zbatch_cross_ref-werks,
 cmatnr like zbatch_cross_ref-cmatnr,
 srlno like zbatch_cross_ref-srlno,
 matnr like zbatch_cross_ref-matnr,
 charg like zbatch_cross_ref-charg,
 end of t_zbatch.
data : g_repid like sy-repid,
 g_line like sy-index,
 g_line1 like sy-index,
 $v_start_col type i value '1',
 $v_start_row type i value '2',
 $v_end_col type i value '256',
 $v_end_row type i value '65536',
 gd_currentrow type i.
data: itab like alsmex_tabline occurs 0 with header line.
data : t_final like zbatch_cross_ref occurs 0 with header line.
selection-screen : begin of block blk with frame title text.
parameters : p_file like rlgrap-filename obligatory.
selection-screen : end of block blk.
initialization.
g_repid = sy-repid.
at selection-screen on value-request for p_file.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 PROGRAM_NAME = g_repid
 IMPORTING
 FILE_NAME = p_file.
start-of-selection.
Uploading the data into Internal Table
perform upload_data.
perform modify_table.
top-of-page.
CALL FUNCTION 'Z_HEADER'
EXPORTING
 FLEX_TEXT1 =
 FLEX_TEXT2 =
 FLEX_TEXT3 =
*& Form upload_data
 text
FORM upload_data.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 FILENAME = p_file
 I_BEGIN_COL = $v_start_col
 I_BEGIN_ROW = $v_start_row
 I_END_COL = $v_end_col
 I_END_ROW = $v_end_row
 TABLES
 INTERN = itab
 EXCEPTIONS
 INCONSISTENT_PARAMETERS = 1
 UPLOAD_OLE = 2
 OTHERS = 3.
IF SY-SUBRC <> 0.
 write:/10 'File '.
ENDIF.
if sy-subrc eq 0.
 read table itab index 1.
 gd_currentrow = itab-row.
 loop at itab.
 if itab-row ne gd_currentrow.
 append t_text.
 clear t_text.
 gd_currentrow = itab-row.
 endif.
 case itab-col.
 when '0001'.
 t_text-werks = itab-value.
 when '0002'.
 t_text-cmatnr = itab-value.
 when '0003'.
 t_text-srlno = itab-value.
 when '0004'.
 t_text-matnr = itab-value.
 when '0005'.
 t_text-charg = itab-value.
 endcase.
 endloop.
endif.
append t_text.
ENDFORM. " upload_data
*& Form modify_table
 Modify the table ZBATCH_CROSS_REF
FORM modify_table.
loop at t_text.
 t_final-werks = t_text-werks.
 t_final-cmatnr = t_text-cmatnr.
 t_final-srlno = t_text-srlno.
 t_final-matnr = t_text-matnr.
 t_final-charg = t_text-charg.
 t_final-erdat = sy-datum.
 t_final-erzet = sy-uzeit.
 t_final-ernam = sy-uname.
 t_final-rstat = 'U'.
 append t_final.
 clear t_final.
endloop.
delete t_final where werks = ''.
describe table t_final lines g_line.
sort t_final by werks cmatnr srlno.
Deleting the Duplicate Records
perform select_data.
describe table t_final lines g_line1.
modify zbatch_cross_ref from table t_final.
if sy-subrc ne 0.
 write:/ 'Updation failed'.
else.
 Skip 1.
 Write:/12 'Updation has been Completed Sucessfully'.
 skip 1.
 Write:/12 'Records in file ',42 g_line .
 write:/12 'Updated records in Table',42 g_line1.
endif.
delete from zbatch_cross_ref where werks = ''.
ENDFORM. " modify_table
*& Form select_data
 Deleting the duplicate records
FORM select_data.
select werks
 cmatnr
 srlno from zbatch_cross_ref
 into table t_zbatch for all entries in t_final
 where werks = t_final-werks
 and cmatnr = t_final-cmatnr
 and srlno = t_final-srlno.
sort t_zbatch by werks cmatnr srlno.
loop at t_zbatch.
 read table t_final with key werks = t_zbatch-werks
 cmatnr = t_zbatch-cmatnr
 srlno = t_zbatch-srlno.
 if sy-subrc eq 0.
 delete table t_final .
 endif.
 clear: t_zbatch,
 t_final.
endloop.
ENDFORM. " select_data
Reward Points if it is helpful
Thanks
Seshu

How to upload Excel data in Ztables fastly & easily.

Dear ALL,
I want to compare material codes in 2 different excel sheets.
I have downloaded output from 2 different SQVI into 2 different excel sheets.
Now I want to compare these 2 sheets to get matching codes or unmatching codes.
I can use VLOOKUP in excel also. But How can I make use of ABAP by downloading these excel data in 2 different Ztables and compare these 2 tables with some user defined TC (transaction code) ?
For this activity How to upload Excel data(2 sheets) in 2 Ztables fastly & easily ?
Is there any method other than SCAT , BDC and LSMW ???
Or which is best method in above ?
Pl' reply.
Thanks.

Have a look at the program
*: Description :
*: This is a simple example program to get data from an excel :
*: file and store it in an internal table. :
*: Author : www.sapdev.co.uk, based on code from Jayanta :
*: SAP Version : 4.7 :
REPORT zupload_excel_to_itab.
TYPE-POOLS: truxs.
PARAMETERS: p_file TYPE rlgrap-filename.
TYPES: BEGIN OF t_datatab,
 col1(30) TYPE c,
 col2(30) TYPE c,
 col3(30) TYPE c,
 END OF t_datatab.
DATA: it_datatab type standard table of t_datatab,
 wa_datatab type t_datatab.
DATA: it_raw TYPE truxs_t_text_data.
At selection screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 field_name = 'P_FILE'
 IMPORTING
 file_name = p_file.
*START-OF-SELECTION.
START-OF-SELECTION.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
 EXPORTING
 I_FIELD_SEPERATOR =
 i_line_header = 'X'
 i_tab_raw_data = it_raw " WORK TABLE
 i_filename = p_file
 TABLES
 i_tab_converted_data = it_datatab[] "ACTUAL DATA
 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.
END-OF-SELECTION.
END-OF-SELECTION.
LOOP AT it_datatab INTO wa_datatab.
 WRITE:/ wa_datatab-col1,
 wa_datatab-col2,
 wa_datatab-col3.
ENDLOOP.
Message was edited by:
 K N REDDY

Error while uploading data to ztable from excel file

Hi,
I have a requirement where i have to upload data from excel file to ztable.I have used the fm 'ALSM_EXCEL_TO_INTERNAL_TABLE' for reading the excel file.After reading the excel file i have used INSERT zrb_hdr from table t_zrb_hdr for updating the ztable with data .
here it is giving error as the data base table zrb_hdr and the internal table t_zrb_hdr should be declared of same type .
I got this error b'coz i have changed the date and time fields in t_zrb_hdr table to char type.so the structure of zrb_hdr and t_zrb_hdr are not same.If i don't change the date and time fields,in the o/p i am not getting proper date and time formats.
now how can i upload data into ztable?

Hi,
Try this.
Data: itab type standard table of ztable,
         wa_itab type ztable.
loop at t_zrb_hdr into wa_t_zrb_hdr.
   wa_itab-date = wa_t_zrb_hdr-date.
   wa_itab-time = wa_t_zrb_hdr-time.
   like move all the fiedl to wa_itab...........
   append itab with wa_itab.
Endloop.
now insert the records from itab to the database table ztable.
Thanks,
Muthu.

Uploading data from an excel file to ztable

Hi,
I tried to upload an excel file to ztable using fm 'ALSM_EXCEL_TO_INTERNAL_TABLE'.In the o/p I can see only 3 rows and all the date and time fields are not properly displayed in the o/p.What would be the reason?Can anyone give me a suggestion?
Regards,
Hema

Hi,
pls check my code.
 Data Definitions *
Internal Tables
DATA : t_zrb_hdr TYPE STANDARD TABLE OF ZRB_HDR WITH HEADER LINE,
 t_field_catalog TYPE slis_t_fieldcat_alv.
Declaration of the Internal Table with Header Line comprising of the uploaded data.
DATA: BEGIN OF t_file_upload OCCURS 0.
INCLUDE STRUCTURE ALSMEX_TABLINE. " Rows for Table with Excel Data
DATA: END OF t_file_upload.
form UPLOAD_EXCEL_FILE .
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
 filename = p_file
 i_begin_col = '1'
 i_begin_row = '2'
 i_end_col = '10'
 i_end_row = '250'
tables
 intern = t_file_upload
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.

How to update Ztable from Excel file and how to check conditions ,

HI this uday,
pls help me how can i update Ztable from Excel file and how to check conditions .
regards
uday
Moderator message: please (re)search yourself before asking.
Edited by: Thomas Zloch on Jul 13, 2010 12:00 PM

Hi
Use Fm : ALSM_EXCEL_TO_INTERNAL_TABLE.
L_INTERN : internal table with your fields .
make sure that the fields in the Excel should be formatted (as numeric , characher ) depending upon the data types .
LOOP AT L_INTERN INTO WA_LINTERN .
 MOVE WA_LINTERN-COL TO L_INDEX.
 ASSIGN COMPONENT L_INDEX OF STRUCTURE WA_INREC TO <FS> .
 IF SY-SUBRC = 0.
 MOVE WA_LINTERN-VALUE TO <FS>.
 ENDIF.
 AT END OF ROW . "#EC *
 APPEND WA_INREC TO IT_DATA. "
 CLEAR WA_INREC.
 ENDAT.
 ENDLOOP.
Regards
Swapnil

How to upload normal excell file to ztable

Hi All there,
Can anybody tell me how to upload normal excell file to ztable directly.
pl provide detail coding
Regards
Sagar

Hi Sagar,
 first upload the excel data into your internal table using a FM than upload the data to your ZTABLE using BDC.
parameters:
p_file type rlgrap-filename " File name
data:
 lw_file type string. " File Path
data:
t_bdcdata type
 standard table
 of bdcdata,
fs_bdcdata type bdcdata. " Work area for bdcdata
* Messages of call transaction
data:
t_messtab type
 standard table
 of bdcmsgcoll,
fs_messtab type bdcmsgcoll. " Work area for messtab
at selection-screen on value-request for p_file.
call function 'F4_FILENAME'
 exporting
 program_name = syst-cprog
 dynpro_number = syst-dynnr
 field_name = ' '
 importing
 file_name = p_file.
lw_file = p_file.
call function 'GUI_UPLOAD'
 exporting
 filename = lw_file
 filetype = 'ASC'
 has_field_separator = 'X'
 dat_mode = 'X'
 tables
 data_tab = t_final_data
 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. " IF SY-SUBRC <> 0
if t_final_data is initial.
 message 'File not found'(003) type 'E'.
endif. " IF T_FINAL_DATA IS INITIAL
end-of-selection.
perform upload_0585_data_using_bdc. " populate the bdcdata table using tcode SHDB
call transaction 'PA30' using t_bdcdata
 mode 'A'
 messages into t_messtab.
form upload_0585_data_using_bdc.
loop at t_final_data into fs_final_data.
perform bdc_field using 'Q0585-ACNTR(07)'
 w_curr.
perform bdc_field using 'Q0585-ACOPC'
 lw_flag.
perform bdc_field using 'BDC_OKCODE'
 '=UPD'.
perform bdc_dynpro using 'MP058500' '2000'.
perform bdc_field using 'BDC_OKCODE'
 '/EBCK'.
perform bdc_dynpro using 'SAPMP50A' '1000'.
endloop.
* Start new screen *
form bdc_dynpro using program dynpro.
clear fs_bdcdata.
fs_bdcdata-program = program.
fs_bdcdata-dynpro = dynpro.
fs_bdcdata-dynbegin = 'X'.
append fs_bdcdata to t_bdcdata.
endform. " Form bdc_dynpro using program...
* Insert field *
form bdc_field using fnam fval.
 clear fs_bdcdata.
 fs_bdcdata-fnam = fnam.
 fs_bdcdata-fval = fval.
 append fs_bdcdata to t_bdcdata.
endform. " Form bdc_field using fnam fval
With luck,
Pritam.

Upload excel sheet in to a ztable

Hi Experts,
I need to upload an excel file in to Ztable. How can i proceed with the task.Can anyof you please help me?
Thanks in Advance.
Rinky.

hi,
chk this sample code.
i did in my pgm.
DATA : int_excel LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE.
data : record like db_name_age occurs 0 with header line.
DATA : v_start_col TYPE i VALUE '1', "starting col
v_start_row TYPE i VALUE '1', " starting row
v_end_col TYPE i VALUE '2', " total columns
v_end_row TYPE i VALUE '10'. "total no of record
FORM f_upload .
CLEAR : int_excel, int_excel[].
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
filename = wf_filename
i_begin_col = v_start_col
i_begin_row = v_start_row
i_end_col = v_end_col
i_end_row = v_end_row
TABLES
intern = int_excel
EXCEPTIONS
inconsistent_parameters = 1
upload_ole = 2
OTHERS = 3.
IF sy-subrc <> 0.
*Message is 'Unable to upload data from ' wf_filename.
MESSAGE e169(zm050) WITH wf_filename.
ELSE.
SORT int_excel BY row col.
REFRESH : record.
CLEAR : record.
LOOP AT int_excel.
CASE int_excel-col. "go thru each column.
WHEN 1.
record-name = int_excel-value.
WHEN 2.
record-age = int_excel-value.
ENDCASE.
AT END OF row.
APPEND record.
CLEAR record.
ENDAT.
ENDLOOP.
*inserting into table
modfiy db_name_age from table record.
ENDIF.
from internal table u can update ztable.
if this helped pld rewrd points,
rgrds
anver

Excel file to Ztable

Hi,
I have 2 upload data of 1,000 rows from excel sheet to my Ztable. How to write code for it.
thanks & regards
ram

Check the below program and here uploading the data from excel file to Ztable
REPORT ZLWMI151_UPLOAD no standard page heading
 line-size 100 line-count 60.
*tables : zbatch_cross_ref.
data : begin of t_text occurs 0,
 werks(4) type c,
 cmatnr(15) type c,
 srlno(12) type n,
 matnr(7) type n,
 charg(10) type n,
 end of t_text.
data: begin of t_zbatch occurs 0,
 werks like zbatch_cross_ref-werks,
 cmatnr like zbatch_cross_ref-cmatnr,
 srlno like zbatch_cross_ref-srlno,
 matnr like zbatch_cross_ref-matnr,
 charg like zbatch_cross_ref-charg,
 end of t_zbatch.
data : g_repid like sy-repid,
 g_line like sy-index,
 g_line1 like sy-index,
 $v_start_col type i value '1',
 $v_start_row type i value '2',
 $v_end_col type i value '256',
 $v_end_row type i value '65536',
 gd_currentrow type i.
data: itab like alsmex_tabline occurs 0 with header line.
data : t_final like zbatch_cross_ref occurs 0 with header line.
selection-screen : begin of block blk with frame title text.
parameters : p_file like rlgrap-filename obligatory.
selection-screen : end of block blk.
initialization.
g_repid = sy-repid.
at selection-screen on value-request for p_file.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 PROGRAM_NAME = g_repid
 IMPORTING
 FILE_NAME = p_file.
start-of-selection.
Uploading the data into Internal Table
perform upload_data.
perform modify_table.
top-of-page.
CALL FUNCTION 'Z_HEADER'
EXPORTING
 FLEX_TEXT1 =
 FLEX_TEXT2 =
 FLEX_TEXT3 =
*& Form upload_data
 text
FORM upload_data.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 FILENAME = p_file
 I_BEGIN_COL = $v_start_col
 I_BEGIN_ROW = $v_start_row
 I_END_COL = $v_end_col
 I_END_ROW = $v_end_row
 TABLES
 INTERN = itab
 EXCEPTIONS
 INCONSISTENT_PARAMETERS = 1
 UPLOAD_OLE = 2
 OTHERS = 3.
IF SY-SUBRC <> 0.
 write:/10 'File '.
ENDIF.
if sy-subrc eq 0.
 read table itab index 1.
 gd_currentrow = itab-row.
 loop at itab.
 if itab-row ne gd_currentrow.
 append t_text.
 clear t_text.
 gd_currentrow = itab-row.
 endif.
 case itab-col.
 when '0001'.
 t_text-werks = itab-value.
 when '0002'.
 t_text-cmatnr = itab-value.
 when '0003'.
 t_text-srlno = itab-value.
 when '0004'.
 t_text-matnr = itab-value.
 when '0005'.
 t_text-charg = itab-value.
 endcase.
 endloop.
endif.
append t_text.
ENDFORM. " upload_data
*& Form modify_table
 Modify the table ZBATCH_CROSS_REF
FORM modify_table.
loop at t_text.
 t_final-werks = t_text-werks.
 t_final-cmatnr = t_text-cmatnr.
 t_final-srlno = t_text-srlno.
 t_final-matnr = t_text-matnr.
 t_final-charg = t_text-charg.
 t_final-erdat = sy-datum.
 t_final-erzet = sy-uzeit.
 t_final-ernam = sy-uname.
 t_final-rstat = 'U'.
 append t_final.
 clear t_final.
endloop.
delete t_final where werks = ''.
describe table t_final lines g_line.
sort t_final by werks cmatnr srlno.
Deleting the Duplicate Records
perform select_data.
describe table t_final lines g_line1.
modify zbatch_cross_ref from table t_final.
if sy-subrc ne 0.
 write:/ 'Updation failed'.
else.
 Skip 1.
 Write:/12 'Updation has been Completed Sucessfully'.
 skip 1.
 Write:/12 'Records in file ',42 g_line .
 write:/12 'Updated records in Table',42 g_line1.
endif.
delete from zbatch_cross_ref where werks = ''.
ENDFORM. " modify_table
*& Form select_data
 Deleting the duplicate records
FORM select_data.
select werks
 cmatnr
 srlno from zbatch_cross_ref
 into table t_zbatch for all entries in t_final
 where werks = t_final-werks
 and cmatnr = t_final-cmatnr
 and srlno = t_final-srlno.
sort t_zbatch by werks cmatnr srlno.
loop at t_zbatch.
 read table t_final with key werks = t_zbatch-werks
 cmatnr = t_zbatch-cmatnr
 srlno = t_zbatch-srlno.
 if sy-subrc eq 0.
 delete table t_final .
 endif.
 clear: t_zbatch,
 t_final.
endloop.
ENDFORM. " select_data
Thanks
Seshu

How to import data into a Z table from excel file?

hi,
i have a custom created Z table into which i want to import some data from an excel file. which function can i use to do so because SE16 allows me to insert data only one by one via a data entry screen. this is time consuming. i want to import data from excel file so that its faster.

HI,
this program uploads data from excel and modifies ztable,(inserts records into ztable), check this and modify according to ur requirement)
This program uploads material number from excel sheet and does
******modifications to material number if required by the user
******and updates the table zmatnr with new material against the old material number
REPORT zmat_no message-id zebg.
TYPE-POOLS truxs.
TABLES:zmatnr.
DATA : itab LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE.
DATA row LIKE alsmex_tabline-row.
data : g_matnr like mara-matnr.
data : count type i.
data : itab_count type i.
data : gi_final like zmatnr occurs 0 with header line.
*data : begin of gi_final occurs 0,
 mat_old like mara-matnr,
 mat_new like mara-matnr,
 end of gi_final.
***********************Selection Screen*************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETER : pfname LIKE rlgrap-filename OBLIGATORY.
select-options : records for count.
SELECTION-SCREEN END OF BLOCK b1.
*********************At Selection Screen*************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pfname.
PERFORM search.
START-OF-SELECTION.
perform process.
form process.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = pfname
 i_begin_col = 1
 i_begin_row = 2
 i_end_col = 12
 i_end_row = 65000
 TABLES
 intern = itab
 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.
describe table itab lines itab_count.
 row = 1.
loop at itab.
 if itab-row <> row.
 append gi_final.
 clear gi_final.
 endif.
 case itab-col.
 when '1'.
 CLEAR G_MATNR.
 gi_final-OLD_MATNR = itab-value.
 CONCATENATE 'NEW' gi_final-old_matnr INTO itab-value.
 gi_final-new_MATNR = itab-value.
 endcase.
 row = itab-row.
append gi_final.
clear gi_final.
endloop.
CALL FUNCTION 'PROGRESS_INDICATOR'
EXPORTING
 I_TEXT = 'File Has Been Successfully Uploaded from Workstation ' .
if not gi_final[] is initial.
 if not records-low is initial .
 if not records-high is initial.
 records-high = records-high + 1.
 DESCRIBE TABLE gi_final LINES count.
 IF records-high < count.
 DELETE gi_final FROM records-high TO count.
 ENDIF.
 IF records-low <> 1.
 IF records-low <> 0.
 DELETE gi_final FROM 1 TO records-low.
 ENDIF.
 ENDIF.
 endif.
 endif.
endif.
IF NOT GI_FINAL[] IS INITIAL.
 CALL FUNCTION 'PROGRESS_INDICATOR'
 EXPORTING
 I_TEXT = 'Processing zmatnr table'
 I_OUTPUT_IMMEDIATELY = 'X'.
 if itab_count <> count.
 message i000 with 'records are not matching'.
 exit.
 else.
 modify zmatnr from table gi_final.
 message i000 with 'data base table modified successfully'.
 endif.
endif.
endform.
*& Form search
 text
--> p1 text
<-- p2 text
FORM search .
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 static = 'X'
 CHANGING
 file_name = pfname.
ENDFORM. " search
regards
siva

Uploading Excel to Internal Table

Hi,
Can anyone please look into the code and suggest me the changes in uploading Excel to Internal Table. Code is as below in OnInputProcessing.
DATA: event TYPE REF TO CL_HTMLB_EVENT.
event =
CL_HTMLB_MANAGER=>get_event( runtime->server->request ).
DATA: fileUpload TYPE REF TO CL_HTMLB_FILEUPLOAD,
 fcontent type xstring,
 fstring type string,
 len TYPE I.
fileUpload ?= CL_HTMLB_MANAGER=>GET_DATA(
request = runtime->server->request
name = 'fileUpload'
id = 'myFileUpload1').
len = fileUpload->file_length.
IF event->id = 'submitButton' AND
 event->event_type = 'click'.
 fileUpload ?=
CL_HTMLB_MANAGER=>GET_DATA( request = request
 id = 'myFileUpload1'
 name = 'fileUpload' ).
 IF ( fileUpload->file_name NE '' ) AND
 ( fileUpload->file_length GT 0 ).
 IF fileUpload->file_content_type
 = 'application/vnd.ms-excel'.
 DATA: content TYPE ZTABLE,
 conv TYPE REF TO CL_ABAP_CONV_IN_CE,
 viewoff TYPE REF TO CL_ABAP_VIEW_OFFLEN,
 it_off TYPE ABAPOFFLENTAB,
 wa_off TYPE ABAPOFFLEN,
 dd_fields TYPE DDFIELDS,
 wa_fields TYPE DFIES.
data: codepage type CPCODEPAGE.
CALL FUNCTION 'SCP_CODEPAGE_BY_EXTERNAL_NAME'
EXPORTING
external_name = 'utf-16le'
KIND = 'H'
IMPORTING
SAP_CODEPAGE = codepage.
conv = CL_ABAP_CONV_IN_CE=>CREATE( encoding = '4103'
endian = 'L'
input = fileUpload->file_content
ignore_cerr = 'X').
 CALL FUNCTION 'TR_NAMETAB_GET'
 EXPORTING
 IV_TABNAME = 'ZTABLE'
 IV_GET_LENGTHS_IN_CHARMODE = 'X'
 IV_GET_TEXTS = ' '
 IMPORTING
 ET_DFIES = dd_fields.
 LOOP AT dd_fields INTO wa_fields.
 MOVE wa_fields-offset TO wa_off-ioff.
 MOVE wa_fields-intlen TO wa_off-ilen.
 APPEND wa_off TO it_off.
 ENDLOOP.
 viewoff = CL_ABAP_VIEW_OFFLEN=>CREATE( tab = it_off ).
 call method conv->read( importing data = fstring ).
 fcontent = conv->get_buffer( ).
 call function 'HR_KR_XSTRING_TO_STRING'
 exporting
 from_codepage = '4103'
 in_xstring = fcontent
 importing
 out_string = fstring.
 data: input_string type string.
 data: fields type string_table.
 data: s_table type string_table.
split fstring at cl_abap_char_utilities=>cr_lf into table s_table.
field-symbols: <wa_table> like line of s_table.
loop at s_table assigning <wa_table>.
split <wa_table> at cl_abap_char_utilities=>HORIZONTAL_TAB into table
fields.
endloop.
endif.
endif.
endif.
thanks in advance,
anjani.

Hi anjani,
it doesn't help much if you just post some code and request changes, if you don't state the kind of problem you are having ... in order to receice helpful replies, you have to give detailed information, what you want to do, what is not working as expected ... so please post more details.
Meanwhile I recommend doing a search for your excel problem in the forum and also read the excel weblogs from <a href="https://www.sdn.sap.com/sdn/weblogs.sdn?blog=/pub/u/1918">Thomas Jung</a>.
Regards,
Max

Uploading Excel file to SAP

Hi Friends,
Iam trying to Upload Excel file into SAP using the FM
ALSM_EXCEL_TO_INTERNAL_TABLE. But it is going to dump n the error is
The call to the function module "ALSM_EXCEL_TO_INTERNAL_TABLE" is incorrect:
In the function module interface, you can specify only
fields of a specific type and length under "INTERN".
Although the currently specified field
"ITAB" is the correct type, its length is incorrect.
I have attached the code also.
Please let me know where iam getting the error.
Code :
Tables : mara,
 ztable.
parameters : p_infile like rlgrap-filename.
data : begin of itab occurs 0,
 matnr like mara-matnr,
 mbrsh like mara-mbrsh,
 matkl like mara-matkl,
 end of itab.
 CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 FILENAME = p_infile
 I_BEGIN_COL = 1
 I_BEGIN_ROW = 1
 I_END_COL = 100
 I_END_ROW = 100
 TABLES
 INTERN = itab
 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.
sort itab by matnr.
loop at itab.
write:/ itab.
*modify ztable from table itab.
endloop.

hi check this code:
DATA : BEGIN OF TYP_INPUT ,
 MATNR LIKE MARA-MATNR,
 WERKS LIKE MARC-WERKS,
 LGORT LIKE MARD-LGORT,
 LGNUM LIKE MLGN-LGNUM,
 LGTYP LIKE MLGT-LGTYP,
 LTKZA LIKE MLGN-LTKZA,
 LTKZE LIKE MLGN-LTKZE,
 LGBKZ LIKE MLGN-LGBKZ,
 LGPLA LIKE MLGT-LGPLA,
 END OF TYP_INPUT.
*Input File Data
DATA : IT_FILE LIKE TYP_INPUT OCCURS 0 WITH HEADER LINE.
*"INTERNAL TAB TO TAKE EXCEL SHEET.
DATA : IT_EXCEL LIKE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
 CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 FILENAME = P_PFILE
 I_BEGIN_COL = 1
 I_BEGIN_ROW = 2
 I_END_COL = 9
 I_END_ROW = 6000
 TABLES
 INTERN = IT_EXCEL
 EXCEPTIONS
 INCONSISTENT_PARAMETERS = 1
 UPLOAD_OLE = 2
 OTHERS = 3.
* IT_EXCEL CONTAINS DATA IN THE FORM OF ROW, COL, VALUE *
* CONVERTING THAT INTERNAL TABLE TO FORMAT THAT OF EXCEL SHEET *
 IF NOT IT_EXCEL[] IS INITIAL.
 SORT IT_EXCEL BY ROW COL.
 LOOP AT IT_EXCEL.
 CASE IT_EXCEL-COL.
 WHEN 1.
 IT_FILE-MATNR = IT_EXCEL-VALUE.
 WHEN 2.
 IT_FILE-WERKS = IT_EXCEL-VALUE.
 WHEN 3.
 IT_FILE-LGORT = IT_EXCEL-VALUE.
 WHEN 4.
 IT_FILE-LGNUM = IT_EXCEL-VALUE.
 WHEN 5.
 IT_FILE-LGTYP = IT_EXCEL-VALUE.
 WHEN 6.
 IT_FILE-LTKZA = IT_EXCEL-VALUE.
 WHEN 7.
 IT_FILE-LTKZE = IT_EXCEL-VALUE.
 WHEN 8.
 IT_FILE-LGBKZ = IT_EXCEL-VALUE.
 WHEN 9.
 IT_FILE-LGPLA = IT_EXCEL-VALUE.
 ENDCASE.
 AT END OF ROW.
 APPEND IT_FILE.
 CLEAR IT_FILE.
 ENDAT.
 ENDLOOP.
 ELSE.
 MESSAGE I000 WITH 'The input file is empty'.
 STOP.
 ENDIF.

How to upload a word/excel doc for z table and view ltr

Hi to all,
I have a requirement to upload word/excel or ppt files from pc, so that i can store them in table with some other values. These files will be used by number of users to view or download.
Please guide me how to upload the files and store the file deatils in z table so that users can view the file later.
I can get a static folder to store all document in app server.
Thanks in advance,
Sanjeev

hi
use gui_upload to upload execl , txt ot dat files
into itab & then append them into ztables which u hav to create.
i'm not sure of ppt files
*sample code to upload a text document to app.server
open dataset v_header for output in text mode encoding default.
 if sy-subrc <> 0.
 message i000 with 'ERROR OPENING FILE'.
 endif.
 loop at gt_changed_pohd.
 transfer gt_changed_pohd to v_header.
 endloop.
close dataset v_header.
****sample gui_upload to upload tab seperated text file
***to upload dat files use the seperator '|' instead ****of 'X' in the foll.
call function 'GUI_UPLOAD'
 exporting
 filename = v_file
 filetype = p_type
 has_field_separator = 'X'
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
IMPORTING
FILELENGTH =
HEADER =
 tables
 data_tab = gt_data
 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

Two Dimensional Report - With FTP download and formatting in EXCEL

Hi all,
I have a ztable with customer,daily quantity , date as columns. I need to make a report with date as rows and customer as columns . If a new customer is added in the ztable , one more column should come in the report.
Basically the internal table should change dynamically.
I have to download this report into FTP and should save as .xls file. All formatting that are there in SAP has to appear in the Excel Sheet also.
Is there any function module for Dynamic Internal Tables and make formatting changes in EXCEL ??
Thanks in Advance..
Vivek Krishnan

for dynamic columns, i am explaining u how to create with an exmaple, check it,
suppose itab has fields A, B, C.
SO ITAB-C HAS THE VALUES OF C. NOW WE WANT A TABLE WITH VALUES OF C RIGHT!!.
NOW BUILD A FIELDCATALOG LIKE BELOW.
LOOP AT ITAB.
LS_FIELDCAT-FIELDNAME = ITAB-C.
LS_FIELDCAT-COL_TEXT = ITAB_C.
APPEND LS_FIELDCAT TO LT_FIELDCAT.
ENDLOOP.
DATA: DREF TYPE REF TO DATA.
FIELD-SYMBOLS: <TEMP_TAB> TYPE ANY.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
EXPORTING
IT_FIELDCATALOG = LT_LVCFIELDCAT
IMPORTING
EP_TABLE = DREF.
ASSIGN dref->* TO <TEMP_TAB>.
<TEMP_TAB> IS THE REQUIRED DYNAMIC INTERNAL TABLE.
NOW IF U WANT TO FILL THE DYNAMIC INTERNAL TABLE.
DO AS BELOW..
DATA: WA_DREF TYPE REF TO DATA.
FIELD-SYMBOLS: <WA_TAB> TYPE ANY.
CREATE DATA WA_DREF LIKE LINE OF <TEMP_TAB>.
ASSIGN WA_DREF->* TO <WA_TAB>.
FIELD-SYMBOLS: <FS1>, <FS2>.
LOOP AT ITAB.
ASSIGN COMPONENT ITAB-C OF STRUCTURE <WA_TAB> TO <FS1>.
<FS1> = {SOME VALUE}.
APPEND <WA_TAB> TO <TEMP_TAB>.
ENDLOOP.

Excel in place to maintain a Z table

I need to build a Excel inplace based utility to maintain table entries in a z table. So I can use this Excel inplace utility to add new record, modify existing ones or delete existing ones.
Can someone kindly share the code for a simple 5 field with 3 fields as key in the table excel inplace maintenance program.
Thanks
Karen

Hi,
i would give you the steps so that you can write the code:
1) Selection screen fields:
 Filename: RLGRAP-FILENAME
 Server: Presentation/Application server(Radiobutton)
 Radiobutton for Delete/insert/Update
2) Upload the data from the input EXCEL file from presentation server
 CALL FUNCTION 'FAA_FILE_UPLOAD_EXCEL'
 If application server, use GUI_UPLOAD.
3) Based on the data uploaded, Split the filedata into an internal table ITAB
4) If the radiobutton Insert/Update is selected, Use
MODIFY <ztable> from ITAB (make sure that the table structure ITAB is same as ztable)
if the radiobutton delete is selected, Use
DELETE from <ztable> using ITAB (Please check the syntax for delete and modify bu doing F1)
Regards
shiva

Excel to ZTABLE

Similar Messages

Maybe you are looking for