Как открыть самый новый файл в папке в Microsoft Excel

Если вам нужен код VBA, который позволит вам открыть недавно сохраненный файл в папке, просто нажав кнопку макроса.

Вопрос): у меня команда из 10 человек, и я срочно ищу макрос, который поможет мне открыть последний файл, сохраненный членом команды, чтобы мне не приходилось идти по пути, по которому файл сохранен.

Нам нужно выполнить следующие шаги:

Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic

img1

  • Введите следующий код в модуль рабочего листа

Явный параметр

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

img2

Таким образом, используя код макроса, мы сможем открыть последний файл, сохраненный участником команды.

image 4