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]
