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!