Affichage d'une feuille excel en asp

Soyez le premier à donner votre avis sur cette source.

Vue 20 090 fois - Téléchargée 924 fois

Télécharger le projet
Commenter

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
ObelixSuisse
Messages postés
15
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
26 mai 2010
 -
Bonjour,
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
Signaler
pifou25
Messages postés
150
Date d'inscription
lundi 13 octobre 2003
Statut
Membre
Dernière intervention
21 décembre 2014
 -
Bonjour,

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...
Signaler
goliath3
Messages postés
3
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
28 décembre 2004
 -
Pour plus d'informations concernant cette erreur

"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
Signaler
cs_fabrice69
Messages postés
1766
Date d'inscription
jeudi 12 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013
 4 -
Pour pouvoir effectuer cet appel :
- Set monexcel = CreateObject("Excel.Application")

Il faut absolument qu'Excel soit installer sur le serveur qui fera fonctionner cette page.

F___
Signaler
cs_joan
Messages postés
10
Date d'inscription
mardi 25 juin 2002
Statut
Membre
Dernière intervention
6 janvier 2005
 -
Bonjour,
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
Afficher les 7 commentaires
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 (cs_nura)