Manipuler un classeur Excel

Version imprimable

08/04/2022, 17h43
youce90

Manipuler un classeur Excel

Bonjour !

J'ai lu dans la FAQ que pour pouvoir manipuler un fichier Excel, il faut d'abord ajouter les composants:
TExcelApplication, TExcelWorkbook, et TExcelSheet que je ne trouve pas dans ma liste des composants;
Sachant que j'utilise Delphi 10.4.

J'aimerai savoir comment les ajouter

Merci !
08/04/2022, 17h53
pprem

Bonjour

Si tu veux passer par les composants Office, il faut effectivement activer le paquet que tu veux prendre (XP ou2000).

Ca devrait se trouver dans la liste des paquets sur l’option «* Composants / installer les paquets*» de l’IDE.

Par contre ils ne manipulent pas les fichiers : ils passent par Office pour le faire, donc Office doit être installé sur le poste de travail.
08/04/2022, 18h11
youce90

Merci pour votre réponse rapide et utile :)
08/04/2022, 18h27
ShaiLeTroll

Ces composants sont la version Early Binding des interfaces OLE d'Excel
Via des OLEVariant, il est possible d'utiliser Excel en Late Binding, comme le ferait un VBS, cela fonctionne très bien mais demande une bonne lecture de la documentation MSDN

Voici une utilisation basique du OLE d'Excel Late Binding: TSLTExcelDataSetExporter

Merci pour votre réponse @ShailLeTroll,

En fait, c'est la 1ére fois que j'essaie de faire des modifications sur un classeur Excel via Delphi,
après quelque recherches sur internet, j'arrive à ouvrir un classeur,
se positionner sur une feuille puis écrire dans une cellule.

Mais mon objectif c'est de parcourir un classeur contenant plusieurs feuilles, chaque feuille contient un tableau,
(dont la structure est la même pour toutes les feuilles, mais le nombre de lignes est variable)
pour pouvoir créer un nouveau tableau rempli automatiquement à partir du premier,
et situé juste après.

Pour ce qui est Boucles, je m'en occuperai plus tard,
Tout d'abord, j'essaie de repérer la fin du 1er tableau:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 var L : integer; begin ExcelApplication1.Connect; ExcelApplication1.Visible[1] := true; Opendlg.Execute(); ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open (Opendlg.FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)); ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[3] as _WorkSheet); L := 11; // Début du tableau while ExcelWorksheet1.Cells.Item[L,1].value.asstring <> '' do L := L+1; // Trouver la fin du tableau showmessage(inttostr(L));
Mais j'obtiens le message d'erreur: "Opération de variant incorrecte"

Des idées ?

salut
essais ça chez moi ça marche

Code:

1
2
3
4
5
6
7
8
 
L := 11; // Début du tableau
while OleApplication1.Range['A'+IntToStr(L)].value <> '' //changer la lettre suivant la col
do L := L+1; // Trouver la fin du tableau
if L = 11 then
    ShowMessage('Tableau vide')
  else
    ShowMessage(IntToStr(L - 1));

09/04/2022, 10h30
PetitBoutDeCode
Bonjour a tous,

