[Resolvido]Importação Excel para Access informando nome do campo

Boa tarde Senhores,
Estou com um problema e tentei usar alguns exemplos que encontrei aqui mas ate o momento no não conseguir resolver.

Antes eu tinha uma solução apresentada aqui mesmo no fórum.

Mas hoje no recebo as informações em excel de uma forma onde os campos tem nome com caracter especial (Ex. o que era "Descricao" passou a ser "Descrição" ou "LocalInstal" agora "Loc.Inst.").

A solução seria fácil se eu pudesse alterar os nomes dos campo no banco para igual ao do excel mas alguns campos do Excel vem com "." ou "ç" e o Access não aceita nome de campo como "Loc.Inst." por exemplo.

Obs: Extraio os arquivos excel do ERP SAP e salva em um drive de rede automatic, se eu abrir o excel a alterar os campos manual vai funcionar ,mas essa não é a ideia.
Alguém sabe como contornar esse problema e conseguir importar os arquivos de excel para o access ?

Obrigado.

passei pelo mesmo problema a a unica solução foi alterar os nomes na planilha para que o banco reconhecesse os campos. foi justamente inportando do ERP SAP.

Obrigado Rubens,
Mas vc entra no excel e altera toda vez que for importar?

Sds

geralmente altero somente os nomes dos cabeçalhos das colunas. De outra forma deu erro.

Olá a todos.
No Access, pode abrir o excel e alterar as células pretendidas, corrigindo os nomes dos campos.
Abraço

Boa noite !
Rubens , VC altera o as colunas do excel toda vez que gera um novo excel ? No meu caso gero o excel a todo momento pelo menos 3x ao dia

Teixeira
A ideia era que no próprio access via VBA eu importasse o excel sem ter que alterar os nomes das colunas manualmente.

Alguma dica ?
Obrigado

Ola,
Sim a ideia é os seguintes passos através do Access:
1.Abrir o ficheiro Excel e corrigir os nomes dos campos, gravar, fechar.
2.Importar como ja o fazia.
Pode incluir tudo no mesmo botão, o utilizador não da por nada.
Se pretender ajuda, poste pequeno exemplo do excel e nomes pretendidos a substituir.
Abraço

Olá, não sei se já resolveu, no entanto fiz pequeno exemplo com o seguinte código:

Código:

Private Sub cmdAlterarXLSX_Click()
'ahteixeira 2015 - maximoaccess
    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object

    Set oExcel = CreateObject("Excel.Application")

    Set oBook = oExcel.Workbooks.Open(Application.CurrentProject.Path & "\AlteraFicheiroExcel.xlsx")
    oExcel.Visible = False

    Set oSheet = oBook.Worksheets(1)

    oSheet.Range("A1").Value = "maximoaccess A1"
    oSheet.Range("B1").Value = "maximoaccess A2"
    
    oBook.Save
    oBook.Close
    oExcel.Quit
    
    MsgBox "Feito, Veja ficheiro excel.", vbInformation
End Sub

Abaixo ficheiro de teste.
Abraço

Perfeito !!!
Muito Obrigado !!!

Olá, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço