Voir le flux RSS

informer

Exporter l'enregistrement courant d'un recordSet Access dans une feuille Excel avec CopyFromRecordset

Noter ce billet
par , 18/11/2018 à 10h25 (669 Affichages)
Bonjour,

Je ne parlerai pas de la solution qui est d'utiliser
  • Recordset.fields(i)
  • Recordset!NomChamp

Très bien documentée dans les différents forums et aides en tout genre!

Mon billet porte sur la solution avec CopyFromRecordset.

Merci à tee_grandbois.

Mieux qu'une explication de texte, le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Dim oRecSetSource As Recordset, oRecSetClone As Recordset
    Dim varBookmark As Variant

    Set objExcelApp = New Excel.Application
    objExcelApp.Visible = True
    Set wb = objExcelApp.Workbooks.Open("G:\Access\test")
    Set ws = wb.Sheets(1)


    sSQL = "SELECT * FROM tbl "
    Set oRecSetSource = CurrentDb.OpenRecordset(sSQL)
    Set oRecSetClone = oRecSetSource.Clone

    Do While Not oRecSetSource.EOF
        Debug.Print i
        oRecSetClone.Bookmark = oRecSetSource.Bookmark
        ws.Range("A" & i).CopyFromRecordset oRecSetClone, 1

        oRecSetSource.MoveNext
    Loop

End Sub
Remarque

J'utilise un reocordset clone car si j'utilise CopyFromRecordset sur oRecSetSource directement j'au une erreur 3021, pas d'explication pour cette erreur.

D'où l'utilisation d'un recordsetClone.

Envoyer le billet « Exporter l'enregistrement courant d'un recordSet Access dans une feuille Excel avec CopyFromRecordset » dans le blog Viadeo Envoyer le billet « Exporter l'enregistrement courant d'un recordSet Access dans une feuille Excel avec CopyFromRecordset » dans le blog Twitter Envoyer le billet « Exporter l'enregistrement courant d'un recordSet Access dans une feuille Excel avec CopyFromRecordset » dans le blog Google Envoyer le billet « Exporter l'enregistrement courant d'un recordSet Access dans une feuille Excel avec CopyFromRecordset » dans le blog Facebook Envoyer le billet « Exporter l'enregistrement courant d'un recordSet Access dans une feuille Excel avec CopyFromRecordset » dans le blog Digg Envoyer le billet « Exporter l'enregistrement courant d'un recordSet Access dans une feuille Excel avec CopyFromRecordset » dans le blog Delicious Envoyer le billet « Exporter l'enregistrement courant d'un recordSet Access dans une feuille Excel avec CopyFromRecordset » dans le blog MySpace Envoyer le billet « Exporter l'enregistrement courant d'un recordSet Access dans une feuille Excel avec CopyFromRecordset » dans le blog Yahoo

Mis à jour 16/11/2019 à 22h38 par informer

Catégories
Sans catégorie

Commentaires