[Resolvido]Copiar caixa de texto para celula do Excel

Por favor algume sabe um comando vba , estando eu com o Access aberto e o Excel aberto , copiar uma caixa de texto para uma celula do excel ?

Uso seguinte comando no access para abrir o Excel:

Código:

Application.FollowHyperlink "C:\Gerencia\SysVendas\TabelaTeste.xlsx"

Quero copiar o conteudo da caixa de texto do Access, usando um botao de comando, para dentro da celula A1 por exemplo da planilha Tabela Texte.slsx

Grato

Olá Andrá Luiz,

Já tentou a "Busca" aqui do fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Será isto por exemplo:
https://www.maximoaccess.com/t4770-resolvidoexportar-dados-do-access-para-uma-celula-especifica-do-excel

Abraço

Procurar eu procurei, mas talvez tenha faltado algum filtro a mais. Agradeco pela sua ajuda.
Assim ficou meu codigo , mas da erro em:

'Dim xl As New Excel.Application
'Dim xlw As Excel.Workbook
Tipo nao foi definido pelo usuario

Código:

Private Sub Imagem95_Click()
If MsgBox("SIM - Abre Tabela Excel            NÃO - Imprime usando Access ", vbYesNo + vbInformation, "Finalizando") = vbYes Then
'Application.FollowHyperlink "C:\Gerencia\SysVendas\MEI-Declaração Mensal de Receitas Brutas.xlsx"

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

'Abrir o arquivo do Excel
Set xlw = xl.Workbooks.Open("C:\Gerencia\SysVendas\MEI-Declaração Mensal de Receitas Brutas.xlsx")

' definir qual a planilha de trabalho
xlw.Sheets("Abril").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 True

' Liberamos a memória

Set xlw = Nothing
Set xl = Nothing

Else
DoCmd.OpenReport "RelatórioMei", acViewNormal
End If
End Sub

talvez ate mesmo esteja faltando alguma referencia a ser incluida no VBA

era isso mesmo vou testar aqui e comento

faltava a referencia Microsoft excel 15.0 object library

Perfeito !

Depois de inserir a referencia no VBA, e fazer os ajustes necessarios, ficou perfeito, segue o codigo.

Código:

Private Sub Imagem95_Click()
If MsgBox("SIM - Abre Tabela Excel            NÃO - Imprime usando Access ", vbYesNo + vbInformation, "Finalizando") = vbYes Then

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

'Abrir o arquivo do Excel
Set xlw = xl.Workbooks.Open("C:\Gerencia\SysVendas\MEI-Declaração Mensal de Receitas Brutas.xlsx")

If A2 = "Márcia Lima do Espírito Santo" Then
A = Me.Mes
Else
A = Me.Mes2
End If

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

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

xlw.Application.Cells(9, 2).Value = Me.A4
xlw.Application.Cells(9, 3).Value = Me.A5
'MsgBox xlw.Application.Cells(9, 2).Value
'MsgBox xlw.Application.Cells(9, 3).Value

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

xlw.Close True

' Liberamos a memória

Set xlw = Nothing
Set xl = Nothing

Else
DoCmd.OpenReport "RelatórioMei", acViewNormal
End If
End Sub

Olá André Luiz,

Fico feliz por ter conseguido, obrigado pela partilha de como ficou.
O fórum agradece.

Abraço