Exportar Dados Tabela Access para Excel via ADO Conecction

Bom dia Estimados amigos deste forum.

Gostaria de antecipadamente agradecer a vocês leitores deste tópico.

Vamos lá ... Estou com uma dúvida cabreira... fiz uma macro dentro do excel para exportar Dados de um arquivo .mdb para o excel
para simples conferencia e análise dos dados ... até ai tudo bem .. consegui isso com muito sucesso, o problema é
que exportam apenas os dados do Record Set , o Cabeçalho com os nomes dos dados não saem. ficando assim
quase que impossível saber o que significa os valores de cada coluna.

obs: Tenho minha aplicação no Excel e uso o banco Access para guardar meus dados , portanto utilizo ADO Conecction.
se tiverem uma outra sugestão em VBA que façam isso via ADO Conecction fico agradecido por ajudar-me.


segue abaixo o código que estou usando (ele esta fazendo 100% correto e funcionando , porém exporta sem o cabeçalho que é o meu problema)

Código:



Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & ActiveWorkbook.Path & "\RENDIMENTO.MDB;"
    .Properties("Jet OLEDB:Database Password") = "123"
    .Open
End With

Set rs = New ADODB.Recordset
rs.Open "Lancamentos", cn, adOpenKeyset, adLockOptimistic

Dim x As New Excel.Application
Dim w As Workbook
Dim s As Worksheet
Dim r As Range
Dim d As String

Set w = x.Workbooks.Add
x.Visible = True

Set s = w.Sheets("Plan1")
Set r = s.Range("A2")

r.CopyFromRecordset rs


rs.Close
Set rs = Nothing

FileSaveName = Application.GetSaveAsFilename("Export.xls", "Excel files (*.xlsx),*.xl", 1, "Salvar Como")
w.SaveAs FileSaveName, FileFormat:=xlOpenXMLWorkbook
If FileSaveName <> False Then
    MsgBox "Save as " & FileSaveName
End If

w.Close savechanges:=False
x.Quit

Set r = Nothing
Set s = Nothing
Set w = Nothing
Set x = Nothing


cn.Close
Set cn = Nothing




Muito OBrigado aos Amigos.

mfrigerio boa tarde veja esse exemplo se atende para o teu objectivo

Boa tarde amigo Avelino ...

Muito agradecido por compartilhar-me com esse exemplo será para mim um novo aprendizado ....

porém pelo que aprendi de seu código ...
você é quem coloca os nomes dos campos manualmente

[A1] = "Nº": [B1] = "Nome": [C1] = "Bairro": [D1] = "Cargo"
Plan1.Range("A2").CopyFromRecordset adors

e em seguida cola o resultado do Record Set.

o que estou tentando fazer é quase isso ...
porém gostaria de colocar o nome dos campos de forma automática refente a cada tabela.
pois a exportação será escolhida por meio de combobox , ou seja cada hoje os campos e nomes serão diferentes.

se puder continuar me ajudando , fico imensamente agradecido.

mas fica aqui meus parabéns e agradecimentos pelo exemplo compartilhado.

Boa Tarde amigo mfrigerio;

Você conseguiu uma solução para o seu problema?

Poderia compartilhar?

Boa tarde Amigo Pengo ...

Ainda não consegui resolver amigo.