How to download data using excel vba.

I'm trying to download data from web sites to excel using VBA. I've found a bunch of resources like this one on stackoverflow, but they all refer to excel being run on windows.
Does anyone know how to either scrape data or to use an API to pull data into excel?

for exemple using
MS_EXCEL_OLE_STANDARD_DAT

Similar Messages

How to download data in excel from web report in sap ?

how to download data in excel from web report made in sap abap?
through tcode smw0.

for exemple using
MS_EXCEL_OLE_STANDARD_DAT

Download Data From Excel - VBA Code to SAP Using BDC

Hi ,
I am Sudhir Dure, working with Satyam Computers.
I need help on the below query:
I have an excel file which download data from Excel to SAP using RFC function & with the help of VBA interface.
In this VBA code I have used BDC recording of SAP Transaction KE21N to post data into SAP.
Now I am facing problem to find sub screen (tab page screen ) in SAP from VBA code .
How to pass BDC Subscreen details from VBA code to SAP using below code?
BDCTABLE.Rows.Add
BDCTABLE.Cell(J, "PROGRAM") = PROGRAMNAME
BDCTABLE.Cell(J, "DYNPRO") = "0200"
BDCTABLE.Cell(J, "DYNBEGIN") = "X"
BDCTABLE.Cell(J, "FNAM") = "BDC_OKCODE"
BDCTABLE.Cell(J, "FVAL") = "=NEXT"
Thanks,
Sudhir Dure
9972097464

can anyone tell me how to get the PurchaseOrder number and item quantity from the Salesorder...? what are the fields here as given below..??
For Each oItem In oSalesOrder.items
wsTemplate.Range(cols(3) & Indexv).Value = oItem.material.material
'wsTemplate.Range(cols(4) & Indexv).Value = ' I need item quantity here ????
wsTemplate.Range(cols(1) & Indexv).Value = sapSoNumber
wsTemplate.Range(cols(2) & Indexv).Value = ' I need purchase order number here>???
Indexv = (Indexv + 1)
Next
reply fast. please .. thanks

How to Download Data in Excel Formate

Hi Friend,
I have one doubt on webdynpro with java. Req: For download data in Excel formate.
I will follow this http://www.sdn.sap.com/irj/scn/weblogs?blog=/pub/wlg/3596. [original link is broken] [original link is broken] [original link is broken]
i am doing upto 3rd Step here.. Up to Step 3 i am doing after 3rd Step I am not understand. Could u explain 4step.
1. I have to place TableUtilities.java
2. I have Create tableutilities value attribute
3. in Modify view--- This is -SecondView -
This is having Table UI Element.
if(firstTime)
IWDTextView tv = (IWDTextView)view.getElement("total");
wdContext.currentContextElement().setTableutility(new TableUtilities(wdContext.nodeDepartments()));
//Returns attribute info of a dynamically created attribute which can be bound to the UI element neeed.
tv.bindText(wdContext.currentContextElement().getTableutility().CalculateSum("Departments","NoOfPeople"));
4. Creating an Excel File
How to Create Excel File here can u explain
I am not understand this 4th step. Pls give me Breef Explanation. How to write this code...here...
Regards
Vijay Kalluri
Edited by: KalluriVijay on May 4, 2010 8:00 PM
Edited by: KalluriVijay on May 4, 2010 8:02 PM

Hi Vijay,
Please open Microsoft Excel from your system and then create some entries (ex. having 3 columns and 3 rows). Save this file to some location in your system. Later you will need to give the location path of this saved file when uploading it from your web dynpro application.
Creating of an Excel file (i.e the 4th step) is no where related to Web Dynpro and NWDS.
Hope this helps!
Regards,
Kishan

How to download data into excel by displaying field names in top 2 rows

Hi experts,
         i am trying to download an internal table data into excel(open office) by reserving top 2 rows. In 1st row i want to display tech.name where as in 2nd row i want to display discription of tech name of the fields. Well, i tried with FM gui_upload and used fieldnames parameter and even its working too but i'm unable to work with 2nd col.
Please help me out....
with regards.
Praveen.

Try this code:
If IT_FINAL is the internal table containing the data that you want to download :
IF IT_FINAL[] IS INITIAL.
    WRITE : 'No Data Fetched'.
ELSE.
Build header table Field catelague
    PERFORM UR_FIELDCAT_BUILD USING G_F_REPNM
                                    'IT_FINAL'
                             CHANGING IT_FCAT_001.
    DATA: L_F_LINES TYPE I,
          L_F_FROM TYPE I,
          L_F_TO TYPE I,
          L_F_DIFF TYPE I,
          L_TEMP_FINAL LIKE TABLE OF IT_FINAL.
    DESCRIBE TABLE IT_FINAL LINES L_F_LINES.
    IF L_F_LINES > 16000.
      L_F_FROM = 1.
      L_F_TO = 16000.
      DO.
        APPEND LINES OF IT_FINAL FROM L_F_FROM
                                          TO L_F_TO TO L_TEMP_FINAL.
        PERFORM DOWNLOAD_DATA_HEADER TABLES L_TEMP_FINAL
                                               IT_FCAT_001
                                         USING GF_FILE1.
        IF L_F_TO >= L_F_LINES.
          EXIT.
        ENDIF.
        L_F_FROM = L_F_TO + 1.
        L_F_DIFF = L_F_LINES - L_F_TO.
        IF L_F_DIFF >= 16000.
          L_F_TO = L_F_TO + 16001.
        ELSE.
          L_F_TO = L_F_LINES.
        ENDIF.
        REFRESH: L_TEMP_FINAL.
     ENDDO.
   ELSE.
     PERFORM DOWNLOAD_DATA_HEADER TABLES IT_FINAL
                                     IT_FCAT_001
                              USING GF_FILE1.
   ENDIF.
ENDIF.
FORM UR_FIELDCAT_BUILD
             USING P_REPID
                   P_TABNAM
