Cargar un archivo EXCEL

[josefon]

Que tal! como estan??

Bueno les comento que necesito cargar en una tabla interna un archivo en excel pero no encuentro como cargarlo alguien sabe que funcion puedo utilizar???

Gracias
saludos

[Mike]

Josefon

Esta Función se encarga de pasar lo que tienes en un documento excel a una tabla interna

CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
EXPORTING
FILENAME = 'Ruta y nombre del archivo excel'
I_BEGIN_COL = Columna en donde comienza el archivo
I_BEGIN_ROW = Fila e donde comienza el archivo
I_END_COL = Ultima columna del archivo
I_END_ROW = Ultima fila del archivo
TABLES
INTERN = Tabla interna a llenar
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2.

Ya ahi lo que tienes que hacer es jugar con la tabla interna, dependiendo de lo que quieras hacer..

Saludos,
Mike

[josefon]

Muchas gracias Mike!!

ya la habia encontrado esa.. lo que me causa ruido es el hecho de que tengo que decirle en que columna empezar y cual terminar.. no???

gracias
saludos

[Mike]

Si, es verdad pero bueno eso es lo que hay, y hasta los momentos me ha funcionado, claro tienes que saber la fila y columna en la que empieza y termina el archivo... Si consigues otra me gustaria saberla.

Suerte,


Saludos,
Mike

[josefon]

Que tal!! pues despues de 2 dias de busqueda pues por fin encontre una forma de subir un archivo en excel a una tabla interna.
la funcion se llama TEXT_CONVERT_XLS_TO_SAP. aki el ejemplo.

CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
i_line_header = 'X' "Si dejan este campo te quita una linea de tu archivo como header
i_tab_raw_data = it_raw " WORK TABLE
i_filename = p_entra
TABLES
i_tab_converted_data = t_upload[] "ACTUAL DATA
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.

lo malo es que si se tarda un poco.. por ejemplo con
150 lineas se tardo 1.48 minutos y con 1350 se tardo 10.40 minutos

se me habia ocurrido que si tu sabes cuantas lineas y columnas tiene tu EXCEL pues ocupar la funcion propuesta por MIKE pero si no sabes cuantas trae pues ocupar la TEXT_CONVERT_XLS_TO_SAP voy a invertigar si hay una forma de mejorar esta funcion para reducir el tiempo de carga..

en fin ojala les funcione...

saludos

[Marco]

Hola, :)
Claro... la funcion en donde poner parametros es mas rapida, el otro modo te levanta todo el Excel al parecer (muy lento). Lo q se tiene q definir seria un standard en el formato excel, para de esa manera saberla y subir solo lo especifico (es lo recomendado).. Ahora si no sabes y quieres subir Excel de cualquier tamaño, como que se tardará tu mismo lo haz visto. Mas bien si quieres hacer eso por ahi se me acurre que crees un paso mas, el de convertir tu Excel a Texto y subirlo como texto (separado por espacios), es mucho mas rapido comparado con el Excel y tienes el mismo resultado. :rolleyes:

Saludos
Cuidense,

[ominorca]

Buenas estoy usando la misma funcion pero me da un error.
Mi codigo es este:
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_filename = p_file
def_path = 'c:\'
mask = ',*.* ,*.*.'
mode = 'O'
IMPORTING
filename = p_file
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.

START-OF-SELECTION.

CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
* I_FIELD_SEPERATOR =
* I_LINE_HEADER =
i_tab_raw_data = w_tabla
i_filename = p_file
tables
i_tab_converted_data = t_tabla
* EXCEPTIONS
* CONVERSION_FAILED = 1
* OTHERS = 2


P_file lleva el fichero.
T_tabla la tabla a cargar.
w_tabla esta definido como en la funcion pero no se que le tengo que pasar.
Un saludo.

[mamt]

hola sabes que al ejecutar el programa que carga la funcion , me da un error


Type conflict when calling function module "KCD_EXCEL_OLE_TO_INT_CONVERT".

