Des soucis avec Excel sous DelphiRésolu

Question

Bonjour &#224; tous :)



Je dois r&#233;aliser une application en Delphi pour une entreprise et pour
cela j'ai besoin de charger une feuille Excel servant en quelque sorte
de "base de donn&#233;es".

J'ai lu avec attention (enfin essay&#233; ) les divers messages d&#233;j&#224; post&#233;s ici, mais je n'ai pas trouv&#233; la solution &#224; mon probl&#232;me actuel 



Je souhaite connaitre &#224; l'avance le nombre de lignes de la premi&#232;re
colonne de la feuille Excel pour adapter la taille d'un StringGrid au
lancement de l'application.

Pour &#231;a je cherche donc &#224; s&#233;lectionner la premier colonne avec FeuilleTest.Range['A1',EmptyParam].EntireRow;

Ensuite ... bin c'est l&#224; tout le probl&#232;me, je
n'arrive pas &#224; d&#233;terminer le nombre de cellules de cette colonne qui
sont occup&#233;es par du texte sans avoir &#224; faire un parcours entier avec
une boucle et incr&#233;mentation d'une variable. Je trouve &#231;a assez
&#233;tonnant et il doit sans aucun doute me manquer LA propri&#233;t&#233; qui va
bien 



Merci d'avance 



Tykko

moldov · Accepted Answer

Salut,



J'ai oublier de te filer les d&#233;clarations des variables



OleApplication,  OleWorkBook, sheet : Variant;

iCol, iRow : Integer;



Bonne Prog

WhiteHippo · Answer

Peut &#234;tre en recherchant la premi&#232;re cellule vide avec une m&#233;thode Find.

En VBA cela doit ressembler &#224; quelquechose comme &#231;a :

  Dim ZoneRecherche, PremiereCelluleVide

   Set ZoneRecherche = Sheets("FeuilleTest").Range("A1:A1")
   Set PremiereCelluleVide = ZoneRecherche .Find("", ZoneRecherche.Cells(1, 1), xlValues, xlPart)

( y'a plu qu'&#224; l'adapter &#224; Delphi )

Cordialement.

Tykko · Answer

Warfeuh ... merci de la r&#233;ponse, mais je veux justement &#233;viter (si
possible) de faire un parcours complet de la colonne jusqu'&#224; trouver le
premier &#233;l&#233;ment vide.



Pis traduire du VBA en Delphi euh ...

moldov · Answer

Salut Tykko,



Je pense que c'est une bonne solution de rechercher la derni&#232;re cellule vide.

Si tu veux pas utiliser cette solution car tu pense que c'est une
contrainte de temps (cela d&#233;pend de la longueur de ta colonne mais moi
sinon je te donne le code delphi pour faire cela.



  OleApplication := CreateOleObject('Excel.Application'); // cr&#233;ation du lien OLE

  OleWorkBook:=OleApplication.Workbooks.open(NomDeTonfichierExcel); // pour cr&#233;er un  nouveau document

  Sheet := OleWorkBook.Sheets[NomDeTaFeuille];



  while string(Sheet.Cells[iCol,iRow].value) <> '' do

  begin

    Inc(iRow);

  end;

  // iRow Contient de nombre de cellule pleine

  OleApplication.Quit;

  OleApplication:=Unassigned;



Voila, regarde et teste



Bonne Prog

Tykko · Answer

Merci &#224; toi moldov 



En fait, en attendant vos r&#233;ponses, je me suis pench&#233; sur un code d'un
de mes coll&#232;gues qui avait fait pilot&#233; Word depuis Delphi, et ... je
suis arriv&#233; au m&#234;me code que ce que tu viens de donner 

(&#224; la diff&#233;rence pr&#232;s que j'utilise VarToStr() au lieu de string() )



Encore merci

WhiteHippo · Answer

Avec la m&#233;thode find cit&#233; plus haut, c'est Excel qui g&#232;rait la boucle en interne. Moi je voyais le code comme suit :

  OleApplication :=  CreateOleObject('Excel.Application'); // cr&#233;ation du lien OLE
  OleWorkBook:=OleApplication.Workbooks.open(NomDeTonfichierExcel);
  Sheet := OleWorkBook.Sheets[NomDeTaFeuille];

   MaSelection := Sheet. range("A:A").Find("", range("A:A").Cells(1, 1), xlValues, xlPart)
  iRow : = MaSelection.Cells(1,1).row

  OleApplication.Quit;
  OleApplication:=Unassigned;

N.B.  N'ayant pas d'excel sous la main, impossible de savoir si cela fonctionne.

Cordialement.

Tykko · Answer

ok, merci &#224; toi aussi, je vais regarder ta m&#233;thode et je vous dirais quelle est la plus rapide 



Une petite remarque sans grand rapport avec ma question : quelle que
soit la taille de la feuille (1 ligne ou 5000 lignes), le temps de
chargement en m&#233;moire sous delphi est identique ... marrant

Des soucis avec Excel sous Delphi

7 réponses

Votre réponse

Discussions similaires