4/5 (7 avis)
Vue 20 408 fois - Téléchargée 960 fois
<%@ 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>
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
9 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.