Export d'une requête en xls

crampe666 Messages postés 2 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 21 janvier 2005 - 20 janv. 2005 à 16:05
crampe666 Messages postés 2 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 21 janvier 2005 - 21 janv. 2005 à 15:54
Salut à tous,
Je cherche (et même j'arrive) à exporter les résultats d'une requête dans un fichier excel.
Voici mon bout de code :
select mon_champ from ma_table into cursor lCur
select lCur
EXPORT TO "toto.xls" TYPE XL5
Mon problème est que dans le fichier excel obtenu, le titre de ma colonne est "mon_champ", alors que j'aimerai que ça soit "un nom super beau pour le titre de ma colonne".
Comment puis-je faire ? Des indices ?
Merci d'avance de votre aide.

1 réponse

crampe666 Messages postés 2 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 21 janvier 2005
21 janv. 2005 à 15:54
J'ai fini par trouver la réponse. Pour ceux que ça intéresse :
il faut utiliser l'automation
oExcel = CREATEOBJECT("Excel.Application")
oExcel.Workbooks.Open(CURDIR()+"Toto.xls")
oExcel.visible = .F.
oExcel.sheets("feuil1")
oExcel.ActiveSheet.Cells(1,1).Value = "Un Nom de colonne super !"
oExcel.ActiveWorkbook.Save()
oExcel.Quit
release oExcel
0