Рет қаралды 2,539
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.
Code (KZfaq doesn't allow brackets; so LT and GT are used for less than and greater than, respectively):
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 LTGT ""
If FileDateTime(myPath & myFile) GT 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