Como abrir o arquivo mais recente em uma pasta no Microsoft Excel
Caso você queira um código VBA que permita abrir o arquivo salvo recentemente na pasta com apenas um clique no botão macro.
Pergunta): Tenho uma equipa de 10 pessoas e procuro urgentemente uma macro que me ajude a abrir o último ficheiro guardado pelo membro da equipa para que não tenha de ir pelo caminho onde o ficheiro está guardado.
Precisamos seguir as etapas abaixo:
- Clique na guia Desenvolvedor
- No grupo Código, selecione Visual Basic
- Insira o seguinte código no módulo de planilha
Opção Explícita
Sub NewestFile ()
Dim MyPath As String
Dim MyFile As String
Dim LatestFile As String
Dim LatestDate As Date
Dim LMD como data
MyPath = "C: \ Usuários \ Documentos \"
If Right (MyPath, 1) "\" Then MyPath = MyPath & "\"
MyFile = Dir (MyPath & "* .xls", vbNormal)
Se Len (MeuArquivo) = 0 Então
MsgBox "Nenhum arquivo foi encontrado …", vbExclamation
Sair do Sub
Fim se
Do While Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Se LMD> Data mais recente, então
LatestFile = MyFile
LatestDate = LMD
Fim se
MeuArquivo = Dir
Ciclo
Workbooks.Open MyPath & LatestFile
End Sub
Desta forma, usando código de macro, poderemos abrir o último arquivo salvo pelo membro da equipe.
Download - Como abrir o arquivo mais recente em uma pasta - xlsm