Accueil > > > AFFICHER LE CONTENU D'UN FICHIER EXCEL DANS UNE PAGE ASP
AFFICHER LE CONTENU D'UN FICHIER EXCEL DANS UNE PAGE ASP
Information sur la source
Description
C'est simple en fait, c'est comme quand on fait une requete dans une base de données, mais avec des petites différences :)
Source
- <%Option Explicit%>
- <html>
- <title>Afficher le contenu d'un fichier Excel dans une page ASP</title>
- <body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#0000FF" alink="#FF0000">
- <%
- Dim FichierExcel, MaConn, MonObjRs, MonSQL, CompteurColonne
- 'Nom du fichier Xls
- FichierExcel = "test1.xls"
-
- ' Création de la connexion
- Set MaConn = Server.CreateObject("ADODB.Connection")
- MaConn.Open "DBQ=" & Server.MapPath(FichierExcel) & ";DRIVER={Microsoft Excel Driver (*.xls)};"
- Set MonObjRs = Server.CreateObject("ADODB.Recordset")
-
- ' Requete sur le fichier excel
- ' ATTENTION, c'est le nom d'une zone, regardez dans
- ' le fichier xls pour voir ce dont je parle
- ' La Zone s'appel "MesDonnees", la requete ne se fait pas sur
- ' la feuille mais sur une zone
- MonSQL = "SELECT * FROM MesDonnees;"
-
- ' Exécution de la requête
- MonObjRs.Open MonSQL, MaConn
- %>
- <table border="1" cellspacing="0" cellpadding="2" align="center" bordercolor="#000000">
- <tr>
- <td colspan="2"><font face="Verdana" size="2" color="#0000FF"><b>Contenue de "MesDonnees" dans "MaFeuille</b></font>"</td>
- </tr>
- <tr>
- <%For CompteurColonne = 0 To (MonObjRs.Fields.Count - 1)%>
- <td bgcolor="#C0C0C0"><b><font face="Verdana" size="2"><%
- ' Le nom des champs
- %><%=MonObjRs.Fields.Item(CompteurColonne).Name%></font></b></td>
- <%Next%>
- </tr>
- <%Do While Not MonObjRs.EOF%>
- <tr><%
- For CompteurColonne = 0 To (MonObjRs.Fields.Count - 1)%>
- <td align="center"><font face="Arial" size="2">
- <%=MonObjRs.Fields.Item(CompteurColonne).Value %></font></td>
- <%Next %>
- </tr>
- <%MonObjRs.MoveNext
- Loop%>
- </table>
- <%
- ' On vide tous les objets tout bien comme il faut :)
- MonObjRs.close
- Set MonObjRs = Nothing
- MaConn.close
- Set MaConn = Nothing
- %>
- </body>
- </html>
-
<%Option Explicit%>
<html>
<title>Afficher le contenu d'un fichier Excel dans une page ASP</title>
<body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#0000FF" alink="#FF0000">
<%
Dim FichierExcel, MaConn, MonObjRs, MonSQL, CompteurColonne
'Nom du fichier Xls
FichierExcel = "test1.xls"
' Création de la connexion
Set MaConn = Server.CreateObject("ADODB.Connection")
MaConn.Open "DBQ=" & Server.MapPath(FichierExcel) & ";DRIVER={Microsoft Excel Driver (*.xls)};"
Set MonObjRs = Server.CreateObject("ADODB.Recordset")
' Requete sur le fichier excel
' ATTENTION, c'est le nom d'une zone, regardez dans
' le fichier xls pour voir ce dont je parle
' La Zone s'appel "MesDonnees", la requete ne se fait pas sur
' la feuille mais sur une zone
MonSQL = "SELECT * FROM MesDonnees;"
' Exécution de la requête
MonObjRs.Open MonSQL, MaConn
%>
<table border="1" cellspacing="0" cellpadding="2" align="center" bordercolor="#000000">
<tr>
<td colspan="2"><font face="Verdana" size="2" color="#0000FF"><b>Contenue de "MesDonnees" dans "MaFeuille</b></font>"</td>
</tr>
<tr>
<%For CompteurColonne = 0 To (MonObjRs.Fields.Count - 1)%>
<td bgcolor="#C0C0C0"><b><font face="Verdana" size="2"><%
' Le nom des champs
%><%=MonObjRs.Fields.Item(CompteurColonne).Name%></font></b></td>
<%Next%>
</tr>
<%Do While Not MonObjRs.EOF%>
<tr><%
For CompteurColonne = 0 To (MonObjRs.Fields.Count - 1)%>
<td align="center"><font face="Arial" size="2">
<%=MonObjRs.Fields.Item(CompteurColonne).Value %></font></td>
<%Next %>
</tr>
<%MonObjRs.MoveNext
Loop%>
</table>
<%
' On vide tous les objets tout bien comme il faut :)
MonObjRs.close
Set MonObjRs = Nothing
MaConn.close
Set MaConn = Nothing
%>
</body>
</html>
Conclusion
P.S : Voir le zip, il y a le fichier excel dedans
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
WP7 5K BELGIUM CHALLENGEWP7 5K BELGIUM CHALLENGE par junarnoalg
Microsoft Belgique a le plaisir de vous annoncer le lancement du
Challenge Windows Phone 7
. Celui-ci se déroule du 12 juillet au 30 novembre 2010 et vous donne l'opportunit...
Cliquez pour lire la suite de l'article par junarnoalg LES MONADES POUR LES NULSLES MONADES POUR LES NULS par mdufourneaudravel
Avec l'annonce de F#, je me suis intéressé de plus en plus à la programmation fonctionnelle, je suis donc rapidement tombé sur les " monades ", mais malgré la lecture de plusieurs articles, j'étais resté perméable à leur concept. C'est désormais fini, grâ...
Cliquez pour lire la suite de l'article par mdufourneaudravel [WP7] AJOUTER DES IMAGES DANS LA MEDIA LIBRARY D'UN WINDOWS PHONE 7[WP7] AJOUTER DES IMAGES DANS LA MEDIA LIBRARY D'UN WINDOWS PHONE 7 par Audrey
L'émulateur Windows Phone 7, fourni avec la version Beta des outils développeurs n'inclut aucune image dans sa bibliothèque. Pas très pratique de tester son application lorsque l'on souhaite que l'utilisateur puisse choisir une image présente dans le télé...
Cliquez pour lire la suite de l'article par Audrey VIVE LES MOCKS ET LES POCOSVIVE LES MOCKS ET LES POCOS par vLabz
J'observe régulièrement autour de moi de la confusion à propos de ces deux termes et j'aimerais juste rappeler ce qu'ils signifient. Je ne suis bien sûr pas le mieux placé pour faire une leçon mais je vais faire de mon mieux pour mettre en valeur ce q...
Cliquez pour lire la suite de l'article par vLabz [WF4] WORKFLOW AND CUSTOM ACTIVITIES - BEST PRACTICES (4/5)[WF4] WORKFLOW AND CUSTOM ACTIVITIES - BEST PRACTICES (4/5) par JeremyJeanson
Vendredi dernier Microsoft a publié le quatrième épisode des bonnes pratiques pour coder ses activités custom dans WF4 : endpoint.tv - Workflow and Custom Activities - Best Practices (Part 4) . Tout comme pour les précédents épisodes, j'ai pris le temps d...
Cliquez pour lire la suite de l'article par JeremyJeanson
Forum
ASP:BUTTONASP:BUTTON par ldm001
Cliquez pour lire la suite par ldm001
Logiciels
Crystal Report (11)CRYSTAL REPORT (11)Crystal Reports est un outil de reporting souple et puissant, vous pouvez très facilement consult... Cliquez pour télécharger Crystal Report Academy System (12.0.2.0)ACADEMY SYSTEM (12.0.2.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft iPod Vidéo Convertisseur 6 (6.0.3.0419)XILISOFT IPOD VIDéO CONVERTISSEUR 6 (6.0.3.0419)Xilisoft iPod Vidéo Convertisseur est un outil puissant de conversion d'iPod, facile à utiliser. ... Cliquez pour télécharger Xilisoft iPod Vidéo Convertisseur 6 Xilisoft iPhone Vidéo Convertisseur 6 (6.0.3.0419)XILISOFT IPHONE VIDéO CONVERTISSEUR 6 (6.0.3.0419)Xilisoft iPhone Vidéo Convertisseur est le meilleur logiciel de conversion iPhone qui peut facile... Cliquez pour télécharger Xilisoft iPhone Vidéo Convertisseur 6 Xilisoft iPad Vidéo Convertisseur 6 (6.0.3.0419)XILISOFT IPAD VIDéO CONVERTISSEUR 6 (6.0.3.0419)Il s'agit d'un logiciel polyvalent pour convertir les formats vidéo/audio populaires en formats p... Cliquez pour télécharger Xilisoft iPad Vidéo Convertisseur 6
|