importacion de excel a DW
Publicado por javier (1 intervención) el 13/10/2005 17:07:30
Hola amigos necesito una ayuda de ud's quisiera saber la forma de importar data de un archivo en excel a un Dw, quisiera saber la forma de como validar el archivo q selecciono es el archivo correcto, yo tengo el siguiente codigo
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 )
loo_excel.ActiveCell.CurrentRegion.Select()
loo_excel.Selection.Copy()
ll_rc = dw_list.ImportClipBoard ( 2 )
ClipBoard('')
loo_excel.workbooks.close()
loo_excel.disconnectobject()
DESTROY loo_excel
Lo q pasa es q si me exporta pero tiene algunos errores cuando termina de importar me sale un error de excel q me dice q se cargo información en el porta papeles y me pregunta si deseo guardarlo o no, como prodria hacer para q no me salga ese error, ademas quiero validar al momento q selecciono el archivo a importar quiero q me valide q el archivo seleccionado es el correcto.
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 )
loo_excel.ActiveCell.CurrentRegion.Select()
loo_excel.Selection.Copy()
ll_rc = dw_list.ImportClipBoard ( 2 )
ClipBoard('')
loo_excel.workbooks.close()
loo_excel.disconnectobject()
DESTROY loo_excel
Lo q pasa es q si me exporta pero tiene algunos errores cuando termina de importar me sale un error de excel q me dice q se cargo información en el porta papeles y me pregunta si deseo guardarlo o no, como prodria hacer para q no me salga ese error, ademas quiero validar al momento q selecciono el archivo a importar quiero q me valide q el archivo seleccionado es el correcto.
Valora esta pregunta


0