[Resolvido]Procurar Planilha Excel para importar e renomear nome ficheiro

Boa noite a todos,


Estou utilizando o código abaixo para realizar a importação dos dados de uma planilha do excel para uma tabela de um BD do Access, está funcionando perfeitamente com relação ao que se propõe o código (peguei aqui mesmo no fórum), porém preciso apenas melhorar três pontos, sendo:

a) Selecionar o local onde se encontra o arquivo para importação (notem que hoje está de forma fixa no C:);
b) O nome do arquivo a ser importado não tenha que ser único, ou seja, o arquivo poderá ter qualquer nome, desde que se mantenha a estrutura interna de dados;
c) Após a importação do arquivo, esse seja renomeado acrescentando ao final do seu nome original a palavra "importado". Dessa forma sendo possível o usuário visualizar que o arquivo já foi importado e diferencia-lo de forma clara de outros a serem importados.


Sendo possível tais ajustes, fiará perfeito.

Desde de já agradeço a todos.

Olá Cecílio Medeiros,

Faltou o código.

Para o que precisa não falta exemplos no forum, veja como fazer uma "Busca":
https://www.maximoaccess.com/t1115-busca-no-forum-search

Para a questão a) veja este tópico por exemplo:  https://www.maximoaccess.com/t9595p15-resolvidoabrir-uma-pasta-diretorio-escolher-arquivo-a-carregar-para-importacao
Para a questão b)  será ajustar no código (após implementar a técnica que fiz referencia na linha anterior) alterando o caminho para a variável txtFilePath
Para a questão c) pesquise no forum por name ou rename

Abraço

Álvaro, bom dia

Realmente esqueci de incluir o código na mensagem.

Segue abaixo.

Código:

Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = "C:\" ' drive onde se situa o seu documento excel
strTable = "tblFolhaRubricas" 'nome da tabela no seu banco
strFile = Dir(strPath & "folhaFechada.xls") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
que estiverem em C:\ para a tabela do banco.
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop


Olá Cecílio Medeiros,

Se baixar o exemplo que indiquei na mensagem anterior, é só alterar no código de:
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tbl_importada", txtFilePath, True

para:
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tblFolhaRubricas", txtFilePath, True

Por fim para fazer o rename, coloca a instrução corretamente na linha seguinte.
Aqui vou dar a pista de um tópico:
https://www.maximoaccess.com/t39991-resolvidomudar-o-nome-da-imagem-em-uma-determinada-pasta

É só ajustar o código.

Abraço

Boa noite Álvaro

Consegui resolver a situação, utilizei alguns dos exemplos sugeridos com adaptações e deu tudo certo.

Mais uma vez muito obrigado pela ajuda.

Olá Cecílio Medeiros,

Fico feliz por ter conseguido.
Se quiser partilhar o código como ficou, os membros do forum agradecem.

Abraço