Recordset vers excel

Commenter

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

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.