Importacion a excel con DLL

vForum público de la plataforma de desarrollo Velneo

Moderador: vCoaches

Responder
jobspi
vAdviser
vAdviser
Mensajes: 453
Registrado: 03 Feb 2010, 23:38

Importacion a excel con DLL

Mensaje por jobspi »

Hola tengo la DLL de Roberto para exportar e impotar a Excel, exporto perfectamente pero importar no se si se puede. ¿Y seria igual la importación que con vExcell.?

Saludos
jobspi
vAdviser
vAdviser
Mensajes: 453
Registrado: 03 Feb 2010, 23:38

Re: Importacion a excel con DLL

Mensaje por jobspi »

Hola,
Una imagen de como lo estoy realizando.

Saludos
Adjuntos
Proceso.png
(6.4 KiB) No descargado aún
anyjaim
vMate
vMate
Mensajes: 77
Registrado: 06 Sep 2008, 12:57
Contactar:

Re: Importacion a excel con DLL

Mensaje por anyjaim »

Desconozco la libreria de roberto. De todas formas puedes importarlo sin necesidad de ninguna dll.
Debes realizar una funcion que vaya recorriendo el documento, e identificar cada campo del excel por un caracter de separacion que contenga. Por ejemplo si el archivo excel lo guardas como csv, el caracter de separacion que usa el formato del archivo son las comas. De esta forma vas dando de alta cada campo segun corresponda.
Avatar de Usuario
weekend
vAdviser
vAdviser
Mensajes: 487
Registrado: 03 Nov 2007, 12:24
Ubicación: Madrid, España

Re: Importacion a excel con DLL

Mensaje por weekend »

Buenas

Yo para mis importaciones en Excel lo que hago es transformar el excel a csv mediante vbScript y lo importo como dice anyjaim.
No hay que explicarle al usuario que lo guarde como csv ni nada y aprovechamos el procesode importacion ASCII del almacen, que para usarlo está :D

Uso este codigo ya en velneo

Código: Seleccionar todo

"Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1

    FullName = objArgs(I)
    FileName = Left(objArgs(I), InstrRev(objArgs(I), \c.\c) )

    Set objExcel = CreateObject(\cExcel.application\c)
    set objExcelBook = objExcel.Workbooks.Open(FullName)

    objExcel.application.visible=false
    objExcel.application.displayalerts=false
    objExcel.Cells.Replace \c,\c, \c \c, 2, 1, False

    objExcelBook.SaveAs FileName & \ccsv\c, 23


    objExcel.Application.Quit
    objExcel.Quit   

    Set objExcel = Nothing
    set objExcelBook = Nothing

Next
"
Lo unico la molestia de la ventanita negra, pero como dura solo un instante casi ni se nota
Saludos

El hardware es lo que puedes patear, y el software, lo que puedes maldecir.
weekend40@gmail.com
Responder