Range.CopyFromRecordset, méthode (Excel)
Copie le contenu d’un objet Recordset DAO ou ADO sur une feuille de calcul, en commençant dans le coin supérieur gauche de la plage spécifiée. Si l’objet Recordset contient des champs renfermant des objets OLE, la méthode échoue.
Syntaxe
expression.CopyFromRecordset (Data, MaxRows, MaxColumns)
expression Variable représentant un objet Range.
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Données | Obligatoire | Variant | Objet Recordset à copier dans la plage. |
| MaxRows | Facultatif | Variant | Nombre maximal d’enregistrements à copier sur la feuille de calcul. Si cet argument est omis, tous les enregistrements dans l’objet Recordset sont copiés. |
| MaxColumns | Facultatif | Variant | Nombre de champs maximal à copier dans la feuille de calcul. Si cet argument est omis, tous les champs dans l’objet Recordset sont copiés. |
Valeur renvoyée
Entier long
Remarques
La copie commence à la ligne actuelle de l’objet Recordset. Après la copie, la propriété EOF de l’objet Recordset est True. Il est recommandé de définir une variable objet sur la plage vers laquelle vous copiez à partir du recordset. Le fait de ne pas le faire peut entraîner des erreurs d’automatisation génériques en fonction du jeu d’enregistrements et de la plage.
Exemple
Cet exemple copie les noms de champs d’un objet Recordset DAO sur la première ligne d’une feuille de calcul et met en forme les noms en caractères gras. L’ensemble des enregistrements est ensuite copié dans la feuille de calcul, à partir de la cellule A2.
For iCols = 0 to rs.Fields.Count - 1
ws.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
Next
ws.Range(ws.Cells(1, 1), _
ws.Cells(1, rs.Fields.Count)).Font.Bold = True
Set PushRange = ws.Range("A2")
PushRange.CopyFromRecordset rs
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.