Ryu Higashi

@Midori Não consegui resolver, mesmo mudando o o nome do diretorio, não consegui, inicio o macro mas mesmo assim ele não funciona ;(

@Midori E outra coisa, saberia me informar onde estudar VBA para se aperfeiçoar?

@Midori Então sempre há apenas 1 arquivo, sempre com o começo de 2021, ele começa desse jeito depois vem mes, hora dia segundo entre outros, mas sempre substituimos o antigo pelo novo, não sou muito avançado em VBA, conseguiria implementar esse codigo Dir dentro do meu?

@Midori Então o Arquivo sempre começa com o Ano que seria 2021, e no proximo ano mudaria para 2022, mas não estou conseguindo fazer a implementação desse Começo de nome, assim como em Python, em que eu poderia buscar um arquivo com os 4 primeiros caracteres, por exemplo: Arquivo "2021-01-19-08-37-02" Outros como "2021-05-19-13-37-02" Gostaria de buscar apenas "2021-01-19-08-37-02"

Fiz esse macro aqui, porém queria trocar que invés de selecionar sempre o arquivo pelo nome dele selecionar apenas pelo 2021 alguém conseguiria me explicar como fazer? Sub Teste() ' ' Teste Macro ' Teste ' ' Atalho do teclado: Ctrl+Shift+S ' Range("A1").Select ActiveWorkbook.Queries.Add Name:="2021-01-19-08-37-02", Formula:= _ "let" & Chr(13) & "" & Chr(10) & " Fonte = Table.FromColumns({Lines.FromBinary(File.Contents(""C:\Users\ryu.higashi\Desktop\CANTracer\2021-01-19-08-37-02.txt""), null, null, 1252)})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " Fonte" With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _ "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=2021-01-19-08-37-02;Extended Properties=""""" _ , Destination:=Range("$A$1")).QueryTable .CommandType = xlCmdSql .CommandText = Array("SELECT * FROM [2021-01-19-08-37-02]") .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .ListObject.DisplayName = "_2021_01_19_08_37_02" .Refresh BackgroundQuery:=False End With End Sub Ja tentei fazer o uso do Dim, mas não sei explicitamente como fazer!