Range.CopyFromRecordset (Excel)
Copia o conteúdo de um objeto Recordset da ADO ou o DAO em uma planilha, começando no canto superior esquerdo do intervalo especificado. Se o objeto Recordset tiver campos contendo objetos OLE, esse método falhará.
A cópia começa na linha atual do objeto Recordset. Após a conclusão da cópia, a propriedade EOF do objeto Recordset será True.
CopyFromRecordset (Data, MaxRows, MaxColumns)
Dim lngCopyFromRecordset As Long
lngCopyFromRecordset = ActiveCell.CopyFromRecordset(Data:=)
Arguments
O seguinte argumento é necessário
Data (Recordset) - O objeto Recordset a ser copiado no intervalo.
Optional arguments
Os seguintes argumentos são opcionais
MaxRows - O número máximo de registros a serem copiados na planilha. Se esse argumento for omitido, todos os registros no objeto Recordset serão copiados
MaxColumns - O número máximo de campos a serem copiados para a planilha. Se esse argumento for omitido, todos os campos no objeto Recordset serão copiados