如何在Microsoft Excel中打开文件夹中的最新文件

如果您想要一个VBA代码，该代码将允许您通过单击宏按钮打开文件夹中最近保存的文件。

问题）：我有一个10人的团队，我正在急切地寻找一个宏，该宏将帮助我打开团队成员保存的最新文件，这样我就不必走文件保存的道路。

我们需要执行以下步骤：

单击“开发人员”选项卡。从“代码”组中，选择“ Visual Basic”

img1

  • 在工作表模块中输入以下代码

显式选项

Sub NewestFile（）

将MyPath作为字符串

将MyFile作为字符串

将Dim LatestFile作为字符串

将最新日期作为日期

LMD作为日期

MyPath =“ C：\ Users \ Documents \”

如果Right（MyPath，1）<>“ \”然后MyPath = MyPath＆“ \”

MyFile = Dir（MyPath＆“ * .xls”，vbNormal）

如果Len（MyFile）= 0，则

MsgBox“未找到文件…​”，vbExclamation

退出Sub

如果

结束

做While Len（MyFile）> 0

LMD = FileDateTime（MyPath＆MyFile）

如果LMD> LatestDate然后

LatestFile = MyFile

LatestDate = LMD

如果

结束

MyFile =目录

循环

Workbooks.Open MyPath＆LatestFile

结束子

img2

这样，使用宏代码，我们将能够打开团队成员保存的最新文件。

image 4