技巧346 从其他工作簿取值（错误求助）

xj56968030

本地照抄原代码，稍微修改了文件名，报错

Sub sopen()
Dim myapp As New Application, wksht As Worksheet
myapp.Visible = False
Set wksht = myapp.Workbooks.Open(ThisWorkbook.Path & "Example.xlsx").Sheets(1)
'没有抓取案例中8-1.xls，而是换取当前工作簿同等地址下的example文件
[a1] = wksht.[a1]
myapp.Quit
Set wksht = Nothing
Set myapp = Nothing
End Sub

报错信息：自动化错误，详细见截图

求助！