Power Builder - Funciones de Excel en PB9

 
Vista:

Funciones de Excel en PB9

Publicado por Victor //:-) (116 intervenciones) el 21/07/2005 17:46:35
Hola Listeros:
¿¿¿Alguen conoce alguna pagina web donde consultar todas las funciones para manipular un libro(y sus hojas electronicas) de Excel con Powerbuilder 9.0????

Por ejemplo:

Quiero cambiar la configuracion de la "Hoja 1" del libro "Reporte.xls", dentro de EXCEL seria con:
Archivo>>Configurar_Pagina>>Pagina>>Escala>>Ajustar_a_:[1]paginas_de_ancho_por[]de_alto

Lo anterior es para que la "Vista Preliminar de Impresion" ponga toda la informacion de la "Hoja 1" ajustada a los limites del tamaño "Carta".
1pagina de ancho por X de alto.(X=infinito).

Ya revise este Web, pero no encontre eso.

Agradesco de antemano cualquier ayuda.
atte.
Victor //:-)
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

RE:Ejecutar una macro de Excel desde PB

Publicado por Oscar (1178 intervenciones) el 24/07/2005 17:00:13
No sé si te sirve ejecutar una macro de excel desde PB; pero por si acaso:
Ejemplo:

OLEObject xlapp , xlsub
int li_ret

// Crea el oleobject en la variable xlapp
xlApp = Create OLEObject

// Se conecta a Excel y verifica el código de retorno
li_ret = xlApp.ConnectToNewObject( "Excel.Sheet" )
if li_ret < 0 then
MessageBox("Error Conectandose a Excel !",string(li_ret))
return
end if

// Abre un archivo especifico de Excel
xlApp.Application.Workbooks.Open("c:\ejemplo.xls") //,false,true

// Hace Excel visible
xlApp.Application.Visible = true
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]

// Guarda el archivo abierto
//xlApp.Application.Activeworkbook.Save()

// Guarda el archivo con diferente nombre
//xlApp.Application.Activeworkbook.SaveAs("c:\ejemplo2.xls")

// se desconecta de excel
xlApp.DisConnectObject()
Destroy xlapp

//Ejecutar la macro
ExecRemote('[Run("Macro1")]',"Excel", "c:\ejemplo.XLS")
ExecRemote("[Save()]", "Excel", "C:\ejemplo.XLS")
ExecRemote( '[File.Close()]', "Excel", "C:\ejemplo.XLS" )
//----------------Fin-----------------------------

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