Discussion :

[Skata]

Bonjour,
J'écris dans un fichier Excel ouvert avec l'instruction .WorkBooks.Open
Après 11 itérations dans une feuille sur une ligne, une erreur apparaît Exception EOLeError avec le message Le variant ne référence pas un objet Automation.
Une personne peut-elle me venir en aide ?
Je développe avec Delphi 5

[tourlourou]

Bonjour,

Un extrait du code incriminé n'aiderait-il peut-être pas à cerner le problème ?

[Mat.M]

Bonjour,
J'écris dans un fichier Excel ouvert avec l'instruction .WorkBooks.Open

ce qui se passe c'est clair votre programme développé avec Delphi adresse un objet Excel qui n'est plus référencé parce que Excel est en train de traiter les données dans son coin.
Donc la solution c'est que le fichier Excel renvoit un code indiquant que des données ont bien été écrites avant de continuer à écrire.
Mais il est conseillé d'utiliser un SGBD plutôt qu'un fichier Excel

[Skata]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
for i:=0 to RowCount-1 do begin
  for j:=1 to ColCount-1 do Bégin
     vCell:= Trim(Cells[j,i]);
     vExcel.Cells.Item[i+7,j]:= vCell;
  end;
end;

Voilà le bout de code en question.
Le parcours est fait d'une grille TStringGrid.
vExcel est déclaré Variant qui ouvre un fichier Excel :
vExcek.WorkBooks.Open.
Rappel : après 11 itération lorsque i=1 et j=2, l'erreur surgie.

[ShaiLeTroll]

+7 ?
Cela comprend le 1-based ?

je te laisse t'inspirer de mon TSLTExcelListViewer pour créer une TStringGrid (je l'ai peut-être aussi)