Ola
Eu fiz uma macro em que eu importo um arquivo html para o excel, até ai td bem, o problema é que são 16 arquivos, eles sempre tem o mesmo começo, neste caso um número específico de cada arquivo, porém o restante é a representação do período que eu extrai de um progama, este é um exemplo de um dos arquivos: 021-20110201-20110224.html
então todas as vezes que eu for usar a macro ela não vai funcionar pq os números restantes nunca serão os mesmos, tem alguma forma de fazer uma macro levando em consideração somente o 3 primeiros números do arquivo ou, quem sabe, somente arquivos ".html" que estejam na pasta? Eu já pensei em renomear todos os arquivos via macro mas tb não sei como vou fazer com relação a numeração que vem depois do código inicial.
Abaixo estou enviando o meu código original.

Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"FINDER;file:///C:/Users/arley/Desktop/Nova%20pasta/021-20110201-20110224.html", _
Destination:=Range("$A$1"))
.Name = "021-20110201-20110224.html"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

Obrigado