Afficher le contenu d'un fichier excel dans une page asp

Soyez le premier à donner votre avis sur cette source.

Vue 44 175 fois - Téléchargée 2 962 fois

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 / Exemple :


<%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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
jeudi 7 décembre 2006
Statut
Membre
Dernière intervention
15 novembre 2010

Bonjour,

J'ai remplacé la ligne 12 par:
12. MaConn.Open "OrderTable"
qui est le DSN et tout fonctionne parfaitement.
ligne 27 la valeur de colspan est obtenue par
colspan="<%=MonObjRs.Fields.Count%>"

Fonctionne 2peccable
Messages postés
1
Date d'inscription
mercredi 29 octobre 2008
Statut
Membre
Dernière intervention
21 août 2009

moi ausi g le meme soucis OXOID
suis pas très douée :
j'ai copie la source ds un fichier txt que je renomme en htm pour voir ce qui se passe
et lorsque j'ouvre mon htm je n'ai que "Contenue de "MesDonnees" dans "MaFeuille" rien d'autre
le fichier test1.xls est rangé dans le meme dossier

pouvez vous m'aider ??? merci d'avance
Messages postés
11
Date d'inscription
jeudi 26 janvier 2006
Statut
Membre
Dernière intervention
8 août 2006

pas une question juste un probleme, mais bon je me suis debrouillé d'une autre maniere et je n'utilise plus cette methode.
merci quand meme
Messages postés
3
Date d'inscription
mardi 16 septembre 2003
Statut
Membre
Dernière intervention
3 décembre 2005

c'est quoi la question ?
Messages postés
11
Date d'inscription
jeudi 26 janvier 2006
Statut
Membre
Dernière intervention
8 août 2006

Bonjour tout le monde, j'ai un probleme sur l'affichage. en effet, lorsque j'affiche mon tableau certaines colonnes ou dumoins certaines cellules ne s'affiche pas. Cela doit surrement venir de mon fichier excel, donc j'ai regarder au niveau des formats et elles ont pourtant toute le meme format standart. Merci d'avance

A noter que quand je modifie a la main une cellule qui ne s'affiche pas et que le texte apres validation est coté droit de la cellule , elle apparait bien dans mon tableau, si le texte est centré a gauche dans la cellule ou si il y a des espaces ou autre , elle ne s'affiche pas. J'espere avoir été assez clair.
Afficher les 23 commentaires

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.