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

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (dewaker)