获取错误：Application.Goto Workbooks（＆＃34; BOOK2.XLS＆＃34;）。表格（＆＃34; Sheet1＆＃34;）。范​​围（＆＃34; E4：F12＆＃34;）

Question

尝试运行代码时，我的运行时错误'9'脚本超出范围

Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4:F12")

我正在使用Excel 2010。 我可以看到很多用户都能成功使用this code，但为什么我没有让它工作？ 我在book1中编写代码并尝试从book2中复制数据：

Sub copy()
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4:F12")`
End Sub

Answer 1

由于任何一个原因

，您收到该错误

1. Worksbook实际上不是.xls文件。检查扩展名。
2. 文件在另一个Excel实例中打开。
3. 没有以该名称打开的工作簿。

Answer 2

另一种方法是使用超链接：

Sub qwerty()
    ActiveWorkbook.FollowHyperlink Address:="C:\TestFolder\ABC.xls"
    Sheets("xxx").Activate
    Range("H7").Select
End Sub

优点是ABC.xls是否打开无关紧要。

如果超链接活动尚未打开，则会打开它。