Discussion :

[youce90]

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 !

[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.

[youce90]

Merci pour votre réponse rapide et utile

[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

[youce90]

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 :

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

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 ?

[papyvore]

salut
essais ça chez moi ça marche

Code :

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

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));