ASP et EXCEL

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.

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:\test.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

-------------------------------
Réponse au message :
-------------------------------

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.

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

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

Hanane




-------------------------------
Réponse au message :
-------------------------------

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

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

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



-------------------------------
Réponse au message :
-------------------------------

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

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.

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




-------------------------------
Réponse au message :
-------------------------------

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.

Cela marche, merci pour ton aide précieuse

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
-------------------------------
Réponse au message :
-------------------------------

> 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:\test.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
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> 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.
>