CHANGING C_T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
   REFRESH C_T_FIELDCAT.
   CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
        EXPORTING
             I_PROGRAM_NAME         = P_REPID
             I_INTERNAL_TABNAME     = P_TABNAM
           I_STRUCTURE_NAME       = 'TY_FLODAT'
             I_INCLNAME             = P_REPID
             I_BYPASSING_BUFFER     = 'X'
        CHANGING
             CT_FIELDCAT            = C_T_FIELDCAT
        EXCEPTIONS
             INCONSISTENT_INTERFACE = 1
             PROGRAM_ERROR          = 2
             OTHERS                 = 3.
ENDFORM.
FORM DOWNLOAD_DATA_HEADER
              TABLES T_OUTTAB
              T_FIELDCAT
              USING P_FILENAM.
   TYPE-POOLS: SLIS.
   REPLACE 'YYYYMMDD' WITH SY-DATUM INTO P_FILENAM.
   DATA: T_GXXLT_O    TYPE TABLE OF GXXLT_O WITH HEADER LINE,
         T_GXXLT_H    TYPE TABLE OF GXXLT_H WITH HEADER LINE,
         T_GXXLT_H_TEMP TYPE TABLE OF GXXLT_H WITH HEADER LINE,
         T_GXXLT_P    TYPE TABLE OF GXXLT_P WITH HEADER LINE,
         T_GXXLT_S    TYPE TABLE OF GXXLT_S WITH HEADER LINE,
         T_GXXLT_V    TYPE TABLE OF GXXLT_V WITH HEADER LINE,
         L_S_FIELDCAT TYPE SLIS_FIELDCAT_ALV..
   DATA: F_FILE       TYPE GXXLT_F-FILE,
         F_ATT_COLS   TYPE I,
         F_HRZ_KEYS   TYPE I,
         F_VRT_KEYS   TYPE I.
TYPES: BEGIN OF TY_FLDNM,
           FIELDNAME(30) TYPE C,
        END   OF TY_FLDNM.
DATA : L_T_FLDNAME TYPE TABLE OF TY_FLDNM,
        L_R_FLDNAME TYPE TY_FLDNM.
REFRESH: L_T_FLDNAME.
LOOP AT T_FIELDCAT INTO L_S_FIELDCAT .
   CLEAR L_R_FLDNAME.
   CONCATENATE L_S_FIELDCAT-SELTEXT_S '_'
                L_S_FIELDCAT-FIELDNAME
    INTO L_R_FLDNAME-FIELDNAME.
   APPEND L_R_FLDNAME TO L_T_FLDNAME.
ENDLOOP.
IF T_OUTTAB[] IS INITIAL.
   WRITE : /'No data Fetch !'.
ELSE.
   DESCRIBE TABLE T_FIELDCAT LINES F_ATT_COLS.
   LOOP AT T_FIELDCAT INTO L_S_FIELDCAT.
     T_GXXLT_H-COL_NO        = L_S_FIELDCAT-COL_POS.
     T_GXXLT_H-ROW_NO        = 1.
     T_GXXLT_H-COL_NAME      = L_S_FIELDCAT-FIELDNAME.
     APPEND T_GXXLT_H.
     CLEAR T_GXXLT_S.
     T_GXXLT_S-COL_NO        = L_S_FIELDCAT-COL_POS.
     T_GXXLT_S-COL_OPS       = 'NOP'.
     T_GXXLT_S-COL_SRC       = L_S_FIELDCAT-COL_POS.
     CASE L_S_FIELDCAT-INTTYPE.
       WHEN 'Z' OR 'P' OR 'I' OR 'F'.
         T_GXXLT_S-COL_TYP   = 'NUM'.
       WHEN 'C' OR 'X' OR 'T' OR 'N'.
         T_GXXLT_S-COL_TYP   = 'STR'.
       WHEN 'D'.
         T_GXXLT_S-COL_TYP   = 'DAT'.
      WHEN OTHERS.
        T_GXXLT_S-COL_TYP   = 'STR'.
    ENDCASE.
    APPEND T_GXXLT_S.
    IF L_S_FIELDCAT-KEY EQ 'X'.
      CLEAR T_GXXLT_H.
      T_GXXLT_H-COL_NO     = L_S_FIELDCAT-COL_POS.
      T_GXXLT_H-ROW_NO     = 1.
      T_GXXLT_H-COL_NAME   = L_S_FIELDCAT-FIELDNAME.
      APPEND T_GXXLT_H.
    ENDIF.
ENDLOOP.
MOVE P_FILENAM TO F_FILE.
LOOP AT T_FIELDCAT INTO L_S_FIELDCAT.
    READ TABLE T_GXXLT_H WITH KEY COL_NAME = L_S_FIELDCAT-FIELDNAME.
    IF SY-SUBRC EQ 0.
      T_GXXLT_H_TEMP-COL_NO = T_GXXLT_H-COL_NO.
      T_GXXLT_H_TEMP-ROW_NO = 2.
      T_GXXLT_H_TEMP-COL_NAME = L_S_FIELDCAT-SELTEXT_S.
      APPEND T_GXXLT_H_TEMP TO T_GXXLT_H.
      CLEAR T_GXXLT_H.
      ENDIF.
    ENDLOOP.
    CALL FUNCTION 'XXL_FULL_API'
         EXPORTING
              FILENAME          = F_FILE
              NO_START          = ''
              N_ATT_COLS        = F_ATT_COLS
              N_HRZ_KEYS        = F_HRZ_KEYS
              N_VRT_KEYS        = F_VRT_KEYS
              SEMA_TYPE         = ''
              SO_TITLE          = ''
         TABLES
              DATA              = T_OUTTAB
              HKEY              = T_GXXLT_H
              ONLINE_TEXT       = T_GXXLT_O
              PRINT_TEXT        = T_GXXLT_P
              SEMA              = T_GXXLT_S
              VKEY              = T_GXXLT_V
         EXCEPTIONS
              CANCELLED_BY_USER = 1
              DATA_TOO_BIG      = 2
              DIM_MISMATCH_DATA = 3
              DIM_MISMATCH_SEMA = 4
              DIM_MISMATCH_VKEY = 5
            ERROR_IN_HKEY     = 6
            ERROR_IN_SEMA     = 7
            FILE_OPEN_ERROR   = 8
            FILE_WRITE_ERROR = 9
            INV_DATA_RANGE    = 10
            INV_WINSYS        = 11
            INV_XXL           = 12
            OTHERS            = 13.
