Trucsweb.com

Forum de discussion

 Forum « Programmation ASP » (archives)

Re: VBS+BD+EXCEL probleme Urgent HElp

Envoyé: 16 août 2005, 9h41 par Oznog


Salut,

Au regard de ton code, tu sais récupérer les infos et les afficher (enfin créer un fichier HTML sur le disque).

Il reste donc seulement la génération du fichier Excel. Tu peux y aller à la main, exactement comme la génération du document HTML ou encore passer par les fonctionnalités ADO exactement comme on le ferait avec une base de données.

Voici un exemple qui génère une sortie Excel. tu peux le convertir pour générer un document .xls. N'oublie pas de retirer le ContentType "application/vnd.ms-excel".

<%@ Language=VBScript %>
<%
Response.Buffer = TRUE
Response.ContentType = "application/vnd.ms-excel"

Function twAff_excel()
Dim aChamp, sLigne, x, y
y = 1
x = 1
aChamp = split("111,222,333,444,555,666,777,888,999,000",",")
sLigne = "ID;PWXL;N;E" & vbcrlf
for x = 0 to UBound(aChamp)
sLigne = sLigne & "C;Y1;X"&x+1&";K"&CHR(34)&aChamp(x)&CHR(34) & vbcrlf
next
for y = 0 to 10
for x = 0 to UBound(aChamp)
if aChamp(x) <> "" then
sLigne = sLigne & "C;Y"&y+1&";X"&x+1&";K"&CHR(34)&Replace(aChamp(x), ";", ":")&CHR(34) & vbcrlf
else
sLigne = sLigne & "C;Y"&y+1&";X"&x+1&";K"&CHR(34)&" "&CHR(34) & vbcrlf
end if
next
next
sLigne = sLigne & "E" & vbcrlf
response.write sLigne
end function
twAff_excel()
%>

Aussi exemple de connexion ADO si jamais.. :

Dim oConn As New ADODB.Connection
With oConn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Extended Properties").Value = "Excel 8.0"
.Open "C:\document.xls"
'....
.Close
End With

Ciao
Oznog


Réponses

 Aucune réponse à ce message... 
Aucun médias sociaux
X

Trucsweb.com Connexion

X

Trucsweb.com Mot de passe perdu

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte