Recordset vers excel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 446 fois - Téléchargée 28 fois

Contenu du snippet

Donc , c un peitit code qui permet d'envoyer le contenu d'un recordset vers excel, code sans pretention mais qui marche qd mm lol

Source / Exemple :


searchRS.RecordSource = "select " + campo$ + " from " +from$ + " Where " + Where$ + orden$
searchRS.Refresh

'' Vers excel
'''''''' Contenu de la requete vers excel (Merci)
Dim xlApp
Dim xlBook
Dim xlSheet
Dim col, row As Integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

row = 1
''searchRS.Recordset.RecordCount ''Numero de ligne
col = 1
'' Checkcampos$ ''numero de colonne

searchRS.Recordset.MoveFirst
''''''''''''''' ENTETE''''''''''''''''''''
    While col <= Checkcampos$
        xlApp.Worksheets(1).Cells(row, col).Value = searchRS.Recordset.Fields(col - 1).Name
        xlApp.Worksheets(1).Cells(row, col).ColumnWidth = "30"
        col = col + 1
    Wend

'''''''''''''''  Corps ''''''''''''''''''''''
While searchRS.Recordset.EOF = False
     row = row + 1

    While col <= Checkcampos$
        xlApp.Worksheets(1).Cells(row, col).Value = searchRS.Recordset.Fields(col - 1)
        xlApp.Worksheets(1).Cells(row, col).ColumnWidth = "30"
        col = col + 1
    Wend
    col = 1
    searchRS.Recordset.MoveNext
   
Wend
rs$ = MsgBox("Procedure Termine", vbInformation)
xlApp.Visible = True

Conclusion :


Amusez vous bien

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
29 octobre 2011

IIHJ
Messages postés
10
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
4 août 2009

merci pour le code
Messages postés
2
Date d'inscription
jeudi 23 février 2006
Statut
Membre
Dernière intervention
24 février 2006

merci pour le cod,c'est vraiment c q j veux

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.