大家好,帮忙看看这段代码为啥不能运行

大家好：
近来从网上查阅很多资料，都没有找到类似跨工作簿的高级筛选。以下代码是哪里出了问题？
Sub ii()
Dim sa As Workbook
Dim sb As String
sb = "\\192.168.1.202\fileserver\Level-2\Marketing & Sales\2-CS\1-台账登记-表格\代理商基本信息表.xlsx"
Set sa = GetObject(sb)
sa.Sheets(Sheet2).Range("代理商基本信息表[[#All],[销售员]:[代理商报备日期]]").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets(Sheet1).Range("H7:H8"), CopyToRange:=Sheets(Sheet2).Range("A7:J7"), Unique:=False
sa.Close False
Set sa = Nothing
End Sub