ENDIF.
ENDFORM.

How to download data to Excel sheet

Hi ,
I want to modify a standard program CRM_MKTBP_ATTR_HISTORY in CRM,
which is displaying business partner details with attribute value old attribute value and changed by, so they want to display all the details in excel sheet then they excutive this prog it shuld ne downloaded to excel sheet.
here prog is in object oriented abap i am not able to trace final interal table.
but in class CL_GUI_ALV_GRID there is a method called EXPORT_TO_SPREAD_SHEET.
can any body help me in this.
thanks in advance .
sreedhar.

please check this code and links given below
DATA: BEGIN OF itab1 OCCURS 0,
        f1(10),
      END   OF itab1.
itab1-f1 = 'Field 1'.
APPEND itab1.
itab1-f1 = 'Field 2'.
APPEND itab1.
itab1-f1 = 'Field 3'.
APPEND itab1.
itab1-f1 = 'Field 4'.
APPEND itab1.
itab1-f1 = 'Field 5'.
APPEND itab1.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
    filename                = 'C:test.xls'
    filetype                = 'ASC'
    write_field_separator   = 'X'
TABLES
    data_tab                = itab
    fieldnames              = itab1
EXCEPTIONS
    file_write_error        = 1
    no_batch                = 2
    gui_refuse_filetransfer = 3
    invalid_type            = 4
    no_authority            = 5
    unknown_error           = 6
    header_not_allowed      = 7
    separator_not_allowed   = 8
    filesize_not_allowed    = 9
    header_too_long         = 10
    dp_error_create         = 11
    dp_error_send           = 12
    dp_error_write          = 13
    unknown_dp_error        = 14
    access_denied           = 15
    dp_out_of_memory        = 16
    disk_full               = 17
    dp_timeout              = 18
    file_not_found          = 19
    dataprovider_exception = 20
    control_flush_error     = 21
    OTHERS                  = 22.
check these links also
http://www.sapdevelopment.co.uk/file/file_uploadpc.htm
http://www.sapdevelopment.co.uk/file/file_updown.htm
http://www.sapdevelopment.co.uk/file/file_downloadpc.htm

How to download data into XLSX file in ABAP ECC 6.0 using FM: GUI_DOWNLOAD or any other FunctionModules

Hi ABAP Exterts,
Any one help on this , there is a requirement to download the data into XLSX file only.
I am able to to download the data into XLS file using the FM: GUI_DOWNLOAD in SAP ECC 6.0and also opening the file . But when i download the data into XLSX file . I am able to download the data into GUI_DOWNLOAD. But while opening the file i am getting the below mentioned error.
'Excel cannot open the file 'filename.xlsx' because the file format or file extension is not valid. Verify that the file has not been corrupted and that the file extension matches the format of the file'
Ok buttom is coming not able to open the file.
When i use the FM: SAP_CONVERT_TO_XLS_FORMAT to download the XLS it self it is going abap DUMP that file type error.
Any one help any Function Module or how to download data through abap programing into XLSX file.
Thanks.
Murali.
Message was edited by: Matthew Billingham - adjusted wording...

