[VB] Problème de code Fermé

Question

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

slooptoo · Answer

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

[VB] Problème de code

1 réponse

Discussions similaires