[Resolvido]Botão Importar

Boa Tarde Amigos!

Sou novo no Access e estou aprendendo muita coisa ainda. Preciso importar um arquivo Excel para as tabelas do Access. Se eu selecionar na fila o item "A - base", na planilha do Excel será importada a sheet tbl_Base para a tabela "tbl_Base", se eu selecionar na fila o item "B - BI", a planilha do Excel será importada a sheet tbl_BI para a tabela "tbl_BI", caso eu cancele ele não irá fazer nada. Segue abaixo o arquivo

Amigo, Cole apenas esse COdigo no Botão que Importa:

Nao precisa nem selecionar o Destino ele ja Faz automaticamente...
Obs: Deixe a Plhanilhas.xlsx na pasta do Aplicativo...

Código:

Dim appExcel As Excel.Application
Dim wb As Excel.Workbook
Dim sh As Excel.Worksheet
Dim strValue As String
Set appExcel = CreateObject("Excel.Application")
Set wb = appExcel.Workbooks.Open(CurrentProject.Path & "\Planilhas.xlsx") 'nome do seu excel e seu diretorio
For Each sh In wb.Sheets
Debug.Print sh.Name
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, sh.Name, CurrentProject.Path & "\Planilhas.xlsx", True, sh.Name & "!"
Next
wb.Close
appExcel.Quit
On Error GoTo 0
Exit Sub

Veja aqui, que tem outras Formas...
https://www.maximoaccess.com/t612-importar-dados-do-excel-para-o-access-dao

FabioPaes muito obrigado pela dica, funcionou corretamente!

Só gostaria de saber se tem como definir em qual tabela que será importado a tabela do Excel? E meus arquivos são diários vindo com o nome do arquivo junto com a data do dia e horário que foi gerado o Excel, vindo neste formato: "Bases_Nome_DataHora"?

Logo mais Monto um Exemplo pra vc...

Fabio,aproveitando esse tópico,te enviei uma MP,chegou a ver.

OK FabioPaes! Muito obrigado pela ajuda!

Amigo, veja esse exemplo que montei... Basicamente acho que lhe ajudará!

https://www.maximoaccess.com/t26911-importar-planilha-excel-informando-a-tabela-de-destino-a-folha-sheets-de-origem-e-localizando-o-documento-excel#189675

Caso resolvido! Muito obrigado FabioPaes