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

Soyez le premier à donner votre avis sur cette source.

Vue 43 868 fois - Téléchargée 2 912 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

Si vous avez la même chose pour word, ce serait top.
Merci!!
Merci pour la partie lecture d'un fichier EXCEL.
Par contre, as-tu des astuces pour l'écriture ?
Gros problèmes de Timeout sous PWS/NT4. Une solution ?
Je suis un nouveau venu dans l'ASP, je trouve ce code trés intéressant, cela fonctionne trés bien avec mon réseau en PWS mais pas en publication sur mon site, pourquoi? Où est l'erreur?
Et bien c'est simple, ce script marche par contre quand vous allez le publier sur votre site réél (je suppose hébergé) vous rencontrerez sans doute des problèmes de permissions, une chose facilement réglable (consultez le fichier d'aide de PWS) Voilà.

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.