Vba 将工作表从一个工作簿复制到另一个工作簿。类型不匹配13

我希望将工作簿中的一个工作表复制到另一个工作表，然后更改名称。没什么大不了的

我一直收到一个类型不匹配的错误，我不知道为什么。我使用过别人的代码，他们说这些代码对我有效，但对我来说却不适用

任何想法

Private Sub cmdStockLog_Click()

week = ThisWorkbook.Sheets("Stock Sheet").Range("F1")

Dim wb As Workbook
Set wb = Workbooks.Open(ThisWorkbook.Path & "\Data\FOH Stock.xlsx")

ThisWorkbook.Sheets("Stock Sheet").Copy After:=Workbooks(wb).Sheets(Worksheets.Count)
ActiveSheet.Name = "WK" & week

End Sub

请尝试以下代码：

Private Sub cmdStockLog_Click()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim week

    week = ThisWorkbook.Sheets("Stock Sheet").Range("F1")

    Set wb = Workbooks.Open(ThisWorkbook.Path & "\Data\FOH Stock.xlsx")

    ThisWorkbook.Sheets("Stock Sheet").Copy After:=wb.Sheets(wb.Sheets.Count)
    Set ws = wb.Sheets(wb.Sheets.Count) ' new sheet
    ws.Name = "WK" & week
End Sub