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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 699 fois - Téléchargée 37 fois

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

Ajouter un commentaire

Commentaires

Commenter la réponse de cs_delaide

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.