MicrosoftExcelのフォルダ内の最新ファイルを開く方法

マクロボタンをクリックするだけでフォルダ内の最近保存されたファイルを開くことができるVBAコードが必要な場合。

質問）：私は10人のチームを持っており、ファイルが保存されているパスに移動する必要がないように、チームメンバーによって保存された最新のファイルを開くのに役立つマクロを緊急に探しています。

以下の手順に従う必要があります：

[開発者]タブをクリックします。[コード]グループから、[VisualBasic]を選択します

img1

  • ワークシートモジュールに次のコードを入力します

オプション明示

Sub NewestFile（）

Dim MyPath As String

Dim MyFile As String

文字列としてのDimLatestFile

Dim LastDate As Date

日付としての薄暗いLMD

MyPath = “C：\ Users \ Documents \”

If Right（MyPath、1）<> “\” Then MyPath = MyPath＆ “\”

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

If Len（MyFile）= 0 Then

MsgBox “ファイルが見つかりませんでした…​”、vbExclamation

サブを終了

終了If

Do while Len（MyFile）> 0

LMD = FileDateTime（MyPath＆MyFile）

LMD> LatestDateの場合

最新ファイル= MyFile

最新の日付= LMD

終了If

MyFile = Dir

ループ

Workbooks.Open MyPath＆LatestFile

サブの終了

img2

このように、マクロコードを使用して、チームメンバーが保存した最新のファイルを開くことができます。

image 4