Cách mở tệp mới nhất trong thư mục trong Microsoft Excel

Trong trường hợp bạn muốn có mã VBA cho phép bạn mở tệp đã lưu gần đây trong thư mục chỉ bằng một cú nhấp chuột vào nút macro.

Câu hỏi): Tôi có một nhóm 10 người và tôi đang khẩn trương tìm kiếm một macro có thể giúp tôi mở tệp mới nhất do thành viên trong nhóm lưu để tôi không phải đi đến đường dẫn trong đó tệp được lưu.

Chúng ta cần làm theo các bước sau:

Nhấp vào tab Nhà phát triển Từ nhóm Mã, chọn Visual Basic

img1

  • Nhập mã sau vào mô-đun trang tính

Tùy chọn Rõ ràng

Sub NewestFile ()

Dim MyPath As String

Dim MyFile As String

Dim LatestFile As String

Dim mới nhất Ngày như ngày

Dim LMD As Date

MyPath = “C: \ Users \ Documents \”

Nếu Đúng (MyPath, 1) <> “\” Thì MyPath = MyPath & “\”

MyFile = Dir (MyPath & “* .xls”, vbNormal)

Nếu Len (MyFile) = 0 Thì

MsgBox “Không tìm thấy tệp nào …​”, vbExclamation

Thoát Sub

Kết thúc Nếu

Do While Len (MyFile)> 0

LMD = FileDateTime (MyPath & MyFile)

Nếu LMD> Ngày mới nhất thì

LatestFile = MyFile

Ngày mới nhất = LMD

Kết thúc Nếu

MyFile = Dir

Vòng lặp

Workbooks.Mở MyPath & Tập tin mới nhất

End Sub

img2

Bằng cách này, sử dụng mã macro, chúng tôi sẽ có thể mở tệp mới nhất được lưu bởi thành viên trong nhóm.

image 4