Discussion :

[MottetCCSF]

j'ai récupété un code qui pilote Excel via OLE.
Après sélection du fichier excel et création d'une instance Excel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
OpenDialog1.InitialDir := path;
  OpenDialog1.Filter := '*.xls|*.xls';
  IF OpenDialog1.Execute THEN
  BEGIN
    TRY
      vMSExcel := GetActiveOleObject('Excel.Application');
    EXCEPT
      vMSExcel := CreateOleObject('Excel.Application');
    END;
    vMSExcel.Visible := false;          //EMO true
    vXLWorkbooks := vMSExcel.Workbooks;
    NomFichierLong := OpenDialog1.Filename;
    vXLWorkbook := vXLWorkbooks.Open(OpenDialog1.Filename);

le fichier est lu celulle par celulle à partir d'une certaine ligne (premiereLigne =12) par la routine ci-joint :

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
21
22
23
   IndexL := PremiereLigne;
    CelluleTemps := vMSExcel.Cells[IndexL, ColonneTemps];
    TempsZero := StrToFloat(CelluleTemps);
    nbColonnesTotal := 0;
    WHILE CelluleTemps <> '' DO
    BEGIN
      Temps := (StrToFloat(CelluleTemps) - TempsZero) / 60;
      FOR IndexC := ColonneTemps + 1 TO NombreDeColonnes DO
      BEGIN
        Cellule := vMSExcel.Cells[IndexL, IndexC];
        IF Cellule <> '' THEN
        BEGIN
          Valeur := StrToFloat(Cellule);
          LesSeriesSelect1[IndexC].AddXY(Temps, Valeur)
          XRange := Temps;
        END;
      END;
      StatusBar1.SimpleText := 'Excel file is been read -  '+ IntToStr(IndexL)+ ' traitée';;
      inc(nbColonnesTotal);  
      Application.ProcessMessages;
      inc(IndexL);
      CelluleTemps := vMSExcel.Cells[IndexL, ColonneTemps];
    END;

Le problème est que point de vue performance, c'est catastrophique. Il y a au total 94 colonnes et 534 valeurs ce qui représente 50196 cellules à lire.
(en pièce jointe, un exemple de fichier excel)

Je pense que la meilleure méthode est de récupérer le nombre de colonnes de données et le nombre de valeurs par données.(ce code est fait).

Ensuite, j'aimerai lire toutes les celulles d'un seul coup mais je ne sais pas comment faire? à moins que quelqu'un est une meilleure idée

Merci pour votre aide

[MottetCCSF]

J'ai légèrement avancé.

Ci-joint le code :

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
21
22
23
24
25
ExcelApplication1.Connect;
ExcelApplication1.ReferenceStyle[xlR1C1];
MonClasseur := ExcelApplication1.Workbooks.Open('l:\classeur1.xls', False, False,
  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0);
 
ExcelApplication1.Visible[0] := true;
MaFeuille := MonClasseur.Worksheets[1] AS _worksheet;
 
cellDebut := 'L'+ IntToStr(PremiereLigne) + 'C' + IntToStr(ColonneTemps);
colFin := nbDataReal +ColonneTemps;
ligneFin := PremiereLigne +nbColonnesTotal;
cellFin := 'L'+ IntToStr(ligneFin-1) + 'C' + IntToStr(colFin);
 
cellDebut := 'D12';
cellFin := 'CT545';
 
Resultat := MaFeuille.Range[cellDebut, cellFin].Value;
FOR comptLig := 1 TO VarArrayHighBound(Resultat, 1) DO
  FOR comptCol := 1 TO VarArrayHighBound(Resultat, 2) DO
  begin
    mesValeurs[comptlig,comptcol] := Resultat[comptlig, comptcol];
    Resultat[comptlig, comptcol] := Resultat[comptlig, comptcol] * 3 + 2;  end;
MaFeuille.Range[cellDebut, cellFin].Value := Resultat;
 ExcelApplication1.disConnect;

J'arrive à lire toutes les cellules si je passe CellDebut = D12 et CellFin = CT545
Si je passe en mode L12C4 à L545C98, Resultat est vide.

Comment indiquer que je veux utiliser le nommage LiCi au lieu de Ai?

merci

[TicTacToe]

Effectivement, chaque accès est relativement long et relativement incompressible quelque soit le type de tâche (récupération ou écriture d'une cellule).

Le plus rapide (selon mon experience) pour récupérer un groupe ou la totalité des valeurs de cellules est de passer par le presse-papier.

1. dans excel (via ole) tu sélectionnes la zone à récupérer
2. dans excel (toujorus via ole), tu copies dans le presse-papier
3. dans delphi tu récupères les données du presse papier (unité clipbrd)
-> les données sont sous forme tabulaires.

Avec cette méthode, récupérer une grille prend à peine plus de temps que de récupérer une cellule...