Recordset vers excel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 522 fois - Téléchargée 29 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
belkassa
Messages postés
2
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
29 octobre 2011

20 juin 2013 à 18:55
IIHJ
cs_mesmed
Messages postés
10
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
4 août 2009

2 nov. 2007 à 16:11
merci pour le code
fadwatssi
Messages postés
2
Date d'inscription
jeudi 23 février 2006
Statut
Membre
Dernière intervention
24 février 2006

24 févr. 2006 à 09:40
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.