ATTAQUER EXCEL AVEC DELPHI
aymenk
Messages postés
77
Date d'inscription
samedi 25 janvier 2003
Statut
Membre
Dernière intervention
29 octobre 2018
-
18 juin 2005 à 12:38
cs_mbenny Messages postés 2 Date d'inscription lundi 11 février 2008 Statut Membre Dernière intervention 10 janvier 2010 - 10 janv. 2010 à 10:01
cs_mbenny Messages postés 2 Date d'inscription lundi 11 février 2008 Statut Membre Dernière intervention 10 janvier 2010 - 10 janv. 2010 à 10:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/32150-attaquer-excel-avec-delphi
https://codes-sources.commentcamarche.net/source/32150-attaquer-excel-avec-delphi
10 janv. 2010 à 10:01
Merci pour Votre interet, mais juste j'ai trouver votre exemple riche en application Excel, chose qui m'a pouusser de vous demander de l'aide juste pour m'orienter ou je puisse trouver un help ou des exemple plus riche des fontion , precudure et des objet concernant les application excel (TexcelApplication), Merci et je serais tres heureux de recevoir quelque chose de votre part.
Salutations
6 janv. 2010 à 19:32
Si je trouve qlq chose je vous le communiquera ...
A +...
6 janv. 2010 à 14:48
J'ai essaye votre programme et ca bien marché.
Je suis entrain de devollope un programme qui utilse excel sous delphi 6 mais je ne trouve pas le help des fonctions et des objets de TExcel.Application et ca me ralenti un peu pour cela si vous pouvez m'aider de me fournir une nemenclature de tous fonctions et leurs explication
Merci
9 oct. 2008 à 16:08
le code parait bien mais c'est quasiment illisible. Le code n'est pas indenté ou mal, ça ne compile pas sous D7, j'ai testé les manip pour le faire marcher sous cette version, ça compile mais sa plante Excel au lancement...
On ne peut distinguer les commentaires utiles des lignes de code mis en commentaire.
1 juil. 2008 à 09:03
Soit tu installes windows 2000 sur ton pc
soit tu utilises un autre pc qui a windows 2000
Salutations
1 juil. 2008 à 08:57
Merci
1 juil. 2008 à 08:39
Regarde avec windows 2000, cela fonctionne très bien
Salutations
30 juin 2008 à 19:42
J'utilise Excel 2007, windows vista et delphi7
Merci d'avance!
5 févr. 2008 à 15:44
22 mai 2007 à 20:46
moi je cherche comment faire la sauvgarde de dbgrid comment un fichier XLS (excel).
18 déc. 2006 à 10:00
J'ai une question:
Pour visualiser les Gridlines en Excel il doive ecrire
// Show/ Hide Gridlines:
ExcelApp.ActiveWindow.DisplayGridlines := False; // ou True.
Ma question.
Si je ne veut pas visualier le Zero values.. je doive ecrire ?
ExcelApp.ActiveWindow.??????:=False;
Merci
24 juil. 2006 à 08:50
15 mai 2006 à 08:48
Delphi 2 avec windows 95 ? alors bon courage ! .
Passe à une version résente. Ce sera plus facile.
sur mon poste les fichiers sont sur
C:\Program Files\Borland\Delphi7\Ocx\Servers
C:\Program Files\Borland\Delphi7\Imports
as tu fait une recherche complette sur les repertoires ?
Salutations
12 mai 2006 à 19:49
les units excel2000 /97 ce trouve dans les source de delphi 5...
meme si tu as ces source et tu n'utilise pas delphi 5 ça ne va pas marcher..
12 mai 2006 à 10:38
Les tuto ont l'air cool mais je pe pas les utiliser. Je pe pas faire de graphes sur excel parceke il me manke les uses excel2000 ou 97.pas et *.dcu.
Je cri "a l'aide" et je vous demande si kelkun peu me les envoyer a mounirdrd@aol.com.
Merci
11 avril 2006 à 15:13
14 nov. 2005 à 11:54
Je bosse avec une très vielle version de Delphi : delphi2.0 & je dois piloter Excel, Je peux le lancer faire quelques bidouilles, mais je n'ai ni Variant.pas, ni CimObj.pas, ni Excel200.pas...
1) comment savoir quelles fonctions je peux utiliser
2) est il possible de récupérer les fichiers *.pas et les DLL coorrrespondants ?
Merci de m'éclairer, bonne prog
BEN
3 nov. 2005 à 15:19
j'ai très respectueusement l'honneur de vous demander de me communiquer le programme relatif à la conversion dez chiffres en letres en Excell, avec des décimaux!
Mes remerciements
29 juin 2005 à 09:23
en D7 value est remplacé par value2 et value demande d'autre param [olevariant]
ces commandes sont dans ExcelXP.pas
Button22Click donne un ex. de graphe
tu peu aussi aller voir
http://delphi.developpez.com/faq/?page=excelgraphs#excelgraphtravail
28 juin 2005 à 08:51
Toutes mes excuses c'est dans le message du 21/06/2005.
Mais alors pour quoi " .value2 " ?
autre questions :
ou trouver toutes ces commandes ?
As-tu des exemples de graphes excel via delphi ?
Salutations
27 juin 2005 à 19:42
remplace value par value2
ligne : MaFeuille.Range['B1','E3'].Value := 'Hello ..etc
devient MaFeuille.Range['B1','E3'].Value2 := 'Hello ..etc
procedure TForm1.Button23Click(Sender: TObject);
var
MonClasseur : _workbook;
MaFeuille : _worksheet;
begin
ExcelApplication1.SheetsInNewWorkbook[0]:=1;
MonClasseur:=ExcelApplication1.Workbooks.Add(EmptyParam,0);
MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
MaFeuille.Range['B1','E3'].Value2 :='Hello World Cellule Ajuster par largeur ...etc' ;
ExcelApplication1.Visible[0]:=true;
with MaFeuille.Range['A1','E3'] do
begin
27 juin 2005 à 16:25
J'utilise DELPHI7 WINDOWS 2000 ET EXCEL 2002.
J'ai les mêmes PB.
DANS: procedure TForm1.Button23Click(Sender: TObject);
ligne : MaFeuille.Range['B1','E3'].Value := 'Hello World Cellule Ajuster par largeur ...etc' ;
Il y a : [Erreur] Unit1.pas(392): '[' attendu(e) mais ':=' trouvé(e)
Quelle version des 3 logiciels utiliser ?
As-tu des exemple des graphique ?..
Salutations
21 juin 2005 à 09:33
tu drevrais tout reprendre a zéro en replaçant l'unit1 télécharger
et faire les modifs
parceque la ligne 390 est
MaFeuille.Range['B5','C12'].Select;
et non MaFeuille.Range['B1','E3'].Value
le seul MaFeuille.Range['B1','E3'].Value2 :='Hello World ...
est à la ligne 325.
rééssais c'est une bonne unit.
mais n'oublit pas avant compil et aprés les modifs de supprimer le .dcu fourni dans le zip qui est un D5, ou bien fait menu construire projet1.
si tu ne supprime pas le DCU c'est lui qui est prit en pemier
et génére des erreurs (ce qui m'est arrivé) :)
aprés ça marche trés bien.
20 juin 2005 à 14:12
"MaFeuille.Range['B1','E3'].Value"
avec le message :
[Erreur] Unit1.pas(390): '[' attendu(e) mais ':=' trouvé(e)
Jusqu'à cette ligne tout se compilait bien...
Je lui ai donc donné un argument [=1] puisqu'il y tenait absolument, et tout s'en enfin compilé.
J'ai eu le message "Excel en mémoire" après avoir cliqué sur "Lancer Excel", mais immédiatement suivi d'un plantage en exception du debugger : " le serveur a généré une exception - oleexception... etc" suivi après 2 ou 3 essais infructueux par un plantage général de Delphi - sortie par ctrl-alt-del. Tout ca sans avoir cliqué sur le bouton 23, seul point que j'avais bricolé.
Par ailleurs, je lance Excel dans des programmes que j'ai écrit, mais de façon beaucoup plus rudimentaire (juste ouverture + charger une feuille). Donc ce ne doit pas etre mon système qui est en cause, mais il semble que ce prog n'est pas adapté à Delphi7 + XP edition familiale...
Merci quand même !
20 juin 2005 à 12:30
il faut bien laisser les
MaFeuille.Range['B1','E3'].Value
Mais il faut changer toutes le variables de Type Range en ExcelRange désolé :(
Exemple
procedure TForm1.Button21Click(Sender: TObject);
var
MonClasseur : _workbook;
MaFeuille : _worksheet;
rMaPlage : ExcelRange;//Range;
begin
If ExcelApplication1.Workbooks.Count>=1 Then //xlWBATExcel4MacroSheet : Feuille macro Excel 4
MonClasseur:=ExcelApplication1.Workbooks[1];
MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
rMaPlage:=MaFeuille.UsedRange[0];
//Attention : la plage définie par UsedRange est remise à jour par Excel
//après des insertions ou suppression lors du prochain appel de UsedRange.
//Par exemple l'adresse montrée ici n'est pas correcte :
MaFeuille.Range['A2','A4'].EntireRow.Delete(xlUp);
.........................
je pense ne rien avoir oublié
20 juin 2005 à 12:18
[Erreur] Unit1.pas(317): Identificateur non déclaré : 'Excelrange'
la ligne 317 étant devenue :
MaFeuille.Excelrange['A2','A4'].EntireRow.Delete(xlUp);
...?
20 juin 2005 à 11:18
y compris MaFeuille.Range['B1','E3'].Value et tous les autres range
20 juin 2005 à 11:17
change tous les Range en ExcelRange
y compris MaFeuille.Range['B1','E3'].Value et tos le saures range
MaFeuille.ExcelRange['B1','E3'].Value
20 juin 2005 à 10:49
Ok pour Variants, ok pour les open, mais après avoir changé Range en Excelrange ligne 308, j'ai :
[Erreur] Unit1.pas(390): '[' attendu(e) mais ':=' trouvé(e)
le ligne 390 étant :
MaFeuille.Range['B1','E3'].Value:='Hello World Cellule Ajuster par largeur ...etc' ;
??!!
20 juin 2005 à 10:49
Merçi de ton aide, j'utilise Delphi5 donc je ne peut savoir; pourmoi ça mrche.
REM:à NIX
pouqoui ne pas ajouter une case è cocher pour préciser sur quel version le source a été développé. Merçi a tous le monde
20 juin 2005 à 09:37
(****************************************
Modif pour fonctionnement avec D7
- ajouer l'unité Variants
- change tous les Range en ExcelRange
- ajouter 2 params EmptyParam a tous les Open(fichierXLS....
Open(fichierXLS,False,False,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
devient
Open(fichierXLS,False,False,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,0);
a priori ça marche sur D7 avec ces modifs
*****************************************)
20 juin 2005 à 09:23
[Erreur] Unit1.pas(88): Identificateur non déclaré : 'emptyparam'...
Dommange, ca avait l'air intéressant !
Sidea
19 juin 2005 à 09:57
Merçi quand même ..puisque nous y somme donne moi votre avis sur l'exemple de cryptage
18 juin 2005 à 15:39
Il aurait fallu préciser que cette application est basée sur la série de composants livrée avec certaines versions et un certain niveau de Delphi. Le composant TExcelApplication est disponible depuis Delphi5 ou 6. Tout le monde ne pourra donc pas exploiter ce code source.
18 juin 2005 à 12:38
Faites moi savoir si vous faites des Modifications sur ce code