L'utilisation de fichier Excel est générale dans le monde professionnel et les export Excel sont donc très courantes dans ces applications.
Voila donc un exemple pour générer un fichier excel à la volée sous ASP.NET (VB.NET).
Source / Exemple :
Dim lCnx As New accConnexionSQL(LaChaineDeConnexion)
' Basé sur la classe de connexion MySQL précédement donnée
lCnx.Open()
Try
mTable = ChargeListe(lCnx)
Dim MaLigne As DataRow
Dim Temp As String
Dim i As Integer = 0
Temp = "<TABLE BORDER=1><TR>"
Temp &= "<TD><B>Nom Prenom</B></TD>"
Temp &= "<TD><B>Service</B></TD>"
Temp &= "<TD><B>Localite</B></TD>"
Temp &= "<TD><B>Telephone</B></TD>"
Temp &= "<TD><B>Poste</B></TD>"
Temp &= "<TD><B>Email</B></TD>"
Temp &= "</TR>"
For Each MaLigne In mTable.Rows
Temp &= "<TR>"
Temp &= "<TD>" & MaLigne("NomPrenom") & "</TD>"
Temp &= "<TD>" & MaLigne("Service") & "</TD>"
Temp &= "<TD>" & MaLigne("Localite") & "</TD>"
Temp &= "<TD>" & MaLigne("Telephone") & "</TD>"
Temp &= "<TD>" & MaLigne("Poste") & "</TD>"
Temp &= "<TD>" & MaLigne("Email") & "</TD>"
Temp &= "</TR>"
Next
Temp &= "</TABLE>"
Temp = ZfStringUtil.SupprimeAccent(Temp)
HttpContext.Current.Response.ContentType = "application/vnd.ms-excel"
HttpContext.Current.Response.Write(Temp)
Finally
lCnx.Close()
End Try
Conclusion :
A noté que les accents et caractères spéciaux posent problème, donc le remplacement est a prévoir de ces caractères (d'ou l'utilisation de ZfStringUtil.SupprimeAccent)
C'est un des différents modes de génération de fichier Excel.
F___
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.