使用 VBA 将工作表复制到另一个工作簿

Question

我正在尝试从 VBA 所在的工作簿 (ThisWorkbook) 中复制一个工作表，并将其粘贴到用户打开的另一个工作簿 (ActiveWorkbook) 中。我写了一个函数，但我无法让它工作。我以前做过类似的事情，我已经搜索了互联网，但我找不到解决方案或为什么它让我失望。我做错了什么？

 Function workBooks() As String
    aWbkName = ActiveWorkbook.Name
    tWbkName = ThisWorkbook.Name

    Dim wbk1 As Workbook
    Dim wbk2 As Workbook

    Set wbk1 = tWbkName
    Set wbk2 = aWbkName

    wbk1.Sheet2.Copy After:=wbk2.Sheets(7)

End Function

Answer 1

试试这个，看看它是否有效。它将复制ThisWorkbook中的Sheet2并将其粘贴到ActiveWorkbook中的Sheet1之后

Option Explicit

Public Sub copy_sheet()

    Dim source_worksheet As Worksheet
    Set source_worksheet = ThisWorkbook.Worksheets("Sheet2")

    Dim target_worksheet As Worksheet
    Set target_worksheet = ActiveWorkbook.Worksheets("Sheet1")

    source_worksheet.Copy After:=target_worksheet

End Sub

Answer 2

您不需要所有的变量调光和分配：

Sub workBooks()
    ThisWorkbook.Sheet2.Copy After:=ActiveWorkbook.Sheets(7)
End Sub