[Resolvido]Exportar dados do Access para uma celula especifica do excel

Olá,
gostaria de obter ajuda acerca de como se faz a transferencia de uma dado de uma tabela para uma celula especifica do excel.
Obrigado

Temos aqui no forum alguns tópico resolvidos sobre exportação e importação para e do Excel. Dê uma pesquisada por Excel exportar.

sim, mas o que pretendia era exportar um dado campo de uma tabela/consulta do access para uma celula especifica do excel.
Exemplo:
- o nome do funcionário é exportado para a célula d7, da folha 'impressocliente' do ficheiro do excel.

isto é, os dados são controlados no access e o impressos são trabalhados no excel, com formulários personalizados.

Obrigado.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Resolvido? Nem por isso!
Mas obrigado pelo esforço.

Veja este código. Está nesta página: http://www.macoratti.net/excel_vb.htm. Talvez te ajude a desenvolver o que está pretendendo.

Dim xl As New Excel.Application
Dim xlw As Excel.Workbook

'Abrir o arquivo do Excel
Set xlw = xl.Workbooks.Open("c:\teste\teste.xls")

' definir qual a planilha de trabalho
xlw.Sheets("Plan1").Select

'Exibe o conteúdo da célula na posição 2,3

' variavel = xlw.Application.Cells(2, 3).Value
MsgBox xlw.Application.Cells(2, 3).Value



' Fechar a planilha sem salvar alterações
' Para salvar mude False para True

xlw.Close False

' Liberamos a memória

Set xlw = Nothing
Set xl = Nothing

Grande abraço.

Veja este outro exemplo encontrado na net:


Set objExcel = CreateObject("Excel.application")

objExcel.Visible = True

With objExcel
.workbooks.Open (strPlanilha)
.selection.currentregion.select
'.selection.autofilter
.range("A1").select
'alterando o nome do campo da coluna
.range("A1") = "Dt agendada"
.range("B1") = "Controle Visitas"
.range("C1") = "Nº do chamado"
.range("D1") = "Agencia"
.range("E1") = "Username"
.range("F1") = "Empresa/Cliente"
.range("G1") = "Endereço"
.range("H1") = "Bairro"
.range("I1") = "Contato"
.range("J1") = "Telefone"
.range("K1") = "Produto"
.range("L1") = "Periodo"
.range("M1") = "Tipo Emp"
.range("N1") = "Nome do Operador"
.range("O1") = "polo"
.range("P1") = "cidade"
.range("Q1") = "estado"
.range("R1") = "cnpj"
.workbooks(1).Close savechanges:=True
.Quit
End With
Set objExcel = Nothing


.Columns("A").NumberFormat = "dd/mm/yyyy"

Autor: MTeles - Access 2k & WinXP, IIS 5

obrigado. vou experimentar!

A funcionar em pleno.
Obrigado ao forum!