ASP et EXCEL

Question

Je cherche désespérèment comment on fait pour passer les résultats d'une requête SQL sous ASP dans un fichier excel. Merci de m'aider avant que je me suicide.

hanhod · Answer

Salam,
La vie est trop chere pour ce suicider juste pour un simpe code :)
Essayez ce code :

 ' Déclare une variable objet destinée à contenir la 
' référence de l'objet. Dim as Object entraîne une 
' liaison à l'exécution.
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")

simorbit: ' Rend Excel visible au travers de l'objet Application.
ExcelSheet.Application.Visible = True
' Place du texte dans la première cellule de la feuille.
ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"
' Enregistre la feuille dans le répertoire C:	est.xls.
ExcelSheet.SaveAs "C:\ TEST.XLS"
' Ferme Excel en appliquant la méthode Quit sur l'objet Application.
ExcelSheet.Application.Quit
' Supprime la variable objet.
Set ExcelSheet = Nothing

A vous
HN

cs_rodman · Answer

Merci pour ton aide hanhod mais j'obtiens une erreur pour la ligne Dim ExcelSheet As Object.
L'erreur est: Expecting end of statement

hanhod · Answer

Tu travailles sur Chili!ASP sous Linux?? si c'est le cas, j'ai aucune idée pour l'erreur affiché !!

Hanane

cs_rodman · Answer

Désolé de t'avoir déranger mais je travaille sur linux et non sur chiliasp.

hanhod · Answer

Je crois que pour assurer le fonctionnement de ASP sous linux, on travaille avec cholosoft, non ? en ts cas, vous pouvez teser ce code aussi :

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)

DefaultFileDataItem= "Cel1" & CHR(9) & "Cel2" & CHR(9) & "Cel3"
objTextStream .writeLine DefaultFileDataItem

Do while nor Rs.EOF

FileDataItem = Rs("field3") & CHR(9) & Rs("field3") & CHR(9) & Rs("field3")
objTextStream .writeLine FileDataItem

Rs.Movenext
Loop

Bonne chance

Hanane

cs_rodman · Answer

Merci de tes nombreux conseils mais je crois que mon pb c'est que je ne peut créer des fichiers. J'ai déjà essayé plusieurs exemples et à chaque fois à la commande CreateTextFile, il m'affiche l'erreur
Microsoft VBScript runtime error 800a0046
permission denied.

hanhod · Answer

Salam,
Vous devez lui donner la permision de creer le fichier, et celà c'est avec la valeur '1' :

Set Objfs=Server.CreateObject("Scripting.FileSystemObject")
set f=Objfs.CreateTextFile(Server.MapPath(".") & "\Myfile.xls",1)

A vous

cs_rodman · Answer

Cela marche, merci pour ton aide précieuse

jakes0 · Answer

Bonjour à vous 2.
j'ai le même problème sauf que travaille sur Windows 2000 et que la ligne "ExcelSheet.Application.Visible = True " me provoque l'erreur "Microsoft VBScript runtime (0x800A01A8)
Object required "
Pouvez vous s'il vous plait m'aider?
Merci d'avance.Jakes

ASP et EXCEL

9 réponses

Votre réponse

Discussions similaires