Range.CopyFromRecordset-Methode (Excel)Range.CopyFromRecordset method (Excel)

Kopiert den Inhalt eines ADO- oder DAO-Recordset-Objekts in ein Arbeitsblatt, wobei an der linken oberen Ecke des angegebenen Bereichs begonnen wird.Copies the contents of an ADO or DAO Recordset object onto a worksheet, beginning at the upper-left corner of the specified range. Enthält das Recordset-Objekt Felder mit OLE-Objekten, schlägt diese Methode fehl.If the Recordset object contains fields with OLE objects in them, this method fails.

SyntaxSyntax

Ausdruck. CopyFromRecordset (Data, MaxRows, MaxColumns)expression.CopyFromRecordset (Data, MaxRows, MaxColumns)

Ausdruck Eine Variable, die ein Range-Objekt darstellt.expression A variable that represents a Range object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
DatenData ErforderlichRequired VariantVariant Das Recordset-Objekt, das in den Bereich kopiert werden soll.The Recordset object to copy into the range.
MaxRowsMaxRows OptionalOptional VariantVariant Die maximale Anzahl von Datensätzen, die in das Arbeitsblatt kopiert werden sollen.The maximum number of records to copy onto the worksheet. Wenn Sie dieses Argument nicht angeben, werden alle Datensätze im Recordset-Objekt kopiert.If this argument is omitted, all the records in the Recordset object are copied.
MaxColumnsMaxColumns OptionalOptional VariantVariant Die maximale Anzahl von in das Arbeitsblatt zu kopierenden Feldern.The maximum number of fields to copy onto the worksheet. Wenn Sie dieses Argument nicht angeben, werden alle Felder im Recordset-Objekt kopiert.If this argument is omitted, all the fields in the Recordset object are copied.

RückgabewertReturn value

LongLong

HinweiseRemarks

Das Kopieren beginnt mit der aktuellen Zeile des Recordset-Objekts.Copying begins at the current row of the Recordset object. Nach dem Kopieren hat die EOF-Eigenschaft des Recordset-Objekts den Wert TrueTrue.After copying is completed, the EOF property of the Recordset object is True.

BeispielExample

In diesem Beispiel werden die Feldnamen von einem DAO-Recordset-Objekt in die erste Zeile eines Arbeitsblatts kopiert und fett formatiert.This example copies the field names from a DAO Recordset object into the first row of a worksheet and formats the names as bold. Anschließend wird in diesem Beispiel der Datensatz in das Arbeitsblatt kopiert, beginnend mit Zelle A2.The example then copies the recordset onto the worksheet, beginning at cell 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 
ws.Range("A2").CopyFromRecordset rs

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.