ROTINA PARA ABRIR UM ARQUIVO EM ODS E SALVAR COMO

 Tópico anterior Próximo tópico Novo tópico

ROTINA PARA ABRIR UM ARQUIVO EM ODS E SALVAR COMO

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#378105 - 30/06/2011 09:50:03

MARCOSSFERREIRA
SAO PAULO
Cadast. em:Abril/2011


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


Marcos Ferreira - MFSystems

#378108 - 30/06/2011 10:00:26

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Se Ods para Ods mesmo, o mesmo arquivo, no? Se for o caso, e s fazer a cpia usando o FSO mesmo, no precisa fazer nenhum tipo de converso...

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#378112 - 30/06/2011 10:07:25

MARCOSSFERREIRA
SAO PAULO
Cadast. em:Abril/2011


Sim o mesmo arquivo. Qual o meu procedimento?
Eu abro um arquivo em Ods gravo meus dados nele e salvo. Este arquivo eu preciso copia-lo com a mesma extensao para outra pasta e carregar em seu nome o que for digitado em um dos campos do meu formulario.

Exemplo: Formulario Cabelho (frmCabecalho), campo oramento(txtnumeroorc.text) , digito Orc.4020.
Clico no botao salvar este grava no campo da planilha o texto 4020 da planilha modelo.ods dae preciso agora fazer o seguinte.
Gravar uma nova planilha deixando a modelo la e no lugar no nome modelo aparecer 4020.ods  em uma outra pasta.

Exatamente como fiz com o pdf so que nao preciso converter.




Marcos Ferreira - MFSystems

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MARCOSSFERREIRA em 01/07/2011 10:49:18