Version imprimable
Bonjour tout le monde,
j'ai une toute petite question...
j'ai trouvé sur ce site une procédure d'exportation de données vers Excel (publiée en 2006)
mais mon Delphi 10.3 ne reconnait pas l'unité "excel97" dans la clause "Uses"
j'ai essayé des trucs du genre "excel12" ou "excel14" mais c'est pareil,
sachant que j'ai Excel 2016 installé.
Merci d'avance.
Bonjour,
cela dépend surement du Excel installé sur le poste et déclaré lors de l'installation de Delphi.
Chez moi avec Excel 2000 il faut ajouter dans les Uses : OleServer et Excel2000
Sinon tu poses un TExcelApplication sur la fiche (onglet Serveur) et tu compiles. Delphi va ajouter les bons Uses
A+
Charly
Merci pour votre réponse Charly910,
pour commencer, le TExcelApplication n'existe pas dans ma palette de composants (delphi 10.3 édition Architecte)
donc j'ai rajouté manuellement "Excel2000" et "Oleserver", c'est reconnu par Delphi;
par contre, une variable déclarée "RangeE" du type "Excel2000.Range" ("Excel97.range" avant modification)
n'est pas reconnue.
je préfère vous donner le lien vers la procédure pour mieux comprendre:
https://www.developpez.net/forums/d6...csv-clipboard/
Bonjour,
je n'ai pas de base de données sous la main et ne peux pas tester avec un DbGrid.
Essaye un variant pour RangeE.
A+
Charly
Sinon tu peux essayer de t'inspirer de la FAQ qui exporte un StringGrid
Bonjour
Les composants Office ne sont plus activés par défaut : il faut aller dans Composants / Installer des composants pour cocher la version de paquet que l'on désire utiliser.
Rebonjour à tous !
Effectivement pprem, je viens d'installer les composants office,
et du coup, maintenant je trouve le composant TExcelApplication, et Delphi m'a généré automatiquement les unités "Vcl.OleServer" et "Excel2000";
j'ai recompilé, mais la propriété "Range" de la variable "RangeE" n'est toujours pas reconnue.
J'ai donc tapé "Excel2000." pour afficher ses propriétés, et j'ai constaté qu'il y'en a pas "Range" parmi, j'en déduis que la propriété "Range" est propre à "Excel97" et n'existe pas dans "Excel2000".
La question maintenant est:
Quelle est la propriété de "Excel2000" équivalente à "Range" de "Excel97" ?
ou bien comment faire pour contourner ce probléme ?
Là, malheureusement, je ne peux que t'inciter à regarder la doc de Microsoft car ce n'est pas la seule modification intervenue dans son interface qui aura un impact sur tes projets existants.Citation:
Envoyé par youce90
Bonjour,Citation:
Envoyé par youce90
Sans voir un bout de votre code, c'est difficile de vous aider. Créez-vous l'objet OLE de l'application Excel ?
Voici ce que j'ai l'habitude d'écrire:
Code:
2
3
4
5
6
7
8
9
10
11var ExcelApp : Variant; begin ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.Workbooks.Add; ExcelApp.Visible := true; //excel visible ... ExcelApp.Range['B2','B3'].Merge(false); ...
Nabil74
je vous fais un petit résumé sur la situation:
j'ai trouvé une procédure sur ce site qui fait l'exportation des données vers Excel.
ce n'est pas moi qui l'a écrite. j'essaie juste de l'utiliser, mais j'arrive pas.
et j'ai donné le lien vers la procédure, le voilà !
https://www.developpez.net/forums/d6...csv-clipboard/
Bonjour,
oui, mais comme dit Nabil74 donne plutôt ton code à toi, avec Excel2000
A+
Charly
Et en déclarant en variant (comme l'a déjà proposé Charly910) ?
Bien sûr il faut rajouter variants dans la liste des uses ;)
@ youce90 :
Veux-tu exporter tes données vers Excel sans passer par RANGE ?
Si oui, je peux te fournir un code que j'utilise.
Quelle base de données utilises-tu?
J'aimerai bien @Nabil74Citation:
Envoyé par NABIL74
mais dans ce cas, je dois vous donner plus de détails;
en fait je l'ai déjà fait, j'ai pu exporter les données d'un TAdoquery
en utilisant l'instruction suivante:
par contre, ce que je veux faire maintenant c'est d'exporter le résultat filtré dynamiquement (filtration au cours de l'exécution)Code:adoconnection1.Execute('select * into MaFeuille in "MonClasseur.xls" "excel 12.0;" from MaTable')
j'ai essayé de modifier dynamiquement le code précédent, en rajoutant ce qu'il y a dans la propriété "Filter" de mon AdoQuery.
ça se compile, mais ça n'exporte que l’entête de ma table (vide).
donc j'ai pensé à travailler directement sur le dbgrid.
je travaille sur une base de données Access 2016.
voilà ! j'espère que c'est clair pour vous
Citation:
Envoyé par youce90
Clair, non car dans tout ce qui a été écrit avant on parle de OLE pas de ADO.Citation:
j'espère que c'est clair pour vous
Pour ce qui est de "Filtrer" avez-vous pensé que SELECT peut contenir une clause WHERE ?
ici une discussion sur quelque chose qui semble identique.
Oui, je sais très bien que SELECT peut contenir une clause WHERE.Citation:
Envoyé par SergioMaster
je vous explique:
Après avoir afficher les données de la table sur le Dbgrid, j'applique un filtre en saisissant une chaîne de caractères dans un Edit,
autrement dit, je modifie la propriété "Adoquery1.filter"
ensuite, pour exporter les données filtrées, voilà ce que j'ai écrit:
Sans la clause WHERE, la table est entièrement exportée sans problème;Code:adoconnection1.Execute('select * into MaFeuille in "MonClasseur.xls" "excel 12.0;" from MaTable where '+Adoquery1.Filter+'');
par contre, quand je rajoute la partie:
ça m'exporte uniquement l’entête de la tableCode:where '+Adoquery1.Filter+''
Bonjour
a partir d'une grille il y a le tjvexportexcel de la jvcl qui fait ca très bien.
Est-ce que le code sql de votre select fonctionne avec l'ide de votre base de données ?
cordialement
André
Un peu hors sujet mais pas tant que ça, c'est peut-être l'occasion de parler du driver Excel pour FireDac proposé par CData et offert pour 1 an par Embarcadero ce mois-ci, non ?
https://community.idera.com/develope...connectthedata
c'est un gros problème dans votre construction de SQL uniquement ! Avec toutes ces " et ' il y a des mauvaises concaténations dans l'air et une requête qui ne renvoie rienCitation:
Envoyé par youce90
Quelques fois il est bon de passer par des étapes intermédiaires pour construire et surtout contrôler un texte SQL
AMHA le problème se situe à la fin
Code:
2adoconnection1.Execute('select * into MaFeuille in "MonClasseur.xls" "excel 12.0;" from MaTable where '+Adoquery1.Filter+'');
Rebonjour, et merci pour toutes vos réponses !Citation:
Envoyé par alheuredudejeuner
j'ai fait une petite recherche sur le composant que André m'a proposé, en fait son nom correcte est "TJvgExportExcel" et pour pouvoir l'utiliser il faut installer les bibliothèques jcl et jvcl,
et en fouillant un peu dans les composants JVCL, j'ai trouvé exactement ce que je cherchais:
le "TjvDBGridExcelExport", très simple à utiliser, il suffit juste d'indiquer les deux propriétés GRID et FILENAME.
et l'exportation du contenu du DBGrid se fait correctement,
Sauf que là, j'ai rencontré une petite anomalie; dans ma table Access j'ai un champ de type "texte court" qui contient des codes fiscaux de 15 chiffres,
dans le fichier excel exporté, les valeurs de ce champ sont affichés en exponentiel, et aussi quand je double-clique je trouve que les zéros à gauche ont été tronqués
exemple:
je trouve "9,9824E+13" au lieu de "099824038210192" sachant que ce champ est de type texte court.