如何引用当前工作簿：运行时错误9

Question

我是一个excel vba新手，并且遇到了一些简单的问题。我有两本excel工作簿;第1册和第2册。我正在尝试将数据从第2册中的特定单元格复制到第1册。另外，第2册是一个只读文件，并且可以防止修改。 我正在编写第1册中的代码，并希望将其设置为变量。

Dim wb1 As Workbook
Dim wb2 As Workbook

Set wb1 = ThisWorkbook
wb1.Worksheets("Sheet1").Cells(1, 1).Activate
Set wb2 = Workbooks.Open("C:\Users\self\Desktop\qc\Book2.xlsm")

但是当我尝试激活Subscript Out of Range时，我一直收到wb1.sheet1错误。此外，当我自己运行Set wb2代码时，它会打开文件但直接转到该文件的VBA编辑器而不是电子表格。我将非常感谢有关这个棘手问题的任何指导。感谢您的期待。