Affichage d'une feuille excel en asp
4/5 (7 avis)
Vue 20 408 fois - Téléchargée 960 fois
Description
affichage d'une feuille excel en asp , veuillez suivre les instructions et surtout de mettre la page asp dans le même répertoire que la feuille excel
Source / Exemple :
<%@ LANGUAGE="VBSCRIPT"%>
<html><head><title>AFFICHAGE FEUILLE EXCEL PAR WIPLILLE</title>
<meta name="Microsoft Border" content="tb">
</head>
<body bgcolor="#FF99CC">
<%
' FUNCTIONS
' =========
Function Nblignes(max)
i=1
if (max<0) then max=999 end if
while ((sheet.Cells(i,1).Value <> "") AND (i<=max))
i=i+1
wend
Nblignes = i - 1
End Function
Function Nbcolonnes(max)
i=1
if (max<0) then max=999 end if
while ((sheet.Cells(1,i).Value <> "") AND (i<=max))
i=i+1
wend
Nbcolonnes = i - 1
End Function
' CORPS DU SCRIPT
' ================
fichier = "c:\screg\achat1\fournitures.xls"
'ouvrir excel et fichier
Set monexcel = CreateObject("Excel.Application")
monexcel.Workbooks.Open fichier
Set sheet = monexcel.ActiveWorkbook.Sheets(1)
maxlignes = 100
maxcolonnes = 100
sline = Nblignes(maxlignes)
scol = Nbcolonnes(maxcolonnes)
%>
<font color="#808080">
Le fichier est ouvert.<br><br>
<% If sline < maxlignes then %>
Il contient <%=sline %> lignes (avant la première case vide dans la colonne 1) <br>
<% Else %>
Ce fichier contient au moins <%= maxlignes %> lignes et nous n'allons afficher que les <%=maxlignes %> premières.
<br>
<% End If %>
<% If scol < maxcolonnes then %>
Il contient <%=scol %> colonnes (avant la première case vide dans la ligne 1) <br><br>
<% Else %>
Ce fichier contient au moins <%= maxcolonnes %> colonnes et nous n'allons afficher que les <%=maxcolonnes %> premières</font><font color="#FFFFFF">
<br></font><br>
<% End If %>
<table border=2>
<tr>
<th> achat </th>
<th> fournitures </th>
</tr>
<% For i =1 to sline %>
<tr>
<% For j = 1 to scol %>
<td>
<% Response.Write sheet.Cells(i,j) %>
</td>
<% Next %>
</tr>
<% Next %>
</table>
<br> <br> <br> <font color="#808080"> On a affiché le contenu de la base<br> <br>
<%
'monexcel.ActiveWorkbook.Save
monexcel.ActiveWorkbook.Close
monexcel.Application.Quit
Set monexcel = Nothing
%>
Le fichier est maintenant fermé.</font>
</body>
</html>
Codes Sources
A voir également
- Affichage d'une feuille excel en asp
- ASP / ASP.NET : Afficher le contenu d'une feuille excel dans un datagrid - CodeS SourceS - Guide
- Probleme d'affichage lors d'un transfert listbox vers feuille excel ✓ - Forum - Visual Basic 6
- ôter protection feuille excel vba - Guide
- Feuille excel pour calcul topographique - Guide
- Afficher une feuille excel dans un userform vba ✓ - Forum - Visual Basic
17 août 2010 à 16:19
Et pourquoi ne pas directement envoyer le lien de la feuille Excel au client ?
response.redirect "XLS Dans une partie browsable du WebServer"
Ce n'est jamais bon d'installer trop de choses comme des parties de Office sur un WebServer, cela vous demandra de le patcher plus souvent...
Steve
5 juil. 2007 à 18:16
Alors moi je comprend pas: j'ai l'erreur "Permission refusée: 'CreateObject'" sur cette ligne la:
Set monexcel = CreateObject("Excel.Application")
pourtant Excel est bien installé sur le serveur...
4 nov. 2004 à 09:41
"Le composant ActiveX ne peut créer l'objet "
Voici un lien qui explique les différentes causes :
http://support.microsoft.com/default.aspx?scid=kb%3Bfr%3B244264#kb1
- Messages postés
-
1765
- Date d'inscription
- jeudi 12 octobre 2000
- Statut
- Membre
- Dernière intervention
- 11 décembre 2013
59 déc. 2003 à 12:06
- Set monexcel = CreateObject("Excel.Application")
Il faut absolument qu'Excel soit installer sur le serveur qui fera fonctionner cette page.
F___
9 déc. 2003 à 11:50
Ces messages sont très interessant.
Nous avons une erreur de ce type en executant ce script
Erreur d'exécution Microsoft VBScript erreur '800a01ad'
Un composant ActiveX ne peut pas créer un objet.: 'CreateObject'
Cela signifie t-il qu'il faut installer une version d'excel sur le serveur IIs ou faut il paramétre IIs dans ce cas comment ?
merci pour votre réponse
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.