Pb ecriture resultat d'une requete SQl dans un fichier excel
Bonjour,
J'ai un script VBS qui lance une requete SQL puis ecrit le resultat dans un fichier excel.
mais j'ai un pb que je n'arrive pas a resoudre :(
voila le bout de code:
Code:
1 2 3 4 5 6 7 8 9
|
While Not(rst.EOF)
Do While i<65537 And Not(rst.EOF)
r.cells(i,1)=rst.Fields(0)
r.cells(i,2)=rst.Fields(1)
r.cells(i,3)=rst.Fields(2)
r.cells(i,4)=rst.Fields(3)
r.cells(i,5)=rst.Fields(4)
..... |
il me donne cette erreur Objet requit : 'Cells' et la ligne correspondante est :
Code:
r.cells(i,1)=rst.Fields(0)
je ne comprend pas pourant j'ai bien mis le .Cells!! :roll:
viola la declaration de mes champs:
Code:
1 2 3 4 5 6 7 8
| Dim xlapp, classeur, r
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = False
xlapp.DisplayAlerts = False
Set classeur = xlapp.Workbooks.add
classeur.Worksheets(3).Delete
classeur.Worksheets(2).Delete
Set r = classeur.Sheets(1) |