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

Soyez le premier à donner votre avis sur cette source.

Vue 45 961 fois - Téléchargée 3 042 fois


Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
lathssida Messages postés 1 Date d'inscription jeudi 7 décembre 2006 Statut Membre Dernière intervention 15 novembre 2010
15 nov. 2010 à 17:44
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
letitolli Messages postés 1 Date d'inscription mercredi 29 octobre 2008 Statut Membre Dernière intervention 21 août 2009
21 août 2009 à 15:55
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
pakito_77 Messages postés 11 Date d'inscription jeudi 26 janvier 2006 Statut Membre Dernière intervention 8 août 2006
8 août 2006 à 09:31
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
iamjul Messages postés 3 Date d'inscription mardi 16 septembre 2003 Statut Membre Dernière intervention 3 décembre 2005
7 août 2006 à 13:36
c'est quoi la question ?
pakito_77 Messages postés 11 Date d'inscription jeudi 26 janvier 2006 Statut Membre Dernière intervention 8 août 2006
3 août 2006 à 14:34
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.
S'inscrire maintenant

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.

Du même auteur (Nix)