안녕하세요..

구현은 다 되었는 데, 디버깅 모드에서 실제 엑셀 파일을 업로드한 후 저장되는 데이타를 확인해보면

당최 알수 없는 데이타들로 저장이 되네요.

무엇이 문제인지..휴..

소스로 도배해서 죄송합니다.

REPORT zvscandemo.

************************************************************************
* Selection screen
************************************************************************
PARAMETERS:
  file    TYPE localfile.

************************************************************************
* Events
************************************************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR file.
  PERFORM file_f4.

START-OF-SELECTION.
  PERFORM main.

************************************************************************
* Main program
************************************************************************
FORM main.

  IF file IS INITIAL.
    MESSAGE s058(vscan) DISPLAY LIKE 'E'.
    EXIT.           " =================== EXIT =====================
  ENDIF.

* Access file and create XSTRING
  TYPES:
    ty_xline(1024) TYPE x.

  DATA:
    lf_file       TYPE string,
    lf_filelength TYPE i,
    lt_datatab    TYPE STANDARD TABLE OF ty_xline.

  lf_file = file.

  CALL METHOD cl_gui_frontend_services=>gui_upload
    EXPORTING
      filename                = lf_file
      filetype                = 'BIN'
    IMPORTING
      filelength              = lf_filelength
    CHANGING
      data_tab                = lt_datatab
    EXCEPTIONS
      OTHERS                  = 1.

    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
                 DISPLAY LIKE 'E'
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      EXIT.           " =================== EXIT =====================
    ENDIF.

* Recombine binary data
  DATA:
    lf_tabline TYPE ty_xline,
    lf_data    TYPE xstring.

  LOOP AT lt_datatab INTO lf_tabline.
    CONCATENATE
        lf_data
        lf_tabline
      INTO
        lf_data
      IN BYTE MODE.
  ENDLOOP.

  lf_data = lf_data(lf_filelength).
ENDFORM.

************************************************************************
* F4-help for filename
************************************************************************
FORM file_f4.

  DATA:
    lt_filetable TYPE filetable,
    lf_rc        TYPE i.

  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      multiselection          = abap_false
    CHANGING
      file_table              = lt_filetable
      rc                      = lf_rc
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.

  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
               DISPLAY LIKE 'E'
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    EXIT.
  ENDIF.

* Number of selected filed must be equal to one.
  CHECK lf_rc = 1.

* Access selected file
  DATA:
    ls_file TYPE file_table.

  READ TABLE lt_filetable INTO ls_file INDEX 1.
  CHECK sy-subrc = 0.

  file = ls_file-filename.

ENDFORM.

>안녕하세요..

> 

>오늘 하루종일 파일 업로드/다운로드로 사경을 헤매고 있습니다.

> 

>이전에 제가 엑셀 템플리트를 다운로드 가능 문의를 드렷는 데,

>이 다운로드 받을 템플리트에 내용을 입력하고 다시 업로드를 한 후 BDC를 태우려고 합니다.

>(아직 BDC는 무리고)

> 

>엑셀 파일을 업로드 한 후 미리 선언한 internal table에 넣는 작업이 왜 이렇게 어려운지..

>WS_UPLOAD로 한참하다가 이 function은 안되는 거 같아 GUL_UPLOAD를 이용하려고 합니다.

> 

>고수님들 엑셀 업로드 도와주셔요..

> 

>고맙습니다.

> 

>PS  : 엑셀 파일 업로드 다른 방법이 있는지요?