使用VBA宏将数据从一个Excel工作簿提取到另一个工作簿-错误＃9

Question

我正在尝试从受密码保护的Excel工作簿（oldata）中复制一定范围的单元格，并将其粘贴到另一个工作簿（newdata-无密码）。但是，每次尝试运行代码时，我总是遇到“错误9：下标超出范围”。不完全确定我要去哪里。任何帮助表示赞赏。非常感谢！ ：）

sub extractdata()
dim oldata as Workbook
dim newdata as Workbook 

set oldata = Workbooks.Open("path to the file")
set newdata = Workbooks.Open("path to the file")

oldata.Worksheets("Sheet name").Range("A8:B8").Copy_     ###Error 9
newdata.Worksheets("Sheetname").Range("D8:E8")           ###Error 9

oldata.Close
end sub 

我很确定我为工作簿和工作表使用了正确的名称。不知道为什么或如何解决错误9。是否还有其他方法可以将单元格的值从一个工作簿复制和粘贴到另一个工作簿？感谢您的所有帮助！ ：）