sap abap bdc program for Vendor Master Upload Program

How can I upload vendor master excel file to sap table?

Check this code to upload vendor master through SHDB transaction.

report ZVEND_MST no standard page heading line-size
255.

*include bdcrecx1.

*parameters: dataset(132) lower case default
'c:\vend.mst'.
***    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: LIF16
       LIFNR_001(016),
* data element: BUKRS
       BUKRS_002(004),
* data element: EKORG
       EKORG_003(004),
* data element: KTOKK
       KTOKK_004(004),
* data element: NAME1_GP
       NAME1_005(035),
* data element: SORTL
       SORTL_006(010),
* data element: LAND1_GP
       LAND1_007(003),
* data element: SPRAS
       SPRAS_008(002),
* data element: BSTWA
       WAERS_009(005),
     end of record.

*** End generated data section ***

DATA : ITAB TABLE OF RECORD WITH HEADER LINE.

start-of-selection.

*perform open_dataset using dataset.
*perform open_group.
*
*do.
*
*read dataset dataset into record.
*if sy-subrc <> 0. exit. endif.
CALL FUNCTION 'GUI_UPLOAD'
 EXPORTING
   FILENAME                      = 'C:\VENDOR.TXT' 
"TEXT FILE
  FILETYPE                      = 'ASC'
  HAS_FIELD_SEPARATOR           = 'X'
 TABLES
   DATA_TAB                      = ITAB
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.

LOOP AT ITAB.
*In Loop Change Record With ITAB
* like record-lifnr_001 with itab-lifnr_001
 perform bdc_dynpro      using 'SAPMF02K' '0100'.
 perform bdc_field       using 'BDC_CURSOR'
                             'RF02K-KTOKK'.
 perform bdc_field       using 'BDC_OKCODE'
                             '/00'.
 perform bdc_field       using 'RF02K-LIFNR'
                             record-LIFNR_001.
 perform bdc_field       using 'RF02K-BUKRS'
                             record-BUKRS_002.
 perform bdc_field       using 'RF02K-EKORG'
                             record-EKORG_003.
 perform bdc_field       using 'RF02K-KTOKK'
                             record-KTOKK_004.
 perform bdc_dynpro      using 'SAPMF02K' '0110'.
 perform bdc_field       using 'BDC_CURSOR'
                             'LFA1-SPRAS'.
 perform bdc_field       using 'BDC_OKCODE'
                             '/00'.
 perform bdc_field       using 'LFA1-NAME1'
                             record-NAME1_005.
 perform bdc_field       using 'LFA1-SORTL'
                             record-SORTL_006.
 perform bdc_field       using 'LFA1-LAND1'
                             record-LAND1_007.
 perform bdc_field       using 'LFA1-SPRAS'
                             record-SPRAS_008.
 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-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 'SAPMF02K' '0310'.
 perform bdc_field       using 'BDC_CURSOR'
                               'LFM1-WAERS'.
 perform bdc_field       using 'BDC_OKCODE'
                               '/00'.
 perform bdc_field       using 'LFM1-WAERS'
                               record-WAERS_009.
 perform bdc_dynpro      using 'SAPMF02K' '0320'.
 perform bdc_field       using 'BDC_CURSOR'
                               'RF02K-LIFNR'.
 perform bdc_field       using 'BDC_OKCODE'
                               '=ENTR'.
 perform bdc_dynpro      using 'SAPLSPO1' '0300'.
 perform bdc_field       using 'BDC_OKCODE'
                               '=YES'.
 perform bdc_transaction using 'XK01'.

endLOOP..

Check It, Activate it and process in SM35.