Skip to Content
0
Former Member
Apr 25, 2009 at 05:13 AM

uploading excel sheet

21 Views

data is not uploaded. what is missing?

Report ZM  no standard page heading line-size 255.

DATA: BEGIN OF itab OCCURS 0,
      matnr(18) TYPE C,
      mbrsh(1) TYPE C,
      mtart(4) TYPE C,
      werks(4) TYPE C,
      lgort(4) TYPE C,
      maktx(40) TYPE C,
      meins(3) type c,
      matkl(9) type c,
      ekgrp(3) TYPE C,
      bklas(4) TYPE C,
      vprsv(1) TYPE C,
      peinh(6) TYPE C,
      verpr(5) TYPE C,
    END OF itab.
DATA : L_INTERN TYPE KCDE_CELLS OCCURS 0 WITH HEADER LINE.
DATA : L_INDEX TYPE I.
DATA : L_START_COL TYPE I VALUE '1',
L_START_ROW TYPE I VALUE '1',
L_END_COL TYPE I VALUE '13',
L_END_ROW TYPE I VALUE '48'.
DATA: I_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

DATA: NODATA TYPE C VALUE ' '.
FIELD-SYMBOLS : <FS>.

start-of-selection.

  CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
    EXPORTING
      FILENAME                      = 'D:\bdc.XLS'
      I_BEGIN_COL                   = L_START_COL
      I_BEGIN_ROW                   = L_START_ROW
      I_END_COL                     = L_END_COL
      I_END_ROW                     = L_END_ROW
    TABLES
      INTERN                        = L_INTERN
* EXCEPTIONS
*   INCONSISTENT_PARAMETERS       = 1
*   UPLOAD_OLE                    = 2
*   OTHERS                        = 3
            .
  IF SY-SUBRC ne  0.
  ENDIF.

  SORT L_INTERN BY ROW COL.
  LOOP AT L_INTERN.
    MOVE L_INTERN-COL TO L_INDEX.
    ASSIGN COMPONENT L_INDEX OF STRUCTURE ITAB TO <FS>.
    MOVE L_INTERN-VALUE TO <FS>.
    AT END OF ROW.
      APPEND ITAB.
      CLEAR ITAB.
    ENDAT.
  ENDLOOP.

loop at itab.

perform bdc_dynpro      using 'SAPLMGMM' '0060'.
perform bdc_field       using 'BDC_CURSOR'
                              'RMMG1-MTART'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'RMMG1-MATNR'
                              itab-MATNR.
perform bdc_field       using 'RMMG1-MBRSH'
                             itab-MBRSH.
perform bdc_field       using 'RMMG1-MTART'
                              itab-MTART.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(17)'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(01)'
                              'X'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(09)'
                              'X'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(17)'
                              'X'.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(17)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(17)'
                              'X'.

Part2 is in Second post.

Note: Please don't Post sample codes which is more than 5000 Chars

Formatted by: Vijay Babu Dudla on Apr 25, 2009 5:26 AM