Visual Basic Abrir arquivo que muda de nome a cada 25 dias

[Aron Gerd Ristow Filho]

Estou criando uma planilha mestre que abre outras planilhas dentro da pasta da empresa, pois os operários da qualidade perdem muito tempo abrindo as pastas até chegar nas planilhas de coleta de dados da firma, porém, essas planilhas se "renovam" a cada 25 dias (aproximadamente), e queria fazer de um jeito que eu nao precisasse mudar o codigo a cada mes basicamente, estou tentando usar esse outro modelo que encontrei aqui no CdH, porém, nao está funcionando. (lembrando que estou estagiando aqui na empresa e toda essa parte de programação é nova para mim, fiz bastante coisa ja, inclusive outra planilha mestre que abre as planilhas com nome fixo, porém, nao sei como adicionar essa variavel do nome

Ex: Planilha_batimento_144

Planilha_batimento_145

Planilha_batimento_146

 

segue o código que estou usando

Sub CommandButton1_Click()

Dim arqSys As FileSystemObject

Dim objArq As File

Dim minhaPasta

Dim nomeArq As String

Dim dataArq As Date

Const Diret As String = "G:\Fabrica\Controle de Processo\Armature\CEP\10543841-PG260-A\400-58 - CNC Lathe\01- Batimento do Comutador\2019"

Set arqSys = New FileSystemObject

Set minhaPasta = arqSys.GetFolder(Diret)

dataArq = DateSerial(1900, 1, 1)

For Each objArq In minhaPasta.Files

If objArq.DateLastModified > dataArq And objArq.Name Like "*.xl*" Then

dataArq = objArq.DateLastModified

nomeArq = objArq

End If

Next objArq

Workbooks.Open nomeArq

Set arqSys = Nothing

Set minhaPasta = Nothing

End Sub

 

[Basole]

@Aron Gerd Ristow Filho este código pra mim está funcionando, abre o último arquivo *.xl* modificado. Pelo que entendi esse é o objetivo, correto ?

[Aron Gerd Ristow Filho]

@Basole eu consegui, é que meu excel nao estava com a biblioteca de scripting ativa, o último usuário daqui desativou e eu me atrapalhei, obrigado pessoal, podem fechar o topico