Как да отворите най -новия файл в папка в Microsoft Excel
В случай, че искате VBA код, който ще ви позволи да отворите наскоро записания файл в папката само с едно щракване върху бутона за макрос.
Въпрос): Имам екип от 10 души и спешно търся макрос, който да ми помогне да отворя най -новия файл, записан от член на екипа, така че да не се налага да вървя по пътя, по който файлът е записан.
Трябва да следваме следните стъпки:
- Кликнете върху раздела Разработчик
- От групата Кодове изберете Visual Basic
- Въведете следния код в модула на работния лист
Опция Изрично
Под най -новия файл ()
Затъмнете MyPath като низ
Dim MyFile As String
Dim LatestFile As String
Затъмнете LatestDate като дата
Затъмнете LMD като дата
MyPath = "C: \ Потребители \ Документи \"
Ако е правилно (MyPath, 1) "\" Тогава MyPath = MyPath & "\"
MyFile = Dir (MyPath & "*.xls", vbNormal)
Ако Len (MyFile) = 0 Тогава
MsgBox "Не са намерени файлове …", vbExclamation
Изход от Sub
Край Ако
Направете, докато Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Ако LMD> LatestDate Тогава
LatestFile = MyFile
LatestDate = LMD
Край Ако
MyFile = Реж
Цикъл
Работни книги. Отворете MyPath & LatestFile
End Sub
По този начин, използвайки макро код, ще можем да отворим най -новия файл, записан от члена на екипа.
Изтегляне - Как да отворите най -новия файл в папка - xlsm
