Comment écrire 1 fic xls?

http://www.developpez.net/forums/viewtopic.php?t=391132

Bonjour,

Si tu n'as pas besoin de faire de mise en forme, je donne un bout de code.
Il ne nécessite pas l'installation de composant, et fonctionne sans être obligé d'avoir excel.

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
 
Set Rs = Server.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