如何修复VBA中的“工作表类的复制方法失败”错误

Question

我正在尝试将一个Excel工作表从一个工作簿复制到我当前的活动工作簿。我收到此错误：

  

Worksheet类的复制方法失败

我尝试了在stackoverflow上找到的其他解决方案，但遇到错误。我还注意到，其他人的回答说“另一种方法是”，这似乎没有确定的错误原因。这是我最初的尝试。预先感谢。

Sub addSOIlistTest() '(file)
    file = "C:\Users\choudhary.rr\Documents\data.xlsx"

    Dim XL As Excel.Application
    Dim WBK As Excel.Workbook
    Set XL = CreateObject("Excel.Application")
    Set WBK = XL.Workbooks.Open(file)

    WBK.Sheets(1).Copy After:=Sheets(1)
    Sheets(2).Name = "SOI List"

    WBK.Close
    XL.quit
End Sub

我在此行得到错误：

WBK.Sheets(1).Copy After:=WBK.Sheets(1)