Power Builder - AUTOMATIZACION OLE CON PB 9.0 Y CALC LIBREOFFICE

 
Vista:

AUTOMATIZACION OLE CON PB 9.0 Y CALC LIBREOFFICE

Publicado por Roberto Mejia (1 intervención) el 18/10/2013 22:43:43
En nuestra institución antes teníamos Microsoft Office y ahora tenemos LibreOffice, por lo que searía saber como hacer la automatización OLE de abrir archivos en LibreOffice, trabajo con Power Builder 9.0 y las consulta es orientada para saber los equivalentes de los siguientes comandos:

1- COMO CONECTARME A CALC AL IGUAL QUE LO HACIA CON EXCEL
xlApp = Create OLEObject
li_ret = xlApp.ConnectToNewObject( "Excel.Sheet" )
IF li_ret < 0 THEN
MessageBox("Error Conectandose a Calc !",string(li_ret))
return 0
END IF

2 - COMO ABRIR LOS ARCHIVOS YA CUANDO SE CONECTA A CALC
xlApp.Application.Workbooks.Open("C:\DEPARTAMENTAL_C_REG.XLS")

3 - COMO ELIMINAR LOS MENSAJES DE ALERTA
xlApp.Application.DisplayAlerts = False
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
4 - COMO COPIAR LAS FILAS Y LAS COLUMNAS DE LA DATAWINDOW A LA HOJA ELECTRONICA
FOR ll_c = 1 to ll_numcols - 2
FOR ll_r = 1 TO ll_numrows
xlsub.cells[ll_r + 6,2] = ll_r
xlsub.cells[ll_r + 6,ll_c + 2] = lds_data.object.data[ll_r,ll_c]
NEXT
hpb_1.StepIt()
NEXT
5 - COMO GUARDAr EL ARCHIVO CON NOMBRE DIFERENTE
xlApp.Application.Activeworkbook.SaveAs(ls_archivo)

6 - COMO DESCONECTAR EL OBJETO Y DESTRUIRLO
xlApp.Application.windowstate = 3 // 1 : Normal, 2 : Minimize, 3 : Maximize
7 - COMO HACER LA HOJA VISIBLE
xlApp.Application.Visible = True
xlApp.DisConnectObject()
8 - Destroy xlapp
COMO CORRER UNA MACRO
ExecRemote('[Run("auto_open")]',"Excel", ls_archivo)

Gracias de antemano
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