If you want to download your ALV to an .XLXS format file, with all the formatting intact, please try the following code. I have tried to create a custom Function module Z_EXCEL_DOWNLOAD_TEST wherein I pass all the callback variables, the final ALV internal table and all the ALV details like field catalog, sort, layout, event list and so on, along with the concatenated file path and file name in I_FILE. I have used a custom class ZCL_SALVEXPORT_XML which is a copy of the standard class CL_SALV_EXPORT_XML_DIALOG, with few modifications in Method: EXECUTE and Method: DOWNLOAD. The methods where I have modified the code are also shown at the end.
****************Global declarations***********************
TYPE-POOLS: slis,
kkblo.
TYPES: t_fccls(1) TYPE c OCCURS 0.
TYPES: BEGIN OF ty_nosum,
fieldname     TYPE kkblo_fieldname,           "Field name
tabname       TYPE kkblo_tabname,             "Table name
fieldname_dep TYPE kkblo_fieldname,           "Field name
tabname_dep   TYPE kkblo_tabname,             "Table name
index         TYPE sy-index,                  "Index
END OF ty_nosum.
TYPES: t_nosum TYPE TABLE OF ty_nosum INITIAL SIZE 0 WITH NON-UNIQUE DEFAULT KEY.
TYPES: BEGIN OF ty_dep_field,
s_dep_fieldcat TYPE kkblo_fieldcat,            "Field cat
t_ref_fieldcat TYPE kkblo_t_fieldcat,          "Field cat
END OF ty_dep_field.
TYPES: BEGIN OF ty_ref_field,
s_ref_fieldcat TYPE kkblo_fieldcat,           "Field cat
s_dep_fieldcat TYPE kkblo_fieldcat,           "Field cat
END OF ty_ref_field.
TYPES: t_dep_field TYPE ty_dep_field OCCURS 0.        "
TYPES: t_ref_field TYPE ty_ref_field OCCURS 0.
TYPES: BEGIN OF ty_memory,
object(20) TYPE c,                        "Object
memcount(4) TYPE c,                        "count
END OF ty_memory.
*ALV Customer Wrapper
TYPES: BEGIN OF ty_type_header_info,
tabname   TYPE kkblo_tabname,            "Table name
fieldname TYPE kkblo_fieldname,          "Field name
sequence TYPE i,                        "Sequence
field     TYPE char80,                    "Field
pagno     TYPE sypagno,                   "Page num
linno     TYPE sy-linno,                  "Current Line in List
colno     TYPE sy-colno,                  "Current List Column
END   OF ty_type_header_info,
t_type_header_info TYPE SORTED TABLE OF ty_type_header_info
WITH UNIQUE KEY tabname fieldname.
TYPES: BEGIN OF ty_type_row_info,
tabname   TYPE kkblo_tabname,            "Table name
tabindex TYPE syindex,                  "Index
field     TYPE char80,                   "Field name
pagno     TYPE sypagno,                  "Page num
linno     TYPE sy-linno,                 "Current Line in List
colno     TYPE sy-colno,                 "Current List Column
END   OF ty_type_row_info,
t_type_row_info TYPE SORTED TABLE OF ty_type_row_info
WITH UNIQUE KEY tabname tabindex.
TYPES: BEGIN OF ty_type_sel_header,
tabname   TYPE kkblo_tabname,           "table name
fieldname TYPE kkblo_fieldname,         "field name
END   OF ty_type_sel_header,
t_type_sel_header TYPE SORTED TABLE OF ty_type_sel_header
WITH UNIQUE KEY tabname fieldname.
TYPES: BEGIN OF ty_type_sel_row,
tabname   TYPE kkblo_tabname,
tabindex TYPE syindex,
END   OF ty_type_sel_row,
t_type_sel_row TYPE SORTED TABLE OF ty_type_sel_row
WITH UNIQUE KEY tabname tabindex.
TYPES: BEGIN OF ty_type_sel_cell,
tabname   TYPE kkblo_tabname,
tabindex TYPE syindex,
fieldname TYPE kkblo_fieldname,
END   OF ty_type_sel_cell.
TYPES: BEGIN OF ty_type_selections,
t_row_info         TYPE t_type_row_info,
t_header_info      TYPE t_type_header_info,
t_selected_headers TYPE t_type_sel_header,
t_selected_rows    TYPE t_type_sel_row,
s_current_cell     TYPE ty_type_sel_cell,
set_headers        TYPE sap_bool,
set_rows           TYPE sap_bool,
set_current_cell   TYPE sap_bool,
END   OF ty_type_selections.
TYPES: BEGIN OF ty_stack3,
r_grid         TYPE REF TO cl_gui_alv_grid,        "Y6DK050176
r_salv_adapter TYPE REF TO if_salv_adapter,
s_selections   TYPE ty_type_selections,
r_print_state TYPE REF TO if_alv_print_parameter_proxy, "Y6DK075821
suppress_empty_data TYPE abap_bool,
END OF ty_stack3.
TYPES: t_stack3 TYPE ty_stack3 OCCURS 0.
TYPES: BEGIN OF ty_stack,
i_callback_program       TYPE sy-repid,
i_callback_user_command TYPE kkblo_formname,
i_callback_top_of_page   TYPE kkblo_formname,
i_callback_top_of_list   TYPE kkblo_formname,
i_callback_end_of_page   TYPE kkblo_formname,
i_callback_end_of_list   TYPE kkblo_formname,
i_callback_pf_status_set TYPE kkblo_formname,
i_callback_fieldcat_save TYPE kkblo_formname,
i_callback_layout_save   TYPE kkblo_formname,
i_tabname                TYPE kkblo_tabname,
i_tabname_slave          TYPE kkblo_tabname,
is_keyinfo               TYPE kkblo_keyinfo,
is_layout                TYPE kkblo_layout,
it_fieldcat              TYPE kkblo_t_fieldcat,
i_fctype(1)              TYPE c,
it_excluding             TYPE kkblo_t_extab,
it_special_groups        TYPE kkblo_t_sp_group,
it_sort                  TYPE kkblo_t_sortinfo,
it_except_qinfo          TYPE kkblo_t_qinfo,
is_sel_hide              TYPE kkblo_sel_hide,
t_columns                TYPE kkblo_t_columns,
t_filter                 TYPE kkblo_t_filter,
s_lprint                 TYPE kkblo_lprint,
print_line_break         TYPE char1,
t_isetab                 TYPE kkblo_seldis,
t_fccls                  TYPE t_fccls,
t_sfinfo                 TYPE kkblo_t_sfinfo,
t_ref_field              TYPE t_ref_field,
t_dep_field              TYPE t_dep_field,
flg_default_status(1)    TYPE c,
flg_selections           TYPE char1,
flg_allow_no_selection   TYPE char1,
flg_input                TYPE char1,
flg_called               TYPE char1,
flg_popup                TYPE char1,
flg_endlist              TYPE char1,
listtype                 TYPE char1,
actcols                  TYPE i,
is_list                  TYPE char1,
END OF ty_stack.
TYPES: t_stack TYPE ty_stack OCCURS 0.
TYPES: BEGIN OF ty_stack2,
button_col1(20)                TYPE c,
button_col2(20)                TYPE c,
button_col3(20)                TYPE c,
button_col4(20)                TYPE c,
button_col5(20)                TYPE c,
s_header                       TYPE kkblo_header,
t_sfinfo_slave                 TYPE kkblo_t_sfinfo,
t_suminfo                      TYPE kkblo_t_sfinfo,
t_sfsave                       TYPE kkblo_t_sfinfo,
t_nosum                        TYPE t_nosum,
window_title                   TYPE rsmpe-tittext, " Item_selection
flg_scroll_to_line(1)          TYPE c, " Item_selection
flg_top_of_page(1)             TYPE c,
flg_subtot(1)                  TYPE c,
flg_output_in_progress(1)      TYPE c,
flg_grouplevels(1)             TYPE c,
flg_groupedit(1)               TYPE c,
flg_calculate_totals(1)        TYPE c,
sumlevel                       TYPE sy-tabix,
memory_stack1                  TYPE ty_memory,
memory_stack2                  TYPE ty_memory,
memory_outtab                  TYPE ty_memory,
t_colmark                      TYPE kkblo_t_colmark,
t_rowmark                      TYPE kkblo_t_rowmark,
it_event_exit                  TYPE kkblo_t_event_exit,
t_groups                       TYPE kkblo_t_grouplevels,
t_filter_groups                TYPE kkblo_t_grouplevels,
s_subtot_options               TYPE kkblo_subtot_options,
flg_append_mode(1)             TYPE c,
is_reprep_id                   TYPE kkblo_reprep_id,
i_callback_before_line_output TYPE kkblo_formname,
i_callback_after_line_output   TYPE kkblo_formname,
i_callback_foreign_top_of_page TYPE kkblo_formname,
i_callback_foreign_end_of_page TYPE kkblo_formname,
i_callback_list_modify         TYPE kkblo_formname,
i_callback_top_of_coverpage    TYPE kkblo_formname,
i_callback_end_of_coverpage    TYPE kkblo_formname,
i_callback_grouplevel_change   TYPE kkblo_formname,
i_callback_item_data_expand    TYPE kkblo_formname,
i_callback_header_transport    TYPE kkblo_formname,
i_callback_reprep_sel_modify   TYPE kkblo_formname,
i_callback_subtotal_text       TYPE kkblo_formname,
END OF ty_stack2.
TYPES: t_stack2 TYPE TABLE OF ty_stack2 INITIAL SIZE 0.
** *--- iTables
DATA: it_stack TYPE t_stack WITH HEADER LINE.
DATA: it_stack2 TYPE t_stack2 WITH HEADER LINE.
***ALV Customer Wrapper
DATA: it_stack3 TYPE t_stack3 WITH HEADER LINE.
CONSTANTS: BEGIN OF c_con_listtype,
simple(1)    TYPE c VALUE 'S',
hier_sequ(1) TYPE c VALUE 'H',
matrix(1)    TYPE c VALUE 'M',
END OF c_con_listtype.
DATA:   gv_callback_program1      TYPE sy-repid,
gv_callback_user_command1 TYPE kkblo_formname,
gv_callback_top_of_page1 TYPE kkblo_formname,
gv_callback_top_of_list1 TYPE kkblo_formname,
gv_callback_end_of_page1 TYPE kkblo_formname,
gv_callback_end_of_list1   TYPE kkblo_formname,
gv_callback_pf_status_set1 TYPE kkblo_formname,
gv_callback_layout_save1    TYPE kkblo_formname,
gv_callback_fieldcat_save1 TYPE kkblo_formname,
gv_callback_grouplevel_change1 TYPE kkblo_formname,
gv_callback_before_line_otput1 TYPE kkblo_formname,
gv_callback_after_line_otput1 TYPE kkblo_formname,
gv_callback_foreign_top_of_pg1 TYPE kkblo_formname,
gv_callback_foreign_end_of_pg1 TYPE kkblo_formname,
gv_callback_list_modify1          TYPE kkblo_formname,
gv_callback_top_of_coverpge1     TYPE kkblo_formname,
gv_callback_end_of_coverpge1     TYPE kkblo_formname,
gv_callback_item_data_expand1     TYPE kkblo_formname,
gv_callback_header_transport1     TYPE kkblo_formname,
gv_callback_reprep_sel_modify1    TYPE kkblo_formname,
gv_callback_subtotal_text1       TYPE kkblo_formname,
gv_layout1   TYPE kkblo_layout,
gv_fieldcat1 TYPE kkblo_t_fieldcat,
gv_fctype1 TYPE c,
gv_event_exit1 TYPE kkblo_t_event_exit,
gv_excluding1   TYPE kkblo_t_extab,
gv_special_groups1 TYPE kkblo_t_sp_group,
gv_sort1 TYPE kkblo_t_sortinfo,
gv_filter1 TYPE kkblo_t_filter,
gv_except_qinfo1 TYPE slis_t_qinfo_alv,
gv_sel_hide1 TYPE slis_sel_hide_alv,
gv_reprep_id1   TYPE slis_reprep_id,
gv_screen_start_column1 TYPE i,
gv_salv_adapter1   TYPE REF TO if_salv_adapter,
gv_suppress_empty_data1 TYPE sap_bool.
FUNCTION z_excel_download_test.
*"*"Local Interface:
*" IMPORTING
*"     REFERENCE(I_BYPASSING_BUFFER) TYPE CHAR01 OPTIONAL
*"     REFERENCE(I_BUFFER_ACTIVE) OPTIONAL
*"     REFERENCE(I_CALLBACK_PROGRAM) TYPE SY-REPID OPTIONAL
*"     REFERENCE(I_CALLBACK_USER_COMMAND) OPTIONAL
*"     REFERENCE(I_CALLBACK_TOP_OF_PAGE) OPTIONAL
*"     REFERENCE(I_CALLBACK_TOP_OF_LIST) OPTIONAL
*"     REFERENCE(I_CALLBACK_END_OF_PAGE) OPTIONAL
*"     REFERENCE(I_CALLBACK_END_OF_LIST) OPTIONAL
*"     REFERENCE(I_CALLBACK_PF_STATUS_SET) OPTIONAL
*"     REFERENCE(I_CALLBACK_LAYOUT_SAVE) OPTIONAL
*"     REFERENCE(I_CALLBACK_FIELDCAT_SAVE) OPTIONAL
*"     REFERENCE(I_CALLBACK_GROUPLEVEL_CHANGE) OPTIONAL
*"     REFERENCE(I_CALLBACK_BEFORE_LINE_OUTPUT) OPTIONAL
*"     REFERENCE(I_CALLBACK_AFTER_LINE_OUTPUT) OPTIONAL
*"     REFERENCE(I_CALLBACK_FOREIGN_TOP_OF_PAGE) OPTIONAL
*"     REFERENCE(I_CALLBACK_FOREIGN_END_OF_PAGE) OPTIONAL
*"     REFERENCE(I_CALLBACK_LIST_MODIFY) OPTIONAL
*"     REFERENCE(I_CALLBACK_TOP_OF_COVERPAGE) OPTIONAL
*"     REFERENCE(I_CALLBACK_ITEM_DATA_EXPAND) OPTIONAL
*"     REFERENCE(I_CALLBACK_END_OF_COVERPAGE) OPTIONAL
*"     REFERENCE(I_CALLBACK_HEADER_TRANSPORT) OPTIONAL
*"     REFERENCE(I_CALLBACK_REPREP_SEL_MODIFY) OPTIONAL
*"     REFERENCE(I_CALLBACK_SUBTOTAL_TEXT) OPTIONAL
*"     REFERENCE(I_TABNAME) TYPE SLIS_TABNAME OPTIONAL
*"     REFERENCE(I_FCTYPE) DEFAULT 'R'
*"     REFERENCE(IT_EXCEPT_QINFO) TYPE SLIS_T_QINFO_ALV OPTIONAL
*"     REFERENCE(IS_SEL_HIDE) TYPE SLIS_SEL_HIDE_ALV OPTIONAL
*"     REFERENCE(IS_REPREP_ID) TYPE SLIS_REPREP_ID OPTIONAL
*"     REFERENCE(I_SCREEN_START_COLUMN) DEFAULT 0
*"     REFERENCE(I_OO_ALV) OPTIONAL
*"     REFERENCE(IR_SALV_ADAPTER) TYPE REF TO IF_SALV_ADAPTER OPTIONAL
*"     REFERENCE(I_SUPPRESS_EMPTY_DATA) TYPE SAP_BOOL DEFAULT
*"       ABAP_FALSE
*"     REFERENCE(I_FILE) TYPE STRING OPTIONAL
*"     REFERENCE(IT_FIELDCAT) TYPE SLIS_T_FIELDCAT_ALV OPTIONAL
*"     REFERENCE(IS_LAYOUT) TYPE SLIS_LAYOUT_ALV OPTIONAL
*"     REFERENCE(IT_SORT) TYPE SLIS_T_SORTINFO_ALV OPTIONAL
*"     REFERENCE(IT_FILTER) TYPE SLIS_T_FILTER_ALV OPTIONAL
*"     REFERENCE(IT_EXCLUDING) TYPE SLIS_T_EXTAB OPTIONAL
*"     REFERENCE(IT_SPECIAL_GROUPS) TYPE SLIS_T_SP_GROUP_ALV OPTIONAL
*"     REFERENCE(IS_KEYINFO) TYPE SLIS_KEYINFO_ALV OPTIONAL
*"     REFERENCE(IT_EVENT_EXIT) TYPE SLIS_T_EVENT_EXIT OPTIONAL
*"     REFERENCE(IS_LIST_SCROLL) TYPE SLIS_LIST_SCROLL OPTIONAL
*"     REFERENCE(IS_PRINT) TYPE SLIS_PRINT_ALV OPTIONAL
*"     REFERENCE(IS_LINEINFO) TYPE SLIS_LINEINFO OPTIONAL
*"     REFERENCE(I_REPID) TYPE SYREPID OPTIONAL
*" TABLES
*"      T_OUTTAB TYPE STANDARD TABLE OPTIONAL
*********** Local data declarations******************
DATA: gv_list TYPE char1.
DATA: gv_fcat_complete TYPE sap_bool.
DATA: gv_buffer_active TYPE char01,
wa_variant TYPE disvariant.
DATA: gv_controller TYPE REF TO cl_salv_export_c8r.
DATA: gv_xml           TYPE xstring.
DATA: gv_s_xml_choice TYPE if_salv_bs_xml=>s_type_xml_choice.
DATA: gv_t_xml_choice TYPE if_salv_bs_xml=>t_type_xml_choice.
DATA: gv_param_lvc TYPE if_salv_export=>s_type_param_lvc.
DATA: gv_data       TYPE REF TO data.
DATA: gv_result_data TYPE REF TO cl_salv_ex_result_data_table.
DATA: gv_flavour TYPE string.
DATA: gv_version TYPE string.
DATA:

