Range.CopyFromRecordset-Methode (Excel)

Kopiert den Inhalt eines ADO- oder DAO-Recordset-Objekts in ein Arbeitsblatt, wobei an der linken oberen Ecke des angegebenen Bereichs begonnen wird. Enthält das Recordset-Objekt Felder mit OLE-Objekten, schlägt diese Methode fehl.

Syntax

Ausdruck. CopyFromRecordset (Data, MaxRows, MaxColumns)

Ausdruck Eine Variable, die ein Range-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Daten	Erforderlich	Variant	Das Recordset-Objekt, das in den Bereich kopiert werden soll.
MaxRows	Optional	Variant	Die maximale Anzahl von Datensätzen, die in das Arbeitsblatt kopiert werden sollen. Wenn Sie dieses Argument nicht angeben, werden alle Datensätze im Recordset-Objekt kopiert.
MaxColumns	Optional	Variant	Die maximale Anzahl von in das Arbeitsblatt zu kopierenden Feldern. Wenn Sie dieses Argument nicht angeben, werden alle Felder im Recordset-Objekt kopiert.

Rückgabewert

Long

Hinweise

Das Kopieren beginnt mit der aktuellen Zeile des Recordset-Objekts. Nach dem Kopieren hat die EOF-Eigenschaft des Recordset-Objekts den Wert TrueTrue. Es wird empfohlen, eine Objektvariable auf den Bereich festzulegen, in den Sie aus dem Recordset kopieren. Andernfalls kann dies abhängig vom Recordset und dem Bereich zu generischen Automatisierungsfehlern führen.

Beispiel

In diesem Beispiel werden die Feldnamen von einem DAO-Recordset-Objekt in die erste Zeile eines Arbeitsblatts kopiert und fett formatiert. Anschließend wird in diesem Beispiel der Datensatz in das Arbeitsblatt kopiert, beginnend mit Zelle 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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.