Discussion :

[PrinceMaster77]

Je voudrais savoir s'il est possible en asp d'exporter des données d'une requête SQl vers un fichier au format csv d'excel ?

[pc75]

Bonjour,

Auras tu besoin de faire de la mise en forme ou bien c'est uniquement un tableau excel avec les données brutes ?

[PrinceMaster77]

Je voudrais tout de meme que mon fichier soit un peu ordonné, pour effectué des éventuels relecture.

[pc75]

Re,

Si ça peut te convenir ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Set Rs = CreateObject("ADODB.RecordSet")
connstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=MaBase.mdb"
 
mysql = ""
mysql = mysql & "SELECT Nom, Prenom "
mysql = mysql & "From MaTable "
 
Rs.open mySQL, connstring
if not Rs.EOF then
   chemin= "Recap.XLS"
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set Fic = fso.CreateTextFile(chemin, True)
   ' Titres des colonnes
   ' chr (34) remplace les guillements à la suite de l'instruction
   Fic.writeLine "ID;PWXL;N;E" ' Début du codage excel
   Fic.writeLine "C;Y1;X1;K" & CHR(34) & ("Nom") & CHR(34) 
   Fic.writeLine "C;Y1;X2;K" & CHR(34) & ("Prénom") & CHR(34) 
   Rs.movefirst
   Ligne = 2
   do while not Rs.eof
      Str_Nom = Rs(0)
      Str_Prenom = Rs(1)
      Fic.writeLine "C;Y" & Ligne & ";X1;K" & CHR(34) & (Str_Nom) & CHR(34) 
      Fic.writeLine "C;Y" & Ligne & ";X2;K" & CHR(34) & (Str_Prenom) & CHR(34) 
      Ligne = Ligne + 1
      Rs.MoveNext
   loop
 
   Fic.writeLine "E" ' Fin du codage excel
   Fic.Close
   Set Fic = Nothing
   Set fso = Nothing
end if
Rs.Close
Set Rs = Nothing

[PrinceMaster77]

Est ce qu'il est possible par exemple de faire des tableaux avec des contours ou plus difficile est t'il possible de réaliser des graphes avec les données exporter vers mon fichier excel ?

[pc75]

Re,

Pas avec le code que j'ai posté. Il te faudra utiliser une instance d'Excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set Xl = Server.CreateObject("Excel.Application")

La contrainte sera alors qu'Excel soit installé sur ton serveur.

[PrinceMaster77]

et je ne peux meme pas mettre des choses en gras ?

[pc75]

Re,

Désolé, mais avec le code que j'ai posté, tu ne peux rien faire d'autre que de remplir des cellules.

[Oluha]

sinon tu peux générer du code html et tu forces l'ouverture dans excel : http://www.henri-ruch.ch/ASP/Type_contenu/type_contenu.asp

[LEK]

Tu peux aussi trouver de nombreuses ressources sur excel et asp sur Dypso BackOffice.
Il y a un composant DypXSL qui est en téléchargement gratuit qui te permet de créer des fichiers xls à la volée sans avoir excel installé.