How to download data from abap-ouput to excel sheet with logo

how to download data from abap-ouput to excel sheet with standard logo
Edited by: Harish Kasyap on Nov 18, 2008 8:19 AM
Edited by: Harish Kasyap on Nov 18, 2008 8:20 AM

For saving the report you can goto System -> List -> Save -> Local File -> Location where you want to save in your presentation server.
You can also give a option in your selection screen to save the file to Presentation server using FM GUI_DOWNLOAD.
Hope it helps.
Thanks,
Jayant.

How to Select Members Based on Attributes using Excel VBA

Hi there,Does anyone know how to select members based on attributes using Excel VBA?I don't seem to be able to find macros or functions to do that.Panda

you can use the Range or the Cells objects to get a reference to your range values
in this sample the data is on A1 to B5
Dim lineList(4)
lineList(0) = Array(Cells(1, 1).Value, Cells(1, 2).Value)
lineList(1) = Array(Cells(2, 1).Value, Cells(2, 2).Value)
lineList(2) = Array(Cells(3, 1).Value, Cells(3, 2).Value)
lineList(3) = Array(Cells(4, 1).Value, Cells(4, 2).Value)
lineList(4) = Array(Cells(5, 1).Value, Cells(5, 2).Value)

How to upload data from excel to SAP and options to be used

How to upload data from excel to SAP and options to be used
thank you,
Regards,
Jagrut Bharatkumar shukla

Hi Jagrut,
You can use gui_upload.
chk the sample program mentioned below.
REPORT ZFTP .
DATA: BEGIN OF I_FILE OCCURS 0,
DATA(2000) TYPE C,
END OF I_FILE.
DATA: BEGIN OF I_FILE2 OCCURS 0,
DATA(2000) TYPE C,
END OF I_FILE2.
DATA: W_COUNT TYPE I.
PARAMETERS: P_FILEN TYPE STRING,
P_FILE2 TYPE STRING,
P_NUM(4) TYPE N..
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILEN.
PERFORM F_FILE_GET USING P_FILEN TEXT-G01.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE2.
PERFORM F_FILE_GET USING P_FILE2 TEXT-G01.
START-OF-SELECTION.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = P_FILEN
FILETYPE = 'ASC'
HAS_FIELD_SEPARATOR = 'X'
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
VIRUS_SCAN_PROFILE =
NO_AUTH_CHECK = ' '
IMPORTING
FILELENGTH =
HEADER =
tables
data_tab = I_FILE
IF SY-SUBRC <> 0.
MESSAGE E024(Z1).
ENDIF.
LOOP AT I_FILE.
W_COUNT = W_COUNT + 1.
IF NOT W_COUNT > P_NUM.
MOVE I_FILE TO I_FILE2.
APPEND I_FILE2.
ENDIF.
ENDLOOP.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE =
filename = P_FILE2
FILETYPE = 'ASC'
APPEND = ' '
WRITE_FIELD_SEPARATOR = 'X'
HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
IMPORTING
FILELENGTH =
tables
data_tab = I_FILE2
FIELDNAMES =
*& Form F_FILE_GET
text
-->P_P_FILEN text
-->P_TEXT_G01 text
FORM F_FILE_GET USING L_FILENA L_TEXT.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_FILENAME = ' '
DEF_PATH = ' '
MASK = ',.,*.TXT.'
MODE = 'O'
TITLE = L_TEXT
IMPORTING
FILENAME = L_FILENA
rc =
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Reward if helpful.
Regards,
Harini.S

How to download data into two different columns 2003 excel format in ole

Hi ALL
when we download data into excel using ole with delimiter it works fine in 2007 but when we check this with 2003 format
both fields come in only one column .Can any one suggest
CONCATENATE WA_ALL-PERNR LV_ICNUM INTO WA_PERNR SEPARATED BY W_DELI   IN CHARACTER MODE.

If you're already using OLE, you can fill in value for each cell separately instead of using a delimiter. Something like this fragment:
FORM fill_cell USING p_row p_col p_value.
CALL METHOD OF obj_excel 'CELLS' = obj_cell
    EXPORTING
    #1 = p_row
    #2 = p_col.
SET PROPERTY OF obj_cell 'VALUE' = p_value.
ENDFORM.                    "fill_cell

How to do reconciliation using excel

HI,
how to do Reconcelation using excel sheet (placing r/3 data and bw data by using special logic....)

Hi
Normally the BW reconcillation with R/3 is done against Information System reports in R/3 . So find out in your specific case what is the Tcode for the R/3 report which is going to be used for reconcilation . Run this Report and download the output in excel ( most probably you would find download options under system/ utilities options in the menu bar ) You could then compare this with the cube output which can be obtained from LISTCUBE tcode in BW
Another way is to compare with PSA data as PSA stores untransformed data . You could crerate a vitual cube on the PSA and model a multiprovider on your cube and this VC and create a Bex report
Hope this helps
Regards

Downloading data to excel

Hi all,
I am downloading data to excel by using OLE2 type pool in an ABAP program.
My requirement is to make some of the columns of the excel sheet bold.
is it possible? if so please guide me.
LOOP AT IT_FINAL1 INTO WA_FINAL1.
    R_IND = 1 + R_IND.
    INDEX = 1 + SY-TABIX .
    CLEAR IND.
    DO.
      ASSIGN COMPONENT SY-INDEX OF STRUCTURE WA_FINAL1 TO <I_OUTPUT>.
      IF SY-SUBRC NE 0.
        EXIT.
      ENDIF.
      IND = SY-INDEX.
      CALL METHOD OF SHEET 'Cells' = CELLS EXPORTING #1 = INDEX
        #2 = IND. "1
      SET PROPERTY OF CELLS 'Value' = <I_OUTPUT>.
    ENDDO.
    CALL METHOD OF APPLICATION 'Cells' = CELL1
      EXPORTING #1 = 1
      #2 = 7.
    CALL METHOD OF APPLICATION 'Cells' = CELL2
       EXPORTING
         #1 = INDEX     "down
         #2 = 7.       "across
ENDLOOP.
I have used the above code.
here 7th column, 10th column, 13th column has to be made bold and so on.
regards,
samarendra.
Edited by: samarendra penugonda on May 26, 2009 12:57 PM

Hello,
Check this standard program it is printing some values in bold.
RSDEMO01
Example
SET PROPERTY OF H_F 'Bold' = BOLD .

Download data to excel sheet

hi all,
i have a situation, i want to download the data of an alv grid display to a excel sheet, is there any other way of doin it other than choosing from the List menu, coz when i click the excel sheet button on the application tool bar i get a blank excel sheet, do i need to pass any parameters ??? can any one plz gimme the funtionality of this.
thansk
anupama

Hi,
I am giving u a sample code to download dat ato excel.
try to use it.
CONSTANTS:c_x(1)             TYPE c VALUE'X',
          lc_a(1)            TYPE c VALUE 'A',
          c_p2(2)            TYPE c VALUE 'P2',
          c_dir              TYPE string VALUE 'C:\',
          c_ext              TYPE string VALUE 'XLS'.
DATA: fullpath TYPE string,              "Full path of the file
        filename TYPE string,              "Name of the excel file
        path     TYPE string,              "Path where the file will be stored
        user_action TYPE i ,               "To catch User Action
        l_title TYPE string.               "To display title
* encoding TYPE abap_encoding.
l_title = 'Save File'(006).
* Open the save dialog
CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
      window_title         = l_title
      default_extension    = c_ext
      initial_directory    = c_dir
    CHANGING
      filename             = filename
      path                 = path
      fullpath             = fullpath
      user_action          = user_action
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
IF sy-subrc <> 0.
    EXIT.
ENDIF.
** Check which button is pressed
IF user_action <> cl_gui_frontend_services=>action_ok.
    MESSAGE i006.              "Action Cancelled By User
    EXIT.
ENDIF.
* Download error data collected from the internal table
CALL METHOD cl_gui_frontend_services=>gui_download
    EXPORTING
      filename                = fullpath
      filetype                = 'ASC'
      write_field_separator   = '#'
    CHANGING
      data_tab                = gi_final   "Your InterNal Table Name
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5
      unknown_error           = 6
      header_not_allowed      = 7
      separator_not_allowed   = 8
      filesize_not_allowed    = 9
      header_too_long         = 10
      dp_error_create         = 11
      dp_error_send           = 12
      dp_error_write          = 13
      unknown_dp_error        = 14
      access_denied           = 15
      dp_out_of_memory        = 16
      disk_full               = 17
      dp_timeout              = 18
      file_not_found          = 19
      dataprovider_exception = 20
      control_flush_error     = 21
      not_supported_by_gui    = 22
      error_no_gui            = 23
      OTHERS                  = 24.
* If selection is successful
IF sy-subrc EQ 0.
    MESSAGE s004 . " File created successfully
ELSE.
    MESSAGE i005 . " File is not created successfully
ENDIF.

How to upload datas in excel sheet through BDC

