Boucle while not eof avec un fichier excel

Question

Voil&#224; mon bout de code, enfaite je lis un fichier XLS, et mais pour le moment j'ai cr&#233;er ma boucle avec for qui va jusqu'au derniers info du fichier excel, mais c'est un peu mal fait, alors je voudrais utilis&#233; une boucle While not Oef do mais &#231;a me fait une erreur... I/0 erreur 6... Alors si qqun pourrait me donner la syntaxe exacte ou m'aider, merci d'avance. Je veux simplement que ma boucle s'arr&#234;te au derniers donn&#233;e de mon fichier excel

Var NbrartWys : Integer;

 
NbrartWys:=1001;

for i:=1 to NbrartWys do
 begin
     Progressbar1.Min:=0;
     Progressbar1.Max:=NbrartWys;
     Progressbar1.Position:=i;
     stringgrid1.Cells[0,i]:= XLS.cells[i+1,Codearticlefour].value;            
     stringgrid1.Cells[1,i]:= XLS.cells[i+1,designation].value;             
     stringgrid1.Cells[2,i]:= XLS.cells[i+1,prixachat].value;  
end;

mon essai avec while :

While not Eof do
 begin
  i:=i+1;
  Progressbar1.Min:=0;
  Progressbar1.Max:=NbrartWys;
  Progressbar1.Position:=i;
  stringgrid1.Cells[0,i]:= XLS.cells[i+1,Codearticlefour].value;            
  stringgrid1.Cells[1,i]:= XLS.cells[i+1,designation].value;            
  stringgrid1.Cells[2,i]:= XLS.cells[i+1,prixachat].value;            
 end;

jmp77 · Answer

Hello,



Fais tous simplement comme cela :

While not(Xls.Cells[I+2,CodeArticleFour].Formula = '') do

begin
//ton code

end;


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

Boucle while not eof avec un fichier excel

1 réponse

Votre réponse

Discussions similaires