adapte as suas necessidades... qq duvida mail-me...
Caminho := ExtractFilePath(Application.ExeName)+'pe_graos.xls'; //define o
arquivo
PnlAguarde.Visible:=true;
PrgBrAguarde.Max:=(linhaf-linhai); // as var linhas eu atribiu em outro form
de acordo com uma outra condicao
PrgBrAguarde.Position:=1;
PnlAguarde.Refresh;
try
Excel := CreateOleObject('Excel.application'); //cria o objeto
Excel.WorkBooks.Open(caminho); //abre o arquivo
ws := frmaeracao.cbxProduto.ItemIndex + 1; //define o worksheet
gridlinha := 1;
//pega os valores
for y:=(linhai+1) to (linhaf+1) do //y=linha da tabela
begin
gridcoluna := 1;
for x:=(colunai-1) to (colunaf-1) do //x=coluna da tabela
begin //linha //coluna
aux:=Excel.workbooks[1].sheets[ws].cells[(inttostr(y)),letras[x]];
GrdTabelaPE.Cells[gridcoluna,gridlinha]:=formatfloat('0.00',aux);
//coloca na stringgrid
inc(gridcoluna);
end;
inc(gridlinha);
end;
PrgBrAguarde.Position:=gridlinha;
finally
excel.workbooks.close; //fecha
PnlAguarde.Visible:=false;
end;
Jeferson Adoryan
Tecnico em Informática
Panambi - RS
Tel (55)9137 9119
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