Hi,
    I know how to upload datas in Text format through BDC...Suppose even when datas are in .xls format,I saved that file as Text(tab delimited) format...then file become text format and it can be easily uploaded....
    So, I want to know How to upload datas in excel sheet through BDC

hi,
try this Example, hope useful to u, assign me point.
report ZMSV1_BDC_CALL
       no standard page heading line-size 255.
*include bdcrecx1.
*parameters: dataset(132) lower case.
   DO NOT CHANGE - the generated data section - DO NOT CHANGE    ***
If it is nessesary to change the data section use the rules:
1.) Each definition of a field exists of two lines
2.) The first line shows exactly the comment
      '* data element: ' followed with the data element
      which describes the field.
      If you don't have a data element use the
      comment without a data element name
3.) The second line shows the fieldname of the
      structure, the fieldname must consist of
      a fieldname and optional the character '_' and
      three numbers and the field length in brackets
4.) Each field must be type C.
Generated data section with specific formatting - DO NOT CHANGE ***
data: begin of record,
data element: BUKRS
        BUKRS_001(004),
data element: KTOKK
        KTOKK_002(004),
data element: NAME1_GP
        NAME1_003(035),
data element: SORTL
        SORTL_004(010),
data element: ORT01_GP
        ORT01_005(035),
data element: LAND1_GP
        LAND1_006(003),
data element: SPRAS
        SPRAS_007(002),
data element: BANKS
        BANKS_01_008(003),
data element: BANKK
        BANKL_01_009(015),
data element: BANKN
        BANKN_01_010(018),
      end of record.
End generated data section ***
data: itab like record occurs 0 .
data: it_bdc type bdcdata occurs 0 with header line.
data: it_msg type bdcmsgcoll occurs 0 with header line.
parameter p_file type rlgrap-filename default 'c:\vendor.txt' obligatory
start-of-selection.
perform open_dataset using p_file.
perform open_group.
*perform close_group.
*perform close_dataset using dataset.
*&      Form open_dataset
      text
     -->P_P_FILE text
form open_dataset using    p_p_file.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
CODEPAGE                      = ' '
FILENAME                      = p_file
FILETYPE                      = 'DAT'
HEADLEN                       = ' '
LINE_EXIT                     = ' '
TRUNCLEN                      = ' '
USER_FORM                     = ' '
USER_PROG                     = ' '
DAT_D_FORMAT                  = ' '
IMPORTING
FILELENGTH                    =
TABLES
    data_tab                      = itab
EXCEPTIONS
CONVERSION_ERROR              = 1
FILE_OPEN_ERROR               = 2
FILE_READ_ERROR               = 3
INVALID_TYPE                  = 4
NO_BATCH                      = 5
UNKNOWN_ERROR                 = 6
INVALID_TABLE_WIDTH           = 7
GUI_REFUSE_FILETRANSFER       = 8
CUSTOMER_ERROR                = 9
NO_AUTHORITY                  = 10
OTHERS                        = 11
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.                    " open_dataset
*&      Form open_group
      text
--> p1        text
<-- p2        text
form open_group .
loop at itab into record.
perform bdc_dynpro      using 'SAPMF02K' '0105'.
perform bdc_field       using 'BDC_CURSOR'
                              'RF02K-KTOKK'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'RF02K-BUKRS'
                              record-BUKRS_001.
perform bdc_field       using 'RF02K-KTOKK'
                              record-KTOKK_002.
perform bdc_dynpro      using 'SAPMF02K' '0110'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFA1-ORT01'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'LFA1-NAME1'
                              record-NAME1_003.
perform bdc_field       using 'LFA1-SORTL'
                              record-SORTL_004.
perform bdc_field       using 'LFA1-ORT01'
                              record-ORT01_005.
perform bdc_field       using 'LFA1-LAND1'
                              record-LAND1_006.
perform bdc_field       using 'LFA1-SPRAS'
                              record-SPRAS_007.
perform bdc_dynpro      using 'SAPMF02K' '0120'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFA1-KUNNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPMF02K' '0130'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFBK-KOINH(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'LFBK-BANKS(01)'
                              record-BANKS_01_008.
perform bdc_field       using 'LFBK-BANKL(01)'
                              record-BANKL_01_009.
perform bdc_field       using 'LFBK-BANKN(01)'
                              record-BANKN_01_010.
perform bdc_dynpro      using 'SAPMF02K' '0130'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFBK-BANKS(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_dynpro      using 'SAPMF02K' '0210'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFB1-AKONT'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPMF02K' '0215'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFB1-ZTERM'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPMF02K' '0220'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFB5-MAHNA'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPLSPO1' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                              '=YES'.
call transaction 'FK01' using it_bdc mode 'A' update 'S'
                             messages into it_msg.
write:/ sy-subrc.
    perform message_formatwrite.
refresh it_bdc.
clear it_bdc.
endloop.
endform.                    " open_group
*&      Form message_formatwrite
      text
--> p1        text
<-- p2        text
form message_formatwrite .
data:l_msg(10).
loop at it_msg.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
   ID              = SY-MSGID
   LANG            = sy-langu
   NO              = SY-MSGNO
   V1              = SY-MSGV1
   V2              = SY-MSGV2
   V3              = SY-MSGV3
   V4              = SY-MSGV4
IMPORTING
   MSG             = l_msg
EXCEPTIONS
   NOT_FOUND       = 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.
endloop.
endform.                    " message_formatwrite
*&      Form bdc_dynpro
      text
     -->P_0112   text
     -->P_0113   text
form bdc_dynpro using    value(p_0112)
                          value(p_0113).
it_bdc-program = p_0112.
it_bdc-dynpro = p_0113.
it_bdc-dynbegin = 'X'.
append it_bdc.
clear it_bdc.
endform.                    " bdc_dynpro
*&      Form bdc_field
      text
     -->P_0117   text
     -->P_0118   text
form bdc_field using    value(p_0117)
                         value(p_0118).
it_bdc-fnam = p_0117.
it_bdc-fval = p_0118.
append it_bdc.
clear it_bdc.
endform.                    " bdc_field
Regards
fareedas

How to download data using excel vba.

Similar Messages

Maybe you are looking for