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

Soyez le premier à donner votre avis sur cette source.

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

Commenter la réponse de Andry

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.