Question

怎样用VBA 将B工作簿中的sheet1移动到A工作簿中的sheet2？

Answer 1

Sub Macro1()
    Workbooks.Open Filename:="E:\file\A.xls"
    Sheets("Sheet2").Select
    ActiveWindow.SelectedSheets.Delete
    Workbooks.Open Filename:="E:\file\B.xls"
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy After:=Workbooks("A.xls").Sheets(1)
    Sheets("Sheet1 (2)").Select
    Sheets("Sheet1 (2)").Name = "Sheet1"
End Sub

请在A.xls中建宏，复制以上代码到宏中编辑，执行。

代码中的 E:\file\为文件路径。

追问

你好啊，这代码虽然能够运行，但是我按照步骤，却实现不了我想要的结果。

追答

Sub Macro1()
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Delete
Workbooks.Open Filename:="B.xls"
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Workbooks("A.xls").Sheets(1)
Sheets("Sheet1 (2)").Select
Sheets("Sheet1 (2)").Name = "Sheet2"
End Sub

Answer 2

Workbooks("book1").Sheets("Sheet1").Move After:=Workbooks("Book2").Sheets(Count)
Workbooks("Book2").Sheets(Count).Name = "Sheet2"
必须保证book1中有sheet1且book2中没有sheet2才行
否则报错

Answer 3

复制、粘贴。