无法设置工作簿

我正在研究为什么我无法在过去的几个小时里设置我的工作簿。 我试图做的是通过每个电子表格中的文件夹刷新数据和导入他们使用Vlookup在Set Book2 = workbooks("InfoPedia Page Views (ASG Compete)")是当我得到一个错误

运行时错误“9”：下标超出范围

请，如果有人可以告诉我为什么我的代码不工作，我会非常感激。

 enter code here Sub Test() Dim Book2 As Workbook Set fso = CreateObject("Scripting.FileSystemObject") Set xl = CreateObject("Excel.Application") xl.Visible = True For Each f In fso.getfolder("C:\Users\v-gazhan\Desktop\Infopedia Quality Project\Infopedia Quality Dashboard\Page Views").Files If LCase(fso.GetextensionName(f.Name)) = "xlsx" Then Set wb = xl.workbooks.Open(f.Path) ' Set the correct month wb.SlicerCaches("Slicer_Month_Name").VisibleSlicerItemsList = Array _ ( _ "[Time].[Month Name].&[10]") With Application.WorksheetFunction If fso.getbasename(f.Name) = "InfoPedia Page Views (ASG Compete)" Then ***Set Book2 = workbooks("InfoPedia Page Views (ASG Compete)")*** Set SearchRange = Book2.Sheets("Page Views Sorted Most to Least").Range("B:D") ActiveWorkbook.Sheets("Reference").Cells(1, 4).Value = .VLookup(Sheets("reference").Range("B1"), SearchRange, 3, False) End If End With wb.Close End If Next xl.Qu End Sub