Open All Excel Files In A Folder
This is a short but sweet VBA code that let’s you open all Excel files in a folder without having to select them all. The code asks you for a folder location and it does the rest :). At the moment the code opens all .xlsx files from within the selected folder, but that can be changed in the code. You can clearly see this on line 3 of the code.
Sub XET_OpenAllXfilesInFolder()
fldr = GetFolder(ActiveWorkbook.Path)
xfile = Dir(fldr & "\*.xlsx")
Do While xfile <> ""
Workbooks.Open Filename:=fldr & "\" & xfile
Loop
End Sub
This Code can also be found in an Xnet Excel Tools AddIn for Excel which is free and can be downloaded here.
Related Posts
- February 6, 2015
The code bellow asks for a folder location, and then for a ...
- January 30, 2015
This VBA code saves each Worksheet in the active Excel Workbook ...
- January 16, 2015
Custom lists are very useful in Excel because they are a quick ...
- January 9, 2015
Imagine having many Sheets in a workbook. Now you would like all ...
Follow Let's talk Excel via Email
Categories
- Excel Facts 2
- Excel Security 1
- VBA 6
Help keep the talk alive
Let's talk Excel on Twitter
-
The Perennial Office Romance… 3 Reasons To Continue Loving Your Spreadsheets https://t.co/xM1SxBc1Y5 https://t.co/jhcWCaKXsM
over a year ago -
Get a random subset of data with Power Query https://t.co/EYUXiuzurG via @excelunplugged
over a year ago -
Search a Range for the closest value to a chosen number https://t.co/hU0EkEfLz2 via @excelunplugged
over a year ago -
Dynamic Power Query https://t.co/JKHIy3uLSL via @excelunplugged
over a year ago -
A great honor for Excel Unplugged https://t.co/mug3RYGlBv via @excelunplugged
over a year ago