我正在尝试从 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
最佳答案
试试这个,看看它是否有效。它将在 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
关于vba - 使用 VBA 将工作表复制到另一个工作簿,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43266597/