ROTINA PARA ABRIR UM ARQUIVO EM ODS E SALVAR COMO

MARCOSSFERREIRA 30/06/2011 09:50:03
#378105

Bom dia pessoal preciso abrir um arquivo em ods e salva-lo como ods em outra pasta fiz a rotina abaixo para pdf funcionou perfeito mas nao sei os argumentos para ODS.

Alguem pode ajudar-me.
Obrigado

[ô] Inicio da Rotina de Exportcao para Ods e pdf
Dim oSM, oDesk, oDoc As Object [ô]OOo objects
Dim OpenParam(1) As Object [ô]Parameters to open the doc
Dim SaveParam(1) As Object [ô]Parameters to save the doc
Dim Diretorio As String
Dim Arquivopdf As Object


oSM = CreateObject([Ô]com.sun.star.ServiceManager[Ô])
oDesk = oSM.createInstance([Ô]com.sun.star.frame.Desktop[Ô])
OpenParam(0) = MakePropertyValue([Ô]Hidden[Ô], True) [ô]Open the file hidden
OpenParam(1) = MakePropertyValue([Ô]ReadOnly[Ô], True)

OpenParam(0) = MakePropertyValue([Ô]Hidden[Ô], True) [ô]Open the file hidden

oDoc = oDesk.loadComponentFromURL([Ô]file:///C:/Program Files/SCCV-Dados/LV-Modelo.ods[Ô], [Ô]_blank[Ô], 0, OpenParam)

SaveParam(0) = MakePropertyValue([Ô]FilterName[Ô], [Ô]writer_pdf_Export[Ô])
SaveParam(0) = MakePropertyValue([Ô]FilterName[Ô], [Ô]calc_pdf_Export[Ô])

SaveParam(1) = MakePropertyValue([Ô]FilterOptions[Ô], [Ô]9,,0, 1, 10[Ô])

Diretorio = [Ô]file:///D:/LVS/[Ô]
Arquivopdf = frmCabecalho.TxtNumCertificado.Text

Arquivopdf = Diretorio + Arquivopdf + [Ô].pdf[Ô]


Call oDoc.storeToURL(Arquivopdf, SaveParam)



oDesk = Nothing
oSM = Nothing


[ô] Fim da Rotina de Exportcao para Ods e pdf