[Resolvido]Janela para importação de arquivo do excel

Boa noite galera,

Pesquisei muito aqui no fórum e achei um exemplo que estou adaptando ao que preciso, mas falta um último ajuste que não estou conseguindo fazer.

Seguinte, tenho um arquivo em excel com várias guias (sheets). Preciso importar cada guia dessas para uma tabela diferente, incluindo os dados da respectiva guia e mantendo os dados existentes na tabela. O código abaixo faz perfeitamente essa função, inclusive sem a necessidade de criar tabela temporária, o que é ideal para mim. A questão é que ele só importa o arquivo que estiver em um local fixo, com um nome específico também. O que eu preciso é que ao clicar no botão, abra uma janela para selecionar o arquivo, independente do nome, ai o usuário seleciona o arquivo e ao dar ok ele importa para as respectivas tabelas normalmente, como já faz.

Estou anexando o bd com o arquivo em excel também para exemplificar melhor. É um projeto para o trabalho, se puderem me ajudar fico muito grato.

Código:

Private Sub Comando0_Click()
 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("C:\Users\jprev\OneDrive\Área de Trabalho\Nova pasta\AO2019004301-B.xlsx") 'nome do seu excel e seu diretorio
For Each sh In wb.Sheets
 Debug.Print sh.Name
 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tbl_" & sh.Name, "C:\Users\jprev\OneDrive\Área de Trabalho\Nova pasta\AO2019004301-B.xlsx", True, sh.Name & "!"
Next
 wb.Close
 appExcel.Quit
 On Error GoTo 0
Exit Sub
End Sub

Olá João Paulo,

Existem varios exemplos no forum de como fazer isso, veja este por exemplo:
https://www.maximoaccess.com/t29991p3-resolvidocalculos-sobre-tabelas-ligar-excel-adionar-dados-a-tabela

Se desejar procurar no fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Abraço

Olá Assis, boa noite!!

Muito obrigado por responder minha mensagem. Na verdade procurei exaustivamente no fórum, vi inúmeros exemplos e tentei adaptar para o que eu preciso, inclusive esse código que estou usando foi adaptado de um exemplo de nosso amigo JPaulo. Contudo, na parte de VBA estou engatinhando ainda, tenho estudado em meu tempo livre mas confesso que tenho bastante dificuldade em questões mais complexas.

Os exemplos que encontrei do fórum, todos excelentes, em sua maioria buscam o arquivo em local específico, e os que possuem a janela para selecionar o arquivo não tem a opção de importar várias pastas de uma única vez. Esse exemplo do JPaulo é o que melhor se adapta ao meu projeto, por não criar tabela temporária e importar exatamente do jeito que eu preciso, várias pastas de uma única vez inclusive nomeando as tabelas.

A única questão mesmo é que não consegui adaptar o código para selecionar o arquivo ao invés de procurar em um local fixo.

Olá, veja se é isto:

cld.pt/dl/download/2ef96bf5-e27d-47fb-84b1-81ceb0d1e0b1/Importa_aquivo_xlsx.zip

Estude as alterações.
Nota: Apena copiei o seu código e atualizei o nome do ficheiro e diretorio pela variavel que tem essa informação.

Abraço

Olá Assis,

Testei aqui, era exatamente isso!! Não tenho como agradecer, vai me ajudar imensamente em um projeto aqui no trabalho.

O que certamente farei é estudar cada vez mais e melhorar, para um dia poder compartilhar algo também.

Muito obrigado pela ajuda!!

Olá João Paulo,

Fico feliz por ter ajudado, com o tempo vai ficar um especialista.
Está no fórum certo

Por o ultimo o meu nome é Alvaro, mas tranquilo.

Abraço

Mil perdões!!! Não sei da onde tirei Assis. Muito obrigado mesmo Álvaro!!