Compartir vía


Método Range.CopyFromRecordset (Excel)

Copia el contenido de un objeto Recordset ADO o DAO en una hoja de cálculo, comenzando en la esquina superior izquierda del rango especificado. Si el objeto Recordset contiene campos con objetos OLE, este método no se completará con éxito.

Sintaxis

expression.CopyFromRecordset (Data, MaxRows, MaxColumns)

expresión Variable que representa un objeto Range.

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Datos Obligatorio Variant Objeto Recordset que se copiará en el intervalo.
MaxRows Opcional Variant Número máximo de registros que se copiarán en la hoja de cálculo. Si omite este argumento, se copiarán todos los registros del objeto Recordset.
MaxColumns Opcional Variant Número máximo de campos que se copiarán en la hoja de cálculo. Si omite este argumento, se copiarán todos los campos del objeto Recordset.

Valor devuelto

Long

Observaciones

La copia comienza en la fila actual del objeto Recordset. Al finalizar la copia, la propiedad EOF del objeto Recordset será True. Se recomienda establecer una variable de objeto en el intervalo al que se va a copiar desde el conjunto de registros. Si no lo hace, pueden producirse errores de automatización genéricos en función del conjunto de registros y del intervalo.

Ejemplo

En este ejemplo se copian los nombres de campo de un objeto DAO Recordset en la primera fila de una hoja de cálculo y se ponen en negrita. Después, se copia el conjunto de registros en la hoja de cálculo, comenzando en la celda 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.