Franciel

Da uma olhada nesse site que você via encontrar o q procura: http://www.delphi.eti.br/dicas.php?p=71

A StringList possui registros no formato String, então não da pra usar a sugestao dada. Eu pego o primeiro registro da Stringlist com o comando stringlist[0], o qual o valor é 4742 no fomarto de string e tento converte-lo em integer com a funcao StrToInt() e me da o erro mencionado acima.

Eu tenho uma StringList com registros numericos e faco a conversao desses usando a funcao StrToInt(stringlist[0]) e o registro em questao é uma string '4742', mas ele me retorna a mensagem de erro: "Delphi exception EConvertError " que não pode converter. alguém sabe o q posso fazer???

Ae gente como posso saber se tem alguém usando certo arquivo?? Sera q da pra saber qual maquina se esse tiver sendo usado em uma rede? Vlws

Ae gente consegui resolver.... vlw... era problema de versao.

Ae programador, to usando esse codigo: LCid := GetUserDefaultLCID; Try xlApp.Connect; xlApp.Visible[LCid] := true; xlApp.Caption := Title; // adicionando uma planilha xlApp.Workbooks.Add(EmptyParam, LCid); Arquivo := xlApp.Workbooks.Item[1]; // Recebe a planilha criada Planilha := Arquivo.Worksheets.Get_Item(1) as _WorkSheet; Planilha.Name := Title; Planilha.Columns.Font.Size := 10; Planilha.Columns.Font.Name := 'Arial'; Planilha.Columns.HorizontalAlignment := xlCenter; with xlApp do begin // Criando as colunas xlApp.Range['A1','G1'].Value := VarArrayOf(['CODIGO', 'REF. FABR.','DESCRICAO','UNIDADE','ESTOQUE','CUSTO','TOTAL']); // Formatando a Planilha Linha with Range['A1','G1']do begin HorizontalAlignment := xlcenter; VerticalAlignment := xlBottom; Wraptext := false; Orientation := 0; ShrinkTofit := false; MergeCells := false; Font.Bold := true; Font.Size := 10; end; while not Eof do Begin if (rdgTipo.ItemIndex = 0) then begin Range['A'+IntToStr(Linha),'G'+IntToStr(Linha)].Value := VarArrayOf([FieldByName('CodPro').AsString, FieldByName('CodProFabr').AsString,FieldByName('DescDescPro').AsString, FieldByName('CodUn').AsString, MascaraVlr ('######0.00', FieldByName ('Estoque').AsFloat), MascaraVlr ('######0.00', FieldByName ('Precus').AsFloat), MascaraVlr ('######0.00', FieldByName ('Estoque').AsFloat * FieldByName ('Precus').AsFloat)]); Total := Total + (FieldByName ('Estoque').AsFloat * FieldByName ('Precus').AsFloat); end else begin Range['A'+IntToStr(Linha), 'G'+IntToStr(Linha)].Value := VarArrayOf([FieldByName('CodPro').AsString, FieldByName('CodProFabr').AsString,FieldByName('DescDescPro').AsString, FieldByName('CodUn').AsString, FieldByName ('Estoque').AsString, FieldByName('PreVenda').AsString, FloatToStr(FieldByName ('Estoque').AsFloat * FieldByName ('PreVenda').AsFloat)]); Total := Total + (FieldByName ('Estoque').AsFloat * FieldByName ('PreVenda').AsFloat); end; TotalEst := TotalEst + FieldByName ('Estoque').AsFloat; Inc(Linha); Next; end; strLinha := IntToStr(Linha-1); Range['E3','G'+strLinha].NumberFormat := '#####0.00'; Linha := Linha + 2; Planilha.Cells.Item[Linha, 3] := 'TOTAL GERAL'; Range['A1','G'+IntToStr(Linha)].Columns.AutoFit; // Essas Linha são referente a fomula q deveria ser inserida no excel Texto := '=SOMA(E3:E'+strLinha+')'; Range['E'+IntToStr(Linha),'E'+IntToStr(Linha)].Formula := Texto; Texto := '=SOMA(G3:G'+strLinha+')'; Range['G'+IntToStr(Linha),'G'+IntToStr(Linha)].Value := Texto; Range['A2','G'+IntToStr(Linha)].AutoFormat(xlRangeAutoFormatClassic1,true, true,true,true,true,true); Vlws!!!!

Olha... ta saindo =SOMA(E3:E138) que é o intervalo q eu quero, mas aparece o #NOME? .. ai quando entro na celula com F2 e dou ENTER ela faz a soma normal.