我已经尝试过其他人的要求,但我一生都无法弄清楚为什么我的代码不起作用。这就是我所拥有的:
Sub Move_Sheets()
Dim PTrend As Worksheet
Dim Strend As Worksheet
Dim wb1 As Workbook
Dim wb2 As Workbook
Set wb1 = Workbooks("Workbook1.xlsb")
Set wb2 = Workbooks("Workbook2.xlsb")
Set PTrend = wb2.Worksheets("Sheet1")
Set Strend = wb2.Worksheets("Sheet2")
With wb2
.Sheets(Array(PTrend, Strend)).Copy Before:=wb1.Sheets(7)
End With
End Sub
我正在尝试将工作表从工作簿 2 移动到工作簿 1。我的“with 语句”出现错误。为什么我的代码不起作用?
一如既往,感谢你们所有人的帮助。
G
最佳答案
.Sheets
在传递工作表对象时需要工作表名称。
试试这样...
With wb2
.Sheets(Array(PTrend.Name, Strend.Name)).Copy Before:=wb1.Sheets(7)
End With
关于vba - 如何在 VBA 中将工作表从一个工作簿移动到另一个工作簿,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48479444/