sabes a qe se debe este error, ahora si tienes otra funcion te lo agradeciria
gracias


Josefon

Esta Función se encarga de pasar lo que tienes en un documento excel a una tabla interna

CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
EXPORTING
FILENAME = 'Ruta y nombre del archivo excel'
I_BEGIN_COL = Columna en donde comienza el archivo
I_BEGIN_ROW = Fila e donde comienza el archivo
I_END_COL = Ultima columna del archivo
I_END_ROW = Ultima fila del archivo
TABLES
INTERN = Tabla interna a llenar
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2.

Ya ahi lo que tienes que hacer es jugar con la tabla interna, dependiendo de lo que quieras hacer..

Saludos,
Mike

[DavidXD_XD]

Hola ... yo cargo una tabla interna desde un excel con la funcion:
ALSM_EXCEL_TO_INTERNAL_TABLE

*&---------------------------------------------------------------------*
*& Form upload_excel
*&---------------------------------------------------------------------*
* Cargar archivo excel
*----------------------------------------------------------------------*
* -->PT_DUA : Tabla interna de estructura de archivo excel
* -->P_PATH : Ruta de archivo excel
*----------------------------------------------------------------------*
FORM upload_excel TABLES pt_dua LIKE ti_dua[]
USING p_path.

* Variables globales
DATA: lt_excel TYPE TABLE OF alsmex_tabline,
l_index TYPE i.

DATA: l_cont(2) TYPE c,
l_cadena TYPE string,
l_start_col TYPE i VALUE 1,
l_start_row TYPE i VALUE 5,
l_end_col TYPE i VALUE 6,
l_end_row TYPE i VALUE 65536.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = p_path
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 = lt_excel
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.

IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CHECK NOT lt_excel[] IS INITIAL.

FIELD-SYMBOLS: <fs_excel> LIKE LINE OF lt_excel,
<fs>.

LOOP AT lt_excel ASSIGNING <fs_excel>.
IF <fs_excel>-col = '0001'.
l_cont = strlen( <fs_excel>-value ).
IF l_cont NE '18'.
EXIT.
ENDIF.
ENDIF.
MOVE <fs_excel>-col TO l_index.
ASSIGN COMPONENT l_index OF STRUCTURE pt_dua TO <fs>.
MOVE <fs_excel>-value TO <fs>.
AT END OF row.
APPEND pt_dua.
CLEAR pt_dua.
ENDAT.
ENDLOOP.

ENDFORM. " upload_excel

[lauracarolina]

hola david...dime y si no sabes cual es el final de la tabla en excel??se el inicio de la tabla en un formato que me dan pero no se cuantas filas pueda tener ya que varian....gracias de antemano

[bisonye]

hola david...dime y si no sabes cual es el final de la tabla en excel??se el inicio de la tabla en un formato que me dan pero no se cuantas filas pueda tener ya que varian....gracias de antemano

Yo creo que la mejor forma de cargarlo es transformando el excel en fichero de texto y luego cargarlo a sap. Es un paso que cualquiere usuario puede hacer y la carga del archivo es mucho más rápida.

Saludos

[lauracarolina]

alguna otra solucion????

[Rodolfo Montiel Rivera]

Puedes utilizar esta a mi me sirvio muy bien solo te describo algunos detalles:

1.- Cada registro de tu excel te lo inserta en un solo campo string pero para diferenciar los campos este lo separa con su slash '|' por lo cual tendras que validar algunos aspectos como ancho de columnas desde el layout de excel.

2.- Debes tener cuidado al acomodar ya que este toma encuenta el primer valor que encuentre en tu registro y de ahi es donde te empieza a tomar la columna osea si tiene columna A B C D pero tu llenas el valor desde la B1 no contara la columna A y te marcara menos columnas.

Pero eso ya solo en concepto de validacion pero en realidad la funcion se adpata muy bien a tu requerimiento ya que puedes tener la cantidad de calomnas y valores que quieras despues ya solo es cosas de un buen split y acomodar bien las caidas en su campo correspondiente.

