[Resolvido]Importar células específicas do Excel

Boa tarde galera!

Estive essa semana fazendo um sistema, que pensei ser simples, mas foram tantos testes de vba dele que não deram certo que não aguento mais xingar meu pc  kkk
Pensei que como adquiri muito conhecimento deste fórum, talvez alguém aqui consiga me ajudar a sair do 0.

Preciso programar um sistema que importe umas planilhas. Faço ele abrir uma janela pedindo o arquivo e ele importasse em uma tabela apenas as células B2 e D5 por exemplo.
Depois disso eu montaria as consultas e bla bla bla conforme preciso.
porém não consigo! =/

Alguém consegue me auxiliar com isso? pensei q fosse mais simples, mas caí do cavalo.

Assunto batido
https://www.maximoaccess.com/t33512-resolvidoexportar-o-que-esta-no-formulario-para-celulas-definidas-no-excel

Bom dia!

Meu caro DamascenoJr.

Vi o tópico que redirecionou, porém ele fala sobre o inverso (exportar pro excel, no caso pretendo importar do excel pro access).
Vi que comentou lá com o código abaixo:

Código:

On Error GoTo trataerro

    Dim xls As Object
    
    Set xls = CreateObject("Excel.Application")
    xls.Workbooks.Open ("CaminhoCompletoArquivo.xls")
    xls.Visible = False
    xls.WorkSheets("Planilha1").Activate
    
    xls.Range("A1").Value = "Nunca"
    xls.Range("B2").Value = "Desista"
    xls.Range("C3").Value = "Do"
    xls.Range("D4").Value = "Access"

    xls.ActiveWorkbook.Save
    xls.Application.Quit
    Set xls = Nothing
    
sair:
    Exit Sub
    
trataerro:
    MsgBox Err.Description, vbCritical, "Erro " & Err.Number
    Resume sair:

Em xls.Range("A1").Value = "Nunca"
pelo que entendi, ele coloca o valor "...." no range especifidado, dentro do excel correto?
teria como eu fazer esse .range.value = na minha linha do access?
pois ai daria certinho!!!! mataria essa dúvida do tópico
se der, a próxima importação já irá entrar na proxima linha correto?

Obrigado pelo redirecionamento, ajudou a abrir uma ideia!

Não há segredos.

Se isso joga pro Excel
xls.Range("A1").Value = me!Campo1EmFormAccess.Value
xls.Range("B2").Value = me!Campo2EmFormAccess.Value
xls.Range("C3").Value = me!Campo3EmFormAccess.Value
xls.Range("D4").Value = me!Campo4EmFormAccess.Value

Então isso traz
me!Campo1EmFormAccess.Value = xls.Range("A1").Value
me!Campo2EmFormAccess.Value = xls.Range("B2").Value
me!Campo3EmFormAccess.Value = xls.Range("C3").Value
me!Campo4EmFormAccess.Value = xls.Range("D4").Value

Caro DamascenoJr.

Nota 10!!!
Inseri o código que informou e deu certíssimo!!

Muito obrigado

Mais uma vez falo, aprendo mais com esse fórum do que com os cursos que comprei.

O fórum agradece o retorno. Sucesso.