Discussion :

[gilardino]

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.

[zemeilleurofgreg]

Bonjour,

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

Code :

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

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

[zemeilleurofgreg]

A connaître avant ...

Code :

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

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;