Criando uma Planilha a partir de um Recordset

Muitas vezes precisamos criar planilhas, à partir de base de dados Access, SQL, Oracle ou mesmo de um arquivo Excel.
Uma forma bem prática de criá-las é utilizando o método copyfromrecordset do objecto range.
Segue um exemplo que recebe um recordset criado, adiciona uma planilha e insere os dados

Sub GeraPlan(rs as ADODB.Recordset)

'Desenvolvida por Bruno Leite
'bruno_silva_leite@yahoo.com.br

dim ex as Object
dim wb as object


set ex = createobject("Excel.Application")
set wb= ex.workbooks.add

ex.visible=true


 for i=0 to rs.fields.count-1
  wb.sheets(1).range("A1").offset(0,i)=rs(i).name
 next i

wb.sheets(1).range("A2").copyfromrecorset rs


End Sub

Até a Próxima