为什么宏在一台计算机上运行完美，而在另一台计算机上却不是?

Question

我已经创建了一个宏，在我的计算机上工作完美，但在另一方面它不是，我不知道为什么…将工作表从一个工作簿复制到另一个工作簿是一个简单的宏。

我在这行上得到错误9(超出范围)Set wbk1 = Workbooks("発注残マクロ")

这是因为不同的excel版本吗?

Sub CopySheet()
Dim wbk1 As Workbook, wbk2 As Workbook
'Workbooks("発注残マクロ").Activate
Set wbk1 =  Workbooks("発注残マクロ")
Set wbk2 = Workbooks("ocs680j")
'シートの名前を記入
wbk2.Worksheets("ocs680j").Copy After:=wbk1.Sheets(wbk1.Sheets.Count)
wbk2.Saved = True
wbk2.Close SaveChanges:=False

End Sub

如有任何建议，不胜感激。

Answer 1

正如ScottCraner建议的那样，添加扩展有助于解决问题。

Sub CopySheet()
Dim wbk1 As Workbook, wbk2 As Workbook
'Workbooks("発注残マクロ.xlsx").Activate
Set wbk1 =  Workbooks("発注残マクロ.xlsx")
Set wbk2 = Workbooks("ocs680j.xlsx")
'シートの名前を記入
wbk2.Worksheets("ocs680j.xlsx").Copy After:=wbk1.Sheets(wbk1.Sheets.Count)
wbk2.Saved = True
wbk2.Close SaveChanges:=False

End Sub