Affichage d'une feuille excel en asp

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

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)