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.
The code bellow asks for a folder location, and then for a ...
This VBA code saves each Worksheet in the active Excel Workbook ...
Custom lists are very useful in Excel because they are a quick ...
Imagine having many Sheets in a workbook. Now you would like all ...