Export données sous vb 6.0 vers classeur excel

Question

Bonjour,

Voici le code d'une de mes procédure dans un projet vb 6.0, la connexion au fichier Excel et l'enregistrement dans mon classeur se fait mais comment remplacer les données telle que 'Jean' ou 'fred' etc etc  par une variable de mon projet , quelle serait la syntaxe svp?

'

Create a new connection object for Book1.xls
Set conn = CreateObject("ADODB.Connection") ' Connexion ADODB
conn.Provider = "Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Users\......\Desktop\Book1.xls;Extended Properties=""Excel 8.0;HDR=YES;"""
conn.Open  ' Connexion ADODB ouverte
conn.Execute "Insert into MyTable (NAME, NAME2)" & _
   " ( 'Jean' , 'Fred')"
conn.Execute "Insert into MyTable (NAME, NAME2)" & _
   " values ('Joe', 'Thomas')"
conn.Close

dysorthographie · Answer

Bonjour,

Je t'invite à utiliser

Properties=""Excel 12.0;

Var1="Jean":Var2="Fred"
conn.Execute "Insert into MyTable$ (NAME, NAME2)" & _
   " ( '" & replace(Var1,"'","''") & "' , '" & replace(Var2,"'","''") & "')"

Export données sous vb 6.0 vers classeur excel

1 réponse

Votre réponse

Discussions similaires