Range.CopyFromRecordset, méthode (Excel)

  • Article

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.