ActiveDelphi

[reinaldoinfo]

Olá... Estou exportando dados para uma planilha do excel, até aqui tudo bem... Mas estou tendo problemas ao inserir uma formula na planilha, pois essa formula muda de acordo com a quantidade de planilhas que crio na pasta de trabalho. A função COUNT.SE('Plan1'!M1:M10;"*"), o delphi retorna um erro 800a03ec ao inserir a formula na planilha...

HandleXLS := CreateOleObject('Excel.Application');
HandleXLS.WorkBooks.Open(Arquivo);
HandleXLS.WorkBooks[1].Sheets[1].Cells[1, 1] := 'AA';
HandleXLS.WorkBooks[1].Sheets[1].Cells[1, 2] := 'AB';
HandleXLS.WorkBooks[1].Sheets[1].Cells[1, 3] := 'BC';
ai na planilha 2

HandleXLS.WorkBooks[1].Sheets[2].Cells[1, 1] := '=COUNT.SE(Plan1!A1:A10;"B")'
//AQUI QUE GERA O ERRO DE OLE...

já tentei tb...

sheet:=WORKBOOKS[1].SHEETS[1];
sheet.Range['m2'].Formula := '=COUNT.SE(Plan1!A1:A10;"B")'
//e o erro ocorre novamente
//me disseram que tinha que colocar o nome das fórmulas em inglês...
//coloquei e nada...

Estou usando o EXCEL 2007 e o DELPHI 2007.
engraçado que consigo inserir outras formulas, mas a CONT.SE(), COUNTIF(), ou a SUMIF(), Não dão certo...

o delphi não insere a função count.se e gera um erro, tentei inserir COUNTIF... mas não funcionou tb...

Quem pode me ajudar?

[Brasaca]

[sindicley]

bom este codigo de erro esta relacionado a quantidade de registros
Depedendo da versão do execel você precisa controlar a quantidade de registros que estao sendo adicionados, quando chegar a 65mil
voce precisa cria uma nova Sheet o continuar adicionando..

[reinaldoinfo]

Brasaca,

Errei no código apenas ao escrever aqui no forum, aqui digitei corretamente o nome da função CONT.SE(), e o erro persiste do mesmo jeito...

[jdorea]

Estive pesquisando sobre o tema, e descobri que a fómula tem que está no idioma nativo do aplicativo, ou, seja INGLÊS, segundo o autor do artigo: Cristiano Stedile Magnabosco, link: http://www.planetadelphi.com.br/dica/5329/exportando-para-o-excel.

Espero ter ajudado, como fui, boa sorte.

[t3r3son]

Imagine o seguinte:
id := dmBusca.cdsBuscaGuiasConveniadoID_SEGURADO.AsInteger;
while not dmBusca.cdsBuscaGuiasConveniado.Eof do
begin
Inc(i);
Sheet.Cells[i,1] := dmBusca.cdsBuscaGuiasConveniadoNR_TITULO.AsString; //Prontuario
Sheet.Cells[i,2] := dmBusca.cdsBuscaGuiasConveniadoNOME_CLIENTE.AsString; //Nome
Sheet.Cells[i,3] := dmBusca.cdsBuscaGuiasConveniadoID_GUIA.AsInteger; //Nr Guia
// Formata o Numero para se tornar MOEDA
Sheet.Cells[i,4].NumberFormat := 'R$ #.##0,00_);(R$ #.##0,00)';
Sheet.Cells[i,4] := dmBusca.cdsBuscaGuiasConveniadoVALOR_TOTAL.AsFloat; //Valor Guia
Sheet.Cells[i,5] := dmBusca.cdsBuscaGuiasConveniadoTOTAL_DESCONTO.AsFloat; //Valor Desconto
dmBusca.cdsBuscaGuiasConveniado.Next;
if id <> dmBusca.cdsBuscaGuiasConveniadoID_SEGURADO.AsInteger then
begin
Inc(i);
Sheet.Cells[i,1] := 'Total R$';
// Na linha abaixo inclui uma soma e converti para Moeda atravez do NUMBERFORMAT
Sheet.Cells[i,4].NumberFormat := 'R$ #.##0,00_);(R$ #.##0,00)';
Sheet.Cells[i,4].formula := '=SUM(D210)';
//Nesse ponto preciso saber com inserir uma formula de forma dinamica, ou seja, a medida que muda o ID tenho que efetuar o calculo do ID anterior.

end;