Selecionar arquivo excel para importação

Boa noite pessoal,

Estou precisando importar arquivos do Excel para o Access, são arquivos com o mesmo formato, porém os nomes variam. Consegui importar com um nome fixo, porém facilita bastante se puder escolher o arquivo para não precisar renomear.

Usei o seguinte código:

Private Sub Comando0_Click()
'
Dim strTabela As String
Dim strSQL As String
Dim bdExcel As DAO.Database
Dim rs, rs1 As DAO.Recordset
'Passa local e nome do arquivo
strArquivo = CurrentProject.Path & "\Notas.xls"


Gostaria de poder escolher o arquivo com o nome gerado pelo site de onde baixo o arquivo.

Desde já agradeço a quem possa me ajudar.

Fernando

Olá


Veja se ajuda amigo.


https://www.maximoaccess.com/t30696-resolvidotransformar-planilha-excel-em-access?highlight=exportar+planilha+excel



Nao sendo o que procura, retorne que tentaremos achar uma solução ok ?


Abraços

Segue projeto que estou tentando fazer para aprender a realizar importação do Excel para o Access.

Gostaria de poder importar a planilha "Notas", se possível de todos os arquivos que estiverem no diretório do banco de dados, pois os arquivos são gerados com o número do CNPJ seguido de 01.AAAA (ano) e terei que importar diversos arquivos com estas características, quero importar sem ter que renomear arquivo por arquivo.

Se alguém poder me ajudar agradeço.

Fernando

Phillip_Junior, não consegui com a sua sugestão.

De qualquer forma muito obrigado.

Fernando

Olá



Desculpe, houve um equivoco no link que ofereci como opção.

Veja

https://www.maximoaccess.com/t612-importar-dados-do-excel-para-o-access-dao


Abraços

Bom dia, acho que a dúvida do amigo é a mesma que a minha.

Como fazer um botão "Selecione o arquivo a ser importado" para que o usuário possa selecionar um arquivo qualquer em um diretório qualquer e em seguida clique num botão "Importar".

Alguém consegue ajudar?

Olá a todos,

Não falta exemplos no forum, vejam como fazer uma "Busca":
https://www.maximoaccess.com/t1115-busca-no-forum-search

Olha este aqui por exemplo na mensagem 8:
https://www.maximoaccess.com/t19980p7-consultar-dados-de-excel-para-access

Abraço a todos

O exemplo fornecido me atendeu perfeitamente! muito obrigado!

Olá Gabriel Nascimento,

Obrigado pelo retorno, o fórum agradece.

Não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Aguardemos que o autor do tópico também se dê por satisfeito e finalmente, por resolvido.

Olá a todos,

Gabriel, tem razão, agurdamos então retorno do Feranando.

Abraço a todos