Comment exporter vos données vers excel

Date 7/7/2003 8:50:00 | Sujet : Trucs et astuces

Bien que windev propose de transferer le contenu d'une table vers un fichier excel , j'ai eu un problème avec cette fonctionalité car elle ne fonctionne pas avec la langue arabe (il ya fortes chances que c'est le cas pour d'autres langues) , alors j'ai crée ma fonction d'export vers excel qui est assez simple.


 // Création d'un  objet automation dynamique
MaFeuilleXLS est un objet automation dynamique


// Instance de Excel existante ?
SI ObjetActif("Excel.Application") <> Null ALORS
	// Récupération de l'instance de Excel existante
	MaFeuilleXLS = ObjetActif("Excel.Application")
SINON
	// Allocation de l'objet automation "MaFeuilleXLS"
	MaFeuilleXLS = allouer un objet automation "Excel.Application"
FIN

// Excel n'st pas visible si vous voulez le rendre visible
// changez a valeur à vrai
MaFeuilleXLS>>Visible = Faux
// Ouverture d'un classeur d'Excel
MaFeuilleXLS>>Workbooks>>Add()
// Affectation de plusieurs valeurs
//on insere  dans la cellule A2 et B4 des valeurs
MaFeuilleXLS>>Range("A"+2)>>Value ="valeur1"
MaFeuilleXLS>>Range("B"+4)>>Value ="valeur2"
// vous pouvez ainsi inserer plusieurs valeurs 
//dans différents cellles
//on rends la feuille visible
MaFeuilleXLS>>Visible = Vrai




Cet article provient de WDForge.org
http://old.wdforge.org

L'adresse de cet article est :
http://old.wdforge.org/article.php?storyid=92