CALL FUNCTION 'FAA_FILE_UPLOAD_EXCEL'
EXPORTING
i_filename = pa_file
i_delimiter = '|'
TABLES
et_filecontent = tb_excel
EXCEPTIONS
error_accessing_file = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE s000(zats) DISPLAY LIKE 'E'
WITH text-017.
v_error = 'X'.
v_procesa = 'X'.
EXIT.
ENDIF.

PD. Te adjunto todo el programa para mayor referencia ya que lo hice y esta muy bien validado. Saludos!!

[lauracarolina]

gracias por tu ayuda, pero cuando intento poner esa funcion en SAP me dice que no existe :S ...

[javi_polo]

Hola,

Creo que te podría servir la función FILE_READ_AND_CONVERT_SAP_DATA. Como argumento a esta función le tienes que pasar una tabla interna con una estructura de columnas igual a la estructura de columnas de tu excel pero la función ya contiene la rutina que lee sólo el número de filas que tiene la excel.

Te paso un ejemplo de un programa que lee un fichero excel con dos columnas de un caracter e imprime el contenido de dichas columnas:

REPORT ztemp LINE-SIZE 255.

************************************************************************
* Definición de tipos
************************************************************************
TYPES: BEGIN OF fichero,
columna1 TYPE c,
columna2 TYPE c,
END OF fichero.

DATA gt_fichero TYPE TABLE OF fichero WITH HEADER LINE.

************************************************************************
* Definición de la pantalla de selección
************************************************************************
SELECTION-SCREEN BEGIN OF BLOCK file WITH FRAME TITLE text-t01.
PARAMETERS p_file TYPE fileintern OBLIGATORY LOWER CASE.
SELECTION-SCREEN END OF BLOCK file.

************************************************************************
* Gestión de eventos de la pantalla de selección
************************************************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
* Ayuda de búsqueda de nombre de fichero
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_filename = p_file
def_path = 'c:\'
mask = ',*.*,*.*.'
mode = 'O'
title = 'Ruta del fichero de carga'
IMPORTING
filename = p_file
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.

START-OF-SELECTION.
* Lectura del fichero de carga
CALL FUNCTION 'FILE_READ_AND_CONVERT_SAP_DATA'
EXPORTING
i_filename = p_file
i_servertyp = 'PRS'
i_fileformat = 'XLS'
TABLES
i_tab_receiver = gt_fichero
EXCEPTIONS
file_not_found = 1
close_failed = 2
authorization_failed = 3
open_failed = 4
conversion_failed = 5
OTHERS = 6.

END-OF-SELECTION.
LOOP AT gt_fichero.
WRITE: / gt_fichero-columna1,
gt_fichero-columna2.
ENDLOOP.

Ya nos contarás si te funciona :)

[acha3318]

Saludos, me podrias hacer el favor de mostrarme como definiste la tabla t_upload[] , me esta dando un error creo en la definición de la tabla.

Este es el error:
An exception occurred. This exception is dealt with in more detail below
. The exception, which is assigned to the class 'CX_SY_MOVE_CAST_ERROR', was
neither
caught nor passed along using a RAISING clause, in the procedure
"TEXT_CONVERT_XLS_TO_SAP" "(FUNCTION)"
.
Since the caller of the procedure could not have expected this exception
to occur, the running program was terminated.
The reason for the exception is:
A 'CAST' operation ('?=' or 'MOVE ?TO') tried to assign an object or
interface variable to a reference variable.
However, the contents of the source variable do not fit in the target.
Source type. "\CLASS=CL_ABAP_ELEMDESCR"
Target type: "\CLASS=CL_ABAP_STRUCTDESCR"


Que tal!! pues despues de 2 dias de busqueda pues por fin encontre una forma de subir un archivo en excel a una tabla interna.
la funcion se llama TEXT_CONVERT_XLS_TO_SAP. aki el ejemplo.

CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
i_line_header = 'X' "Si dejan este campo te quita una linea de tu archivo como header
i_tab_raw_data = it_raw " WORK TABLE
i_filename = p_entra
TABLES
i_tab_converted_data = t_upload[] "ACTUAL DATA
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.

lo malo es que si se tarda un poco.. por ejemplo con
150 lineas se tardo 1.48 minutos y con 1350 se tardo 10.40 minutos

se me habia ocurrido que si tu sabes cuantas lineas y columnas tiene tu EXCEL pues ocupar la funcion propuesta por MIKE pero si no sabes cuantas trae pues ocupar la TEXT_CONVERT_XLS_TO_SAP voy a invertigar si hay una forma de mejorar esta funcion para reducir el tiempo de carga..

en fin ojala les funcione...

saludos

[ballan]

Podrias probar a utilizar la funcion GUI_UPLOAD poniendo en el tipo DAT en lugar de ASC aver si funciona

[jjsm]

Estoy en se37 "Tes del modulo de funciones:Resultados"

Estoy bien??

(Nose de programacion, soy muy basico), me aparece datos similares..

Que hago??

O debo ir a otro lado? Llegue ahi por la biblioteca de funciones.
Ahy me figura la tabla, pero para hacer funcionar esto, o para darle uso a donde me dirijo?

****************************
Por lo visto no tengo autorizacion para modificar... nada que hacer?

saludos

[Ivan_Delfino]

Hola que tal le eh estado haciendo pruebas a la funcion ALSM_EXCEL_TO_INTERNAL_TABLE y solo lee las columnas que tengan valor los vacios no los lee, por lo tanto no es necesario saber exactamente el tamaño con dejar un tamaño grande solo tomara los que tengan valor.

Saludos

[sebasap2014]

Bueno queria preguntar, si uso una funcion en la cual tengo que indicar el comienzo y fin de las columnas y filas, como hago para el caso en el que por parametro de seleccion indique esto, pero en el caso de las columna lo hago haciendo referencia a las letras del EXCEl es decir columna A B C etc, manualemente asignar un valor a cada letra seria programar una biblia.

[AnonymousPMP]

El problema aqui en esta solucion es cuando la columna tiene mas de 50 caracteres en la tabla alsmex_tabline.


DATA: lt_excel TYPE TABLE OF alsmex_tabline,






Hola ... yo cargo una tabla interna desde un excel con la funcion:
ALSM_EXCEL_TO_INTERNAL_TABLE

*&---------------------------------------------------------------------*
*& Form upload_excel
*&---------------------------------------------------------------------*
* Cargar archivo excel
*----------------------------------------------------------------------*
* -->PT_DUA : Tabla interna de estructura de archivo excel
* -->P_PATH : Ruta de archivo excel
*----------------------------------------------------------------------*
FORM upload_excel TABLES pt_dua LIKE ti_dua[]
USING p_path.

* Variables globales
DATA: lt_excel TYPE TABLE OF alsmex_tabline,
l_index TYPE i.

DATA: l_cont(2) TYPE c,
l_cadena TYPE string,
l_start_col TYPE i VALUE 1,
l_start_row TYPE i VALUE 5,
l_end_col TYPE i VALUE 6,
l_end_row TYPE i VALUE 65536.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = p_path
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 = lt_excel
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.

IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CHECK NOT lt_excel[] IS INITIAL.

FIELD-SYMBOLS: <fs_excel> LIKE LINE OF lt_excel,
<fs>.

LOOP AT lt_excel ASSIGNING <fs_excel>.
IF <fs_excel>-col = '0001'.
l_cont = strlen( <fs_excel>-value ).
IF l_cont NE '18'.
EXIT.
ENDIF.
ENDIF.
MOVE <fs_excel>-col TO l_index.
ASSIGN COMPONENT l_index OF STRUCTURE pt_dua TO <fs>.
MOVE <fs_excel>-value TO <fs>.
AT END OF row.
APPEND pt_dua.
CLEAR pt_dua.
ENDAT.
ENDLOOP.

ENDFORM. " upload_excel