Je ne sais pas si cette fonction marche toujours depuis (je l'utilise sur Delphi 6 :oops:)

Mais avec ce code ça donnerait quelque chose comme
Code:

1 2 L := mafeuille.UsedRange.Rows.Count;
09/04/2022, 13h28
SergioMaster

Bonjour,
Juste une demande, vous parlez de classeurs XLS ou XLSX ? Je pense que cela n'a aucune importance quand on utilise l'OLE mais j'aimerai en avoir confirmation.

N'ayant pas Excel sur mon poste et de plus codant de plus en plus FMX j'ai utilisé les Cdata.drivers.Excel (chers, mais avec succès) pour me dépatouiller de ce problème.
Pour XLS/VCL il y a des composants tiers autres, moins chers voire gratuits ne nécessitant pas Excel

@shailetroll

Citation:

Ces composants sont la version Early Binding des interfaces OLE d'Excel
Via des OLEVariant, il est possible d'utiliser Excel en Late Binding

mais nécessite Excel sur le poste non ?
09/04/2022, 13h46
papyvore

En ce qui me concerne XLS ou XLSX, les 2 sous OLE, on peut écrire des formules des tableaux insérer des images ...
10/04/2022, 15h41
youce90
Citation:
Envoyé par papyvore

Code:

1 2 3 L := 11; // Début du tableau while OleApplication1.Range['A'+IntToStr(L)].value <> '' //changer la lettre suivant la col
Je te suis pas trop là, car moi je travaille sur TExcelApplication alors que tu m'as écrit OleApplication,
j'ai essyé le suivant:
Code:

1 2 while Excelapplication1.Range['A'+inttostr(L),'A'+inttostr(L)].value <> '' do L := L+1;
j'ai rajouté le 2ème paramètre de Range car le compilateur le demande (alors que chez toi ça marche sans lui),
et au final ça bloque juste après ".Value":
E2029 '[' attendu(e) mais '<>' trouvé(e)
10/04/2022, 16h09
youce90

Citation:

Envoyé par SergioMaster

Bonjour,
Juste une demande, vous parlez de classeurs XLS ou XLSX ?

Xlsx (Excel 2019)
10/04/2022, 20h21
wheel

Citation:

Mais j'obtiens le message d'erreur: "Opération de variant incorrecte"

Ca vient de "AsString" méthode qui n'existe pas et vous avez ajoutez dans votre code Value est un OleVariant vous pouvez tester directement .
10/04/2022, 22h33
youce90

Citation:

Envoyé par wheel

Ca vient de "AsString" méthode qui n'existe pas et vous avez ajoutez dans votre code Value est un OleVariant pour pouvez testez directement .

En fait je ne l'ai rajouté qu'après avoir testé directement, mais en fin de compte, ça n'a rien changé, car le compilateur s'attend à des crochets [ ] après le le mot clé "value" quelle que soit la suite du code.

Citation:

En fait je ne l'ai rajouté qu'après avoir testé directement, mais en fin de compte, ça n'a rien changé, car le compilateur s'attend à des crochets [ ] après le le mot clé "value" quelle que soit la suite du code.

Cette erreur est déclenchée lorsque on appelle un membre qui n'existe pas dans l'objet IDispatch ou l'objet lui même est vide.

Citation:

Je te suis pas trop là, car moi je travaille sur TExcelApplication alors que tu m'as écrit OleApplication

Il n'est pas nécessaire de passer par les composants Delphi si vous avez Excel installé sur votre poste que vous pouvez aussi piloter facilement ...

Ajouter ComObj dans les uses et tester
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 var Excel,wb,Sheet:OleVariant; L:integer; begin Excel:= CreateOleObject('Excel.Application'); Excel.Visible := False; Excel.DisplayAlerts := False; wb := Excel.Workbooks.Open('C:\tst\signal.xlsx'); try Sheet:=wb.Sheets[1]; L := 11; while not VarIsEmpty(Sheet.Range['A'+IntToStr(L)].value) do L := L+1; showmessage(inttostr(L)); finally Excel.Quit; end; end;
Code:

while not VarIsEmpty(Sheet.Range['A'+IntToStr(L)].value) do

On peut remplacé ce code par le suivant :

Code:

while not VarIsEmpty(Sheet.Cells[1].Item[L].value) do

Dans l'Excel il y a une opération native pour trouver la dernière cellule vide sans passer pas une boucle

Code:

L:= Sheet.Range['A11'].End[xlDown].Row;//xlDown = -4121

11/04/2022, 11h12
papyvore
Citation:
Envoyé par youce90

Je te suis pas trop là, car moi je travaille sur TExcelApplication alors que tu m'as écrit OleApplication,
j'ai essyé le suivant:

Code:

1 2 while Excelapplication1.Range['A'+inttostr(L),'A'+inttostr(L)].value <> '' do L := L+1;

j'ai rajouté le 2ème paramètre de Range car le compilateur le demande (alors que chez toi ça marche sans lui),
et au final ça bloque juste après ".Value":
E2029 '[' attendu(e) mais '<>' trouvé(e)
si vraiment tu utilise TExcelApplication vas voir http://delphiprogrammingdiary.blogsp...in-delphi.html

Citation:
Envoyé par wheel
Il n'est pas nécessaire de passer par les composants Delphi si vous avez Excel installé sur votre poste que vous pouvez aussi piloter facilement ...

Ajouter ComObj dans les uses et tester
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 var Excel,wb,Sheet:OleVariant; L:integer; begin Excel:= CreateOleObject('Excel.Application'); Excel.Visible := False; Excel.DisplayAlerts := False; wb := Excel.Workbooks.Open('C:\tst\signal.xlsx'); try Sheet:=wb.Sheets[1]; L := 11; while not VarIsEmpty(Sheet.Range['A'+IntToStr(L)].value) do L := L+1; showmessage(inttostr(L)); finally Excel.Quit; end; end;
D'accord, je comprends mieux maintenant...
ça fonctionne parfaitement !

Pardonnez ma réponse tardive, j'étais occupé à faire autre chose;

là j'aimerai éffectuer des copier-coller mais je n'arrive pas.
je me suis inspiré de l'article: https://docs.microsoft.com/en-us/off...e.pastespecial

pour ce qui est Copie ça marche,
mais pour coller j'obtiens les messages d'erreurs suivants:
Code:

1 2 wb.Sheets[5].Range['A'+inttostr(L),'i'+inttostr(L)].Paste; //Méthode 'Paste' non supportée par l'objet Automation wb.Sheets[5].Range['A'+inttostr(L),'i'+inttostr(L)].PasteSpecial(paste := 'xlPasteAllUsingSourceTheme'); //La méthode PasteSpecial de Range a échoué
Merci d'avance !

Citation:
Envoyé par youce90
Pardonnez ma réponse tardive, j'étais occupé à faire autre chose;

là j'aimerai éffectuer des copier-coller mais je n'arrive pas.
je me suis inspiré de l'article: https://docs.microsoft.com/en-us/off...e.pastespecial

pour ce qui est Copie ça marche,
mais pour coller j'obtiens les messages d'erreurs suivants:
Code:

1 2 wb.Sheets[5].Range['A'+inttostr(L),'i'+inttostr(L)].Paste; //Méthode 'Paste' non supportée par l'objet Automation wb.Sheets[5].Range['A'+inttostr(L),'i'+inttostr(L)].PasteSpecial(paste := 'xlPasteAllUsingSourceTheme'); //La méthode PasteSpecial de Range a échoué
Merci d'avance !
essais ça
Code:

1 2 3 wb.Sheets[5].Range['A'+inttostr(L),'i'+inttostr(L)].Insert(-4121);//xlDown = -4121 //ou ça qui marche aussi wb.Sheets[5].Range ['A'+inttostr(L)].PasteSpecial;

Citation:
Envoyé par papyvore
essais ça
Code:

1 2 3 wb.Sheets[5].Range['A'+inttostr(L),'i'+inttostr(L)].Insert(-4121);//xlDown = -4121 //ou ça qui marche aussi wb.Sheets[5].Range ['A'+inttostr(L)].PasteSpecial;
Ça fonctionne !

Maintenant j'ai tout ce qu'il me faut.

Merci à tous !