Power Builder - saveas y fileformat de excel

   
Vista:

saveas y fileformat de excel

Publicado por amilcar (406 intervenciones) el 08/01/2008 11:21:50
hola foristas, a ver si alguien me tira una mano con esto, ya q hace dias q ando con este tema y no pude resolverlo aun
intento desde power guardar un archivo de excel pero en formato dbf, este es el codigo

////////////////////////////////////////
oleobject xlapp
xlapp = create oleobject

xlapp.connecttonewobject("excel.sheet")
xlapp.application.workbooks.open("C:prueba.xls")
xlapp.application.visible=false
xlsub=xlapp.application.activeworkbook.worksheets[1]
xlapp.application.displayAlerts = False

// esta es la linea del problema,graba el archivo pero no en formato dbf
xlapp.application.activeworkbook.saveas("c:prueba.dbf")
//

xlapp.application.activeworkbook.close()
xlapp.disconnectobject()

/////////////////////////////////////////////////

lei en la web q debe especificarse el formato estableciendo la propiedad fileformat

en visual basic seria algo asi
.SaveAs FileName:="c:prueba.dbf", FileFormat:=xldbf3

pero en power como le indico el valor de esa propiedad?, ya q esa sintaxis no funciona.

he leido q se puede establecer mediante un valor numerico, pero no encuentro cual es el apropiado.
he probando con

xlapp.application.activeworkbook.saveas("c:prueba.dbf",nn) donde nn es un codigo pero
no encuentro el codigo exacto.

desde ya agradezco su disposicion
saludos desde argentina
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

perservera y triunfaras!!!!

Publicado por amilcar (406 intervenciones) el 08/01/2008 21:59:07
al fin lo encontre, muchachos por si a alguien le interesa el famoso codigo para dbf es el 11 !!!!!
va el script corregido

oleobject xlapp
xlapp = create oleobject

xlapp.connecttonewobject("excel.sheet")
xlapp.application.workbooks.open("C:prueba.xls")
xlapp.application.visible=false
xlsub=xlapp.application.activeworkbook.worksheets[1]
xlapp.application.displayAlerts = False

// esta es la linea modificada q soluciona el problema
xlApp.ActiveWorkbook.SaveAs("C:prueba.dbf", 11, false)
//

xlapp.application.activeworkbook.close()
xlapp.disconnectobject()
//////////////////

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar