************************************************************************
* Programa: YO_EXCEL_SAMPLE
* Objetivo: Importar planilha Excel para Tabela Interna
* Desenv. : Antonio Mosca Junior
* Data    : 03/08/2007
************************************************************************

REPORT yo_excel_sample.

DATA: BEGIN OF tb_saida OCCURS 0,
        cells(1024) TYPE c,
      END OF tb_saida.


DATA: BEGIN OF tb_excel OCCURS 0,
        cell01(30)   TYPE c,
        cell02(30)   TYPE c,
        cell03(30)   TYPE c,
        cell04(30)   TYPE c,
        cell05(30)   TYPE c,
      END OF tb_excel.


CALL FUNCTION 'YO_CARGA_EXCEL'
     EXPORTING
          p_cami  = 'c:\teste.xls'
          p_ncoln = 5
          p_nline = 10
     TABLES
          p_tbxls = tb_saida.

LOOP AT tb_saida.

  SPLIT tb_saida AT '|'
         INTO tb_excel-cell01
              tb_excel-cell02
              tb_excel-cell03
              tb_excel-cell04
              tb_excel-cell05.

  APPEND tb_excel.
  CLEAR tb_excel.

ENDLOOP.


LOOP AT tb_excel.

  WRITE: tb_excel-cell01,
         tb_excel-cell02,
         tb_excel-cell03,
         tb_excel-cell04,
         tb_excel-cell05.

ENDLOOP.



**** @ all rigths reserved ********************