如何在VBA中将工作表从一个工作簿移动到另一个工作簿
我已经尝试过了其他人提出的问题,但我始终无法弄明白为什么我的代码不起作用。这就是我所拥有的:如何在VBA中将工作表从一个工作簿移动到另一个工作簿,vba,excel,Vba,Excel,我已经尝试过了其他人提出的问题,但我始终无法弄明白为什么我的代码不起作用。这就是我所拥有的: 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.Wo
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
工作得很好。谢谢