Exporter des données d une base de donnée mysql vers excel

Commenter

Contenu du snippet

Vous voulez récupérer des données pour les mettre dans un fichier excel...Et bien voici une des solution....
Régalez vous avec...LOL!!!

Source / Exemple : 


dim aaaa
dim var1
lig1 = 2

set aaaa = createObject("Excel.Application")
aaaa.workbooks.add

set di = createobject("ADODB.connection")

'allez voir dans les sources ODBC'
di.open "Windows DSN Name","User","Passeword"
set rs= createobject("ADODB.recordset")

sql = "select NOM CHAMPS from NOM TABLE"
rs.open sql,di

do while not rs.eof
    var1 = rs.fields("Nom champ").value
		
    aaaa.range("A" & lig1).select
    aaaa.Activecell.formulaR1C1 = var1
		
    lig1 = lig1 + 1
	 rs.movenext
loop
rs.close

aaaa.columns("A").columnwidth = 25

aaaa.range("A1").select
aaaa.Activecell.formulaR1C1 = "GNAGNAGNA"

aaaa.activeworkbook.saveas "c:\nom fichier Excel.xls"

aaaa.quit

A voir également

Du même auteur (dewaker)