En este grupo En todos

Foro de PowerBuilder



como importar hoja excel a un Dw

ivan
Madrid, España
Escrito por Ivan
el 06/11/2006
Necesito importar una hoja excel a un DW, pero el importfile no permite esta importación, alguien sabe como se podría hacer?
Escrito por José
el 07/11/2006

/*Pueba colocando en un evento exportar */

String ls_filename, ls_path
Long ll_value

Ll_value = GetFileSaveName("Especificar Archivo", ls_path, ls_filename, "XLS", "Archivos Excel (*. XLS),*. XLS")
IF ls_value = 1 THEN     
    dw_nombre. SaveAs ( ls_filename, HTMLTable! ,  TRUE )
END IF

/*Caso contrario solo: dw_nombre. SaveAs()*/

Ivan
Madrid, España
Escrito por Ivan
el 08/11/2006

Muchas gracias José.

El script que me has pasado es para la exportación, que eso ya lo tenía controlado. Te paso el script de importación, por si te sirve de ayuda.

String ls_pathname, ls_filename
long ll_rc
oleobject loo_excel , lo_sheet

IF GetFileOpenName ( "Open File", ls_pathname, ls_filename, "XLS","Excel Files(*. Xls),*. Xls" ) < 1 THEN Return

Loo_excel = CREATE OLEObject
loo_excel. ConnectToNewObject( "excel. Application" )
loo_excel. Visible = false
loo_excel.workbooks.open( ls_pathname )
lo_sheet = loo_Excel.Application.ActiveSheet

//Desprotegemos la hoja, ya que si esta protegida daría error
lo_sheet. Unprotect()
loo_excel.ActiveCell.CurrentRegion. Select()
loo_excel.Selection.Copy()

//Copiamos apartir de la segunda fila, ya que el la primera están las cabeceras
ll_rc = dw_1. ImportClipBoard ( 2 )
ClipBoard('')
loo_excel.ActiveWorkbook.Save()
loo_excel.workbooks.close()
loo_excel. Disconnectobject()
DESTROY loo_excel
Destroy lun_so

Un Saludo.

Escrito por Fdeoro
el 04/01/2007
Viejo probado y funcionando muchas gracias
Jose Luis Medinau
Perú, Perú
Escrito por Jose Luis Medinau
el 22/06/2007
Muchas gracias... Funciona muy bien
Escrito por Denis
el 15/11/2007
Gracias esta bacan funciona
Nelson Murga
Perú, Perú
Escrito por Nelson Murga
el 07/07/2008
Muchas gracias me parece excelete ese codigo


Sergio
Santiago, Chile
Escrito por Sergio
el 05/12/2008

Iván : Fantástico tu aporte. Por lo menos a mi me funcionó a la primera sin problemas.

Muchas gracias.

Escrito por Sergi
el 04/05/2009

Hola, sólo una pregunta por favor...

¿Alguien sabría decirme si a la hora de importa un excel a un dw hay un número máximo de registros y de ser así cuál es ese máximo? Lo digo por que tengo una hoja excel de casi 16000 registros y me da error al importarla.

Gracias, un saludo

Cheguillen
El Salvador, El Salv...
Escrito por Cheguillen
el 18/05/2009
"Muchas gracias José.
El script que me has pasado es para la exportación, que eso ya lo tenía controlado. Te paso el script de importación, por si te sirve de ayuda.
string ls_pathname, ls_filename
long ll_rc
oleobject loo_excel , lo_sheet

IF GetFileOpenName ( "Open File", ls_pathname, ls_filename, "XLS","Excel Files(*. Xls),*. Xls" ) < 1 THEN Return
loo_excel = CREATE OLEObject
loo_excel. ConnectToNewObject( "excel. Application" )
loo_excel. Visible = false
loo_excel.workbooks.open( ls_pathname )
lo_sheet = loo_Excel.Application.ActiveSheet
//Desprotegemos la hoja, ya que si esta protegida daría error
lo_sheet. Unprotect()
loo_excel.ActiveCell.CurrentRegion. Select()
loo_excel.Selection.Copy()
//Copiamos apartir de la segunda fila, ya que el la primera están las cabeceras
ll_rc = dw_1. ImportClipBoard ( 2 )
ClipBoard("")
loo_excel.ActiveWorkbook.Save()
loo_excel.workbooks.close()
loo_excel. Disconnectobject()
DESTROY loo_excel
Destroy lun_so
Un Saludo.
"

por ivan (Noviembre 2006)

Hola me podrias ayudar? A mi no me funciona,
segun me sale a mi esta variable Destroy lun_so no esta declarada. La dejo comentareada y corre el programa pero no me abre el documento de excel que quiero, se ve como que lo lee pero no lo carga, que pùedo hacer?

Felipe Gareca
Santa Cruz, Bolivia
Escrito por Felipe Gareca
el 25/08/2009

Hola, quisiera saber como importar un archivo excel que contiene varias hojas a Power Builders

Felipe Gareca
Santa Cruz, Bolivia
Escrito por Felipe Gareca
el 26/08/2009

Eso de importar de excel a DW es facil, lo dificil es tratar de validar que la hoja que uno quiere importar exista en el archivo de excel.