[VB] Problème de code
adi59
Messages postés
20
Statut
Membre
-
slooptoo -
slooptoo -
Bonjour,
J'utilise une requête SQL pour charger une liste d'éléments. Je voudrais parcourir cette liste d'éléments et créer une ligne par élément dans un document excel qui comporte dans une première colonne son nom et dans une deuxième un autre champ.
Voici le code que j'utilise et qui ne marche pas.
Set testfac = TDConnection.TestFactory
Set myTList = testfac.NewList("SELECT * FROM TEST")
If myTList.count <> 0 Then
PathFile = "U:\Document\Test_Failed_Defects.xls"
Q_deleteFilePath(FilePath)
For Each entry In myDList
Set objFichier = CreateObject("Scripting.FileSystemObject")
Set MyFile = objFichier.CreateTextFile(PathFile, True)
MyFile.WriteLine "Test Name"
MyFile.WriteLine entry.field("TS_NAME")
MyFile.Close
Next
MsgBox "Report Created"
End IF
Existe-t-il quelque chose comme WriteRow? Pouvez vous m'aider?
Merci
J'utilise une requête SQL pour charger une liste d'éléments. Je voudrais parcourir cette liste d'éléments et créer une ligne par élément dans un document excel qui comporte dans une première colonne son nom et dans une deuxième un autre champ.
Voici le code que j'utilise et qui ne marche pas.
Set testfac = TDConnection.TestFactory
Set myTList = testfac.NewList("SELECT * FROM TEST")
If myTList.count <> 0 Then
PathFile = "U:\Document\Test_Failed_Defects.xls"
Q_deleteFilePath(FilePath)
For Each entry In myDList
Set objFichier = CreateObject("Scripting.FileSystemObject")
Set MyFile = objFichier.CreateTextFile(PathFile, True)
MyFile.WriteLine "Test Name"
MyFile.WriteLine entry.field("TS_NAME")
MyFile.Close
Next
MsgBox "Report Created"
End IF
Existe-t-il quelque chose comme WriteRow? Pouvez vous m'aider?
Merci
A voir également:
- [VB] Problème de code
- Code ascii - Guide
- Code puk bloqué - Guide
- Code de déverrouillage oublié - Guide
- Code activation windows 10 - Guide
- Scanner qr code pc - Guide
1 réponse
tres rapide et pas tres elegant : le fichier csv
de plus dans ton code tu ouvres le fichier pour chaque ligne ce qui est mal
Set testfac = TDConnection.TestFactory
Set myTList = testfac.NewList("SELECT * FROM TEST")
If myTList.count <> 0 Then
PathFile = "U:\Document\Test_Failed_Defects.xls"
Q_deleteFilePath(FilePath)
Set objFichier = CreateObject("Scripting.FileSystemObject")
Set MyFile = objFichier.CreateTextFile(PathFile, True)
For Each entry In myTList
MyFile.WriteLine "Test Name" & "," & entry.field("TS_NAME")
Next
MyFile.Close
MsgBox "Report Created"
End IF
de plus dans ton code tu ouvres le fichier pour chaque ligne ce qui est mal
Set testfac = TDConnection.TestFactory
Set myTList = testfac.NewList("SELECT * FROM TEST")
If myTList.count <> 0 Then
PathFile = "U:\Document\Test_Failed_Defects.xls"
Q_deleteFilePath(FilePath)
Set objFichier = CreateObject("Scripting.FileSystemObject")
Set MyFile = objFichier.CreateTextFile(PathFile, True)
For Each entry In myTList
MyFile.WriteLine "Test Name" & "," & entry.field("TS_NAME")
Next
MyFile.Close
MsgBox "Report Created"
End IF
