Connection string ADO pour fichier xlsx

Bonjour,

Je souhaite importer des fichiers xls/xlsx dans stringgrid.

Aucun problème avec les fichiers xls mais avec les fichiers xlsx, j'ai l'erreur "la table externe n'est pas dans le format attendu"

J'ai identifié que le problème vient de la construction de ma chaine adoconnection1.ConnectionString

Si je mets le chemin en dur, cela fonctionne

Code:

---

adoconnectionAll.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\MON_DOSSIER\MON_FICHIER.xlsx;Mode=Read;Extended Properties=Excel 12.0';

---

Mais les 3 solutions ci dessous me renvoient toujours l'erreur
si je mets le chemin dans une variable

Code:

---

1 2	xconnection:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\MON_DOSSIER\MON_FICHIER.xlsx;Mode=Read;Extended Properties=Excel 12.0'; adoconnectionAll.ConnectionString := xconnection;

---

ou si je mets le chemin comme ça (juste avec un + entre 2 parties) :

Code:

---

adoconnectionAll.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+'C:\MON_DOSSIER\MON_FICHIER.xlsx;Mode=Read;Extended Properties=Excel 12.0';

---

ou encore comme ça (avec le chemin en variable ce qui au final est ce que je voudrai):

Code:

---

adoconnectionAll.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+Opendialog1.FileName+';Mode=Read;Extended Properties=Excel 12.0';

---

Avez-vous des pistes?

Merci d'avance

NB : je suis sur Delphi 10 Seattle - Application 32 bits

Tout simple faut selon l'extension choisir le bon Excel

Code:

---

'...;Extended Properties="Excel 12.0 Xml;HDR=yes";...'

---

HDR=yes si tu as un Header.

Et il me semble (je ne suis ni fan d'ADO ni de Excel) qu'il ne faut pas oublier les guillemets pour le nom du fichier

Code:

---

adoconnectionAll.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source="'+Opendialog1.FileName+'";Mode=Read;Extended Properties=Excel 12.0';

---

Citation:

---

Envoyé par ShaiLeTroll

Tout simple faut selon l'extension choisir le bon Excel

Code:

---

'...;Extended Properties="Excel 12.0 Xml;HDR=yes";...'

---

HDR=yes si tu as un Header.

---

j'ai déjà testé (effectivement je ne l'avais pas dit) mais cela ne fonctionne pas (sauf si je mets le chemin en dur direct)

J'ai testé aussi le .xlsm en Excel 12.0 Macro et c'est pareil, cela fonctionne en lien en dur mais pas en variable ou en chaine construite string+string


j'ai aussi testé avec et sans les "" pour le nom de fichier...

Citation:

---

Envoyé par SergioMaster

Et il me semble (je ne suis ni fan d'ADO ni de Excel) qu'il ne faut pas oublier les guillemets pour le nom du fichier

Code:

---

adoconnectionAll.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source="'+Opendialog1.FileName+'";Mode=Read;Extended Properties=Excel 12.0';

---

---

Tu me conseilles autre chose que Ado pour importer les fichiers excel sur un poste où Excel n'est pas obligatoirement installé? Je ne suis pas fermé mais jusqu'à présent je n'avais pas de problème avec Ado pour des bases access ou xls.

je ne suis pas décisionnaire du fichier source, l'utilisateur doit pouvoir travailler avec des fichiers txt, csv, xls ou xlsx

Citation:

---

Envoyé par asmosav

Tu me conseilles autre chose que Ado pour importer les fichiers excel sur un poste où Excel n'est pas obligatoirement installé?

---

Je n'ai jamais écrit ça !
Je dis juste que je ne suis pas fan d'ADO ni d'Excel d'ailleurs, je n'ai aucun des deux installés sur mon poste :lol: je suis plutôt libre office (ou openoffice) et l'utilisation des API (voir la FAQ)
Sinon, si Excel il y a, dans mes nouveaux programmes, j'utilise Firedac Cdata Excel pour les XLSX

J'ai enfin trouvé d'où venait mon problème. Cela venait d'un asignfile que j'avais laissé trainer.

Je n'arrive pas à comprendre pourquoi il m'impactait ma connection, uniquement pour les xlsx, mais en déplacant ces lignes après avoir stocké mon filename, je n'ai plus de problème.

Code:

---

1 2	AssignFile(F, OpenDialog1.FileName); Reset(F);

---

Merci pour le temps que vous avez consacré à ma requête