VBA чтобы открыть Последний файл в папке
Как открыть самый новый файл в папке в Microsoft Excel
Если вам нужен код VBA, который позволит вам открыть недавно сохраненный файл в папке, просто нажав кнопку макроса.
Вопрос): у меня команда из 10 человек, и я срочно ищу макрос, который поможет мне открыть последний файл, сохраненный членом команды, чтобы мне не приходилось идти по пути, по которому файл сохранен.
Нам нужно выполнить следующие шаги:
Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic
-
Введите следующий код в модуль рабочего листа
Явный параметр
Sub NewestFile ()
Dim MyPath As String
Dim MyFile As String
Dim LatestFile As String
Dim LatestDate As Date
Dim LMD As Date
MyPath = «C: \ Users \ Documents \»
If Right (MyPath, 1) <> «\» Then MyPath = MyPath & «\»
MyFile = Dir (MyPath & «* .xls», vbNormal)
Если Len (MyFile) = 0, то
MsgBox «Файлы не найдены …», vbExclamation
Выход из подпрограммы
Конец Если
Делать, пока Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Если LMD> LatestDate, то
LatestFile = MyFile
LatestDate = LMD
Конец Если
MyFile = Dir
Цикл
Рабочие книги. Открыть MyPath и LatestFile
End Sub
Таким образом, используя код макроса, мы сможем открыть последний файл, сохраненный участником команды.