São alguns passos para concretizar o que está querendo aqui...
- Identificar as planilhas
Pelo que vi no seu exemplo, o nome varia não só em função da data, mas também da hora, pois em um dos arquivos citados colocou '0900' = '9:00h' e outro com '1000' = '10:00'.
1.1 Caso tenha um padrão que altere somente a data fica mais fácil, pois geraria no arquivo 'gerencia.xls' uma rotina para criar o nome dos arquivos de maneira a pegar uma data específica, do dia ou do dia anterior, se for o caso.
' Para pegar o arquivo de hoje
="matriz_"&TEXTO(AGORA();"ddmmaaaa")&"1000"
Adapte o exemplo acima para buscar a data desejada na hora desejada, podendo se uma hora fixa.
1.2 Caso não tenha esse nome do arquivo fixo, poderá criar uma pasta específica que terá apenas o arquivo que deseja ler e fazer uma rotina (função) para ler todos os arquivos desta pasta conforme esse modelo que achei:
Lista todos os arquivos de uma pasta
Esse código está bem completo e poderá adaptar para buscar de uma pasta fixa e do tipo '.xls' fixo conforme sua necessidade.
Apos saber o arquivo que tem de ser referenciado, poderá buscar os dados!
- Busca dos dados
2.1 A busca dos dados pode ser de maneira direta conforme demonstrou no seu exemplo, se funcionar conforme deseja, ok!
2.2 Caso queira copiar esses dados, pode ter uma 'aba' temporária para copiar os dados, trabalhar e gravar na tabela desejada. Dependendo da complexidade da busca, se tem filtros a serem feitos etc, utilizo uma conexão direta via ODBC (Excel Files) para filtrar usando SQL os dados que quero e os filtros necessários. Em alguns projeto que tenho fiz utilizei essa função abaixo que poder ser adaptada conforme sua demanda:
Sub SQLPesq(ByRef WHAREHOUSE As String, ByRef PATHFILE As String, ByRef PATH As String)
' Macro para pesquisar no arquivo selecionado, dados do armazém selecionado
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=" & PATHFILE & ";DefaultDir" _
), Array( _
"=" & PATH & ";DriverId=1046;MaxBufferSize=2048;PageTimeout=5;" _
)), Destination:=Range(WHAREHOUSE)).QueryTable
.CommandText = Array( _
"SELECT `RESUMO$`.Clientes, `RESUMO$`.`Descrição do Armazém`, `RESUMO$`.IE, `RESUMO$`.`Tipo de Grão`, `RESUMO$`.`Total Geral`" & Chr(13) & "" & Chr(10) & _
"FROM `RESUMO$` `RESUMO$`" _
)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "tbl" & WHAREHOUSE
.Refresh BackgroundQuery:=False
End With
End Sub
Após essa busca teria a forma como trabalhar os dados, manipular, formatar e gravar essas informações na tabela, mas acho que ficaria fora do escopo do que perguntou.
Espero ter ajudado!
gerencia.xls
pega as informações das planilhas anteriores ou somente da do dia atual? Todas planilhas, inclusive agerencia.xls
, ficam na mesma pasta?