Excel VBA | Import Most Recently Created File into Current Workbook
This video demonstrates how to import the most recently created Excel workbook in a specified folder into the current workbook. The solution uses VBA's FileSystemObject. https://www.youtube.com/watch?v=ghy94Jrfjzo Here is the code featured in the video.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
Sub ImportMostRecentFile() Dim fso As Scripting.FileSystemObject Set fso = New Scripting.FileSystemObject Dim MyFolder As Scripting.Folder Set MyFolder = fso.GetFolder("File Path for folder containing files") Dim Fle As Scripting.File Dim NewestFile As Scripting.File For Each Fle In MyFolder.Files If NewestFile Is Nothing Then Set NewestFile = Fle If NewestFile.DateCreated < Fle.DateCreated Then Set NewestFile = Fle Next Fle Workbooks.Open NewestFile ActiveWorkbook.Worksheets("Sheet1").Copy after:=Workbooks("Name of Current Workbook").Worksheets("Sheet1") ActiveSheet.Name = NewestFile.Name Workbooks(NewestFile.Name).Close End Sub |
Read More
