o Josir Cardoso (colega da lista) mandou este trecho de codigo para trabalhar com o BR-Office...Obs. para mim funcionou perfeitamente, fazendo algum ou outro ajuste...Porem apenas nao consegui a partir da aplicação delphi , gravar e fechar o br-office...Segue o código... Segue um código de como vc deve enviar os dados para a planilha:
var Document, Planilha: Variant; function TForm1.OpenSpreadSheet( sDocument: string = '' ): Variant; var ServiceManager, StarDesktop: Variant; Params: variant; begin if sDocument = '' then // default document is empty one sDocument := 'private:factory/scalc' else begin if not FileExists( sDocument ) then begin ShowMessage(sDocument+' not found'); Abort; end; sDocument := StrTran( sDocument, '\', '/' ); sDocument := ' <file:///> file:///' + sDocument; end; ServiceManager := CreateOleObject('com.sun.star.ServiceManager'); StarDesktop := ServiceManager.createInstance('com.sun.star.frame.Desktop'); CoreReflection := ServiceManager.createInstance('com.sun.star.reflection.CoreReflection'); Params := VarArrayCreate( [ 0, -1 ], varVariant ); Document := StarDesktop.LoadComponentFromURL( sDocument, '_blank', 0, Params); end; begin { Abre a planilha } OpenSpreadSheet( ExtractFilePath(Application.ExeName) + ConsumoAP.stc'); { Se posiciona no primeiro Sheet } Planilha := Document.Sheets.GetByIndex( 0 ); { Grava valores } Planilha.getCellByPosition( 1, 0).String := 'Teste'; Planilha.getCellByPosition( 2, 0).Value := 55; end; Boa Sorte, -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de BandaLemuel Enviada em: quarta-feira, 25 de abril de 2007 13:01 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Delphi + Oppen-Office Lista.. Preciso de Uma ajuda.... alguem já consegiu integrar Delphi com o Oppen-Office... to precisando gerar uma planilha... com o Excel.. tem um esquema do Ole.. até ai vai.. mas como a Empresa esta mudando para o Oppen-Office.. vcs podem me ajudar ???? vlw... Wesley [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]