Understanding the code

Question

&nbsp;Hi GoodmorningAppreciate if someone could help me understand the code (found from some website)The last 4 lines of code highlighted in red.&nbsp; Please guide what it does.Thanks ...Sub MergeExcelFiles()&nbsp;&nbsp;&nbsp;&nbsp;Dim fnameList, fnameCurFile As Variant&nbsp;&nbsp;&nbsp;&nbsp;Dim countFiles, countSheets As Integer&nbsp;&nbsp;&nbsp;&nbsp;Dim wksCurSheet As Worksheet&nbsp;&nbsp;&nbsp;&nbsp;Dim wbkCurBook, wbkSrcBook As Workbook&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If (vbBoolean &lt;&gt; VarType(fnameList)) Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If (UBound(fnameList) &gt; 0) Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;countFiles = 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;countSheets = 0

hansvogelaar · Accepted Answer

Rudrabhadra&nbsp;
GetOpenFileName with MultiSelect:=True can return two completely different types of values:

If the user selects one or more files and clicks Open, it returns an array of string values. Each item of the array is the path + filename of one of he selected files. VarType(fNameList) will be vbArray+vbString.
If the user clicks Cancel, it returns the Boolean value False. VarType(fNameList) will be vbBoolean.

So the line&nbsp;If (vbBoolean &lt;&gt; VarType(fnameList)) Then checks that fNameList is not a Boolean, i.e. it must be an array.
The next line&nbsp;If (UBound(fnameList) &gt; 0) Then will only be executed if the user clicked Open. It checks that the fNameList array has more than 0 items. This line is actually not necessary, if the user clicked Open they have selected at least one file.
I assume that the code below that loops through the selected file names, opens each workbook in turn, then loops through the sheets of the workbook. The lines
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;countFiles = 0
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;countSheets = 0
initialize the count of files (workbooks) and of sheets to 0.

Forum Discussion

Understanding the code

Share

Resources