Calcul du nombre de lignes Excel remplies via Delphi6

Version imprimable

06/01/2008, 17h32
gilardino

Calcul du nombre de lignes Excel remplies via Delphi6

Salut chers développeurs, je viens juste de commencer a développer une interface de manipulation d’une feuille Excel avec Borland Delphi 6, j’ai parcouru un nombre maximum de discussions et de FAC Delphi, mais sans trouver de réponse !! J’espère la trouver chez vous.

Mon problème n’est pas compliqué, je veux savoir le nombre de lignes remplis dans une feuille Excel, les lignes de ma feuille s’arrêteront à la première cellule vide. Les lignes commencent depuis A1. merci de votre lecture.
28/09/2008, 16h04
zemeilleurofgreg
Bonjour,

voici du code que j'ai écris et qui fonctionne à merveille !
Code:

1 2 3 4 5 6 7 i:=1; repeat vCell:=vWorksheet.cells.item[i,1].Value; ..... inc(i); until vCell='';

A connaître avant ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
   procedure machin();
   var 
     //déclaration
     vMSExcel, vXLWorkbooks, vXLWorkbook, vWorksheet: variant;
     aSheetName : AnsiString;
   begin
     //création d'une instance d'Excel
     vMSExcel := CreateOleObject('Excel.Application');
     vMSExcel.Visible := false;
     vMSExcel.DisplayAlerts:=false; //Pour ne pas avoir de message d'alerte
 
     //Ouverture du classeur
     vXLWorkbooks := vMSExcel.Workbooks;
     vXLWorkbook := vXLWorkbooks.Open(tmpFileName);
 
     //Accès à la sheet 1
     aSheetName := vXLWorkbook.WorkSheets[1].Name;
     vWorksheet := vXLWorkbook.WorkSheets[aSheetName];
  end;