Power Builder - Como exportar datos a excel con un formato dado

 
Vista:

Como exportar datos a excel con un formato dado

Publicado por Alicia (23 intervenciones) el 04/05/2005 21:27:11
Hola ...
Con este código he logrago pasar los datos de mi reporte (factura) de Pb a Excel pero necesito que este reporte se alinee a un formato especifico de Excel es decir pasarlo a un archivo de excel que ya tiene establecido un formato para imprimir una factura, me podrían ayudar por favor, les agradezco de antemano.

STRING ls_path, ls_archivo,ls_archivo1
INTEGER li_valor
integer li_FileNum
ls_archivo1="C:\mis reportes\temp1.xls"
li_valor = GetFileSaveName("Guardar como", ls_path, ls_archivo, "xls", "XLS Files (*.xls),*.xls")

IF li_valor = 1 THEN
if this.SaveAs(ls_path, HTMLTable!, TRUE) = -1 THEN
MessageBox("Advertencia", "Imposible exportar los datos. Error de escritura en el archivo!", Exclamation!)
RETURN false
END IF
END IF

OLEObject excel
//CREAR OBJETO
excel = CREATE OLEObject

//CONECTAR AL SERVIDOR Y VERIFICAR ERRORES
if excel.ConnectToObject(ls_archivo1)= 0 THEN
messagebox("Conexión a EXCEL","Exitosa")
excel.application.DisplayAlerts = FALSE
// excel.application.workbooks(1).cells(6,3).value = 8
excel.application.workbooks(1).Parent.Windows(excel.application.workbooks(1).Name).Visible = True
// excel.application.workbooks(1).saveas(ls_path, 39)

excel.application.workbooks(1).CLOSE()



ELSE
messagebox("Conexión a EXCEL","Fallida")


END IF

DESTROY excel
//END IF

return true
Saludos ALICIA
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