当我运行下面的代码时,在以下行得到“错误438,对象不支持此属性或方法”:WBA.WS1.Range(“ I7”)。选择
Sub Sandbox()
Dim WBA As Workbook
Set WBA = Workbooks.Open(Filename:="C:\Reports\Sandbox_data.xlsb")
Dim WS1 As Worksheet
Set WS1 = WBA.Sheets("Rpt_Group")
WBA.WS1.Range("I7").Select
End Sub