Excel VBA Macro: Open Newest File (In User Selected Folder)
ฝัง
- เผยแพร่เมื่อ 7 ก.พ. 2025
- Excel VBA Macro: Open Newest File (In User Selected Folder). In this video, we go over how to automatically find and open the latest file in a user selected folder.
💥Subscribe: / @greggowaffles
Code:
Sub newest_file_in_folder()
Dim FldrPicker As FileDialog
Dim myPath As String
Dim myFile As String
Dim newestFile As String
Dim newestDate As Date
Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
With FldrPicker
.Title = "Please Select Folder"
.AllowMultiSelect = False
.ButtonName = "Confirm"
If .Show = -1 Then
myPath = .SelectedItems(1) & "\"
Else
End
End If
End With
myFile = Dir(myPath)
newestFile = myFile
On Error GoTo noFiles
newestDate = FileDateTime(myPath & myFile)
Do While myFile <> ""
If FileDateTime(myPath & myFile) > newestDate Then
newestFile = myFile
newestDate = FileDateTime(myPath & myFile)
End If
myFile = Dir
Loop
Workbooks.Open Filename:=myPath & newestFile
End
noFiles:
MsgBox "There are no items in this folder."
End Sub
#ExcelVBA #ExcelMacro
you rock dude thank you!!!!!
Appreciate that!! Thanks for watching!! 😎😎
great video man!
Thanks!
I'm completely new to macros and trying to work on one for work. I have it created (based off simple recording/following my movements in excel) and edited basic things in VBA. However I need some help...every day we hit the button and it's supposed to go grab a weather file, the name of this file changes daily with the date...I have no idea where or how I'm supposed to enter what you're saying here off my information I already had in there....or how it knows where to go with just the mypath myfile my folder ☹️
i can help. what does your code look like?
If I need to select any other folder apart from Documents Folder, how can I define the Path? right now with program default Docs folder is opening from C drive