Importar arquivo com nome de datas

Pessoal,

Estou com uma dúvida, é possível importar arquivo .csv com data no título? Hoje tenho uma base que importar alguns arquivos .csv para se atualizar, porém os arquivo sempre vem com data e hora no titulo, então todos os dias tenho que renomear manualmente retirando a parte das datas e deixando somente o nome do arquivo.

Por exemplo o arquivo vem assim: "teste_2021-04-16-17-47.csv", e eu preciso renomeá-lo para "teste.csv" para que a importação no Access reconheça.

Abaixo meu código atual:

DoCmd.TransferText acImportDelim, "SGSI_SI", "TBL_SGSI_SI_BALDE", "D:\Arquivos\!_UTEP OESTE\!BD_Gestao_Obras_UTEP-OESTE\SGEO_ATUAL\Relatorios UTEP\SGSI_SI.csv", False, "", 1252

Espero que possam me ajudar.

Desde já, muito obrigado!

Hoje utilizo Access 365.

Boa tarde
Com este código
DoCmd.TransferText acImportDelim, "SGSI_SI", "TBL_SGSI_SI_BALDE", "D:\Arquivos\!_UTEP OESTE\!BD_Gestao_Obras_UTEP-OESTE\SGEO_ATUAL\Relatorios UTEP\SGSI_SI.csv", False, "", 1252
Não sei como importa o arquivo "teste.csv"
Quer mudar o título (dentro do ficheiro) ou o nome do ficheiro?

Bom dia!

o arquivo teste.csv foi somente um exemplo, vamos ignora-lo e nos ater ao caso real.

DoCmd.TransferText acImportDelim, "SGSI_SI", "TBL_SGSI_SI_BALDE", "D:\Arquivos\!_UTEP OESTE\!BD_Gestao_Obras_UTEP-OESTE\SGEO_ATUAL\Relatorios UTEP\SGSI_SI.csv", False, "", 1252

Ele está importando o arquivo SGSI_SI.csv normalmente, mas esse arquivo sempre vem com a data e hora no título, ex: SGSI_SI.csv_2021-04-17-08-00, então eu tenho que ficar renomeando manualmente para SGSI_SI.csv para que o Access o importe.

É possível o Access importar o arquivo com a data no titulo ?(Levando em consideração que as datas mudam todos os dias, logo nós temos uma parte do nome fixo que é o "SGSI_SI" e uma parte do nome variável que é a data e hora "_2021-04-17-08-00").

Olá Caio

Apenas dando sugestões:
Não sei, em que momento você o renomeia.
Esse nome de arquivo, foi nomeado por alguém que não conhece programação.
Digo isso porque a extensão está no meio:
SGSI_SI.csv_2021-04-17-08-00
Que deveria estar assim: SGSI_SI_2021-04-17-08-00.csv

Tem outra coisa:
O Access não aceita traços ( - ) no lugar dele temos que usar underline ( _ )
É difícil ajudar mais por não saber exatamente o modus operandis  da coisa .

O que precisa é automatizar  a modificação do nome evitando
fazê-lo manualmente.

Talvez mudar para:

SGSI_SI_2021_04_17_0800.csv

Talvez isso te de um Norte, caso contrário, explique-nos exatamente como você muda o nome.

Balem

Nobezinho,

Desculpe o erro, mas o nome correto é o "SGSI_SI_2021-04-17-08-00.csv", eu que digitei "SGSI_SI.csv_2021-04-17-08-00" de maneira errada.

Quanto ao momento em que eu renomeio o arquivo, é sempre antes da base de dados atualizar. Eu vou lá na pasta onde o arquivo está e o renomeio por meio do próprio Windows.

Quanto a automatização da modificação do nome, sabe como posso fazer isso ?

Caio

Deixe-me entender.

"Eu vou lá na pasta onde o arquivo está e o renomeio pelo próprio Windows"

Onde está essa pasta, no teu pc ou fora dele, onde?

Como vc renomeia o arquivo?

Aguardo...

Vamos lá!

1º-Sim, está no meu PC. No endereço "D:\Arquivos\!_UTEP OESTE\!BD_Gestao_Obras_UTEP-OESTE\SGEO_ATUAL\Relatorios UTEP";
2º-Eu vou até o endereço citado acima, seleciono o arquivo em questão("SGSI_SI_2021-04-17-08-00.csv"), teclo F2, e o renomeio para "SGSI_SI.csv";

Como eu disse, isso é feito de maneira manual, todos os dias.

Então a minha necessidade é eliminar essa ação de ter que ir até essa pasta e renomear o arquivo dessa maneira.

Acredito que as únicas maneiras disso acontecer é:

1º- O Access procurar o arquivo "SGSI_SI_2021-04-17-08-00.csv" e importa-lo com base somente no seu titulo inicial antes da data que é "SGSI_SI";

ou

2º- Criar algum arquivo .bat para renomear esses arquivos, mas tenho pouco entendimento sobre isso então não sei como realizar.

Aguardo retorno, se ficou ou gerou mais alguma dúvida, por favor, me sinalize.

Na pasta são mais de um arquivo?

Todos começam com SGSI_SI?

por favor, me passe alguns nomes de arquivos

Tem vários arquivos .txt na pasta, mas somente um com o nome "SGSI_SI"

Caio

Eis teu código:

Function AlteraNomes()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "D:\"
MyFile = Dir(MyFolder & "Arquivos\!_UTEP OESTE\!BD_Gestao_Obras_UTEP-OESTE\SGEO_ATUAL\Relatorios UTEP\")

Name MyFolder & MyFile As MyFolder & Left(MyFile, 7) & ".csv"

End Function

confira o caminho do arquivo se está correto.

É só chamar a função

{ }'s

Balem

Funcionou com somente 1 arquivo na pasta.

Mas se houvessem outros arquivos de nomes diferentes a serem modificados, como ficaria ?

Exatamente por isso que perguntei a você se teria mais de um arquivo com esse inicio de nome.

E você disse que somente um.

Então, teste o código abaixo.

Function AlteraNomes()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "D:\"
MyFile = Dir(MyFolder & "Arquivos\!_UTEP OESTE\!BD_Gestao_Obras_UTEP-OESTE\SGEO_ATUAL\Relatorios UTEP\SGSI_SI*.csv")
Do While MyFile <> ""

   Name MyFolder & MyFile As MyFolder & Left(MyFile, 7) & ".csv"

Loop

End Function

Caio

Foi resolvido?