Question

请教如何利用VBA实现将一个工作表复制到另一个工作簿中

Answer 1

1、开发工具——VB。

2、输入代码：Sub 复制表() Dim MyBook1 As Workbook  Set MyBook1 = Workbooks.Open("C:\Users\Administrator\Desktop\工作表1.xls")  Sheets("移动表").Select   Sheets("移动表").Copy Before:=Workbooks( _ "工作表2.xls").Sheets(1)MyBook1.CloseEnd Sub。

3、开发工具——宏。

4、执行——复制表。

5、如图，复制完成。

Answer 2

不用VBA就可以实现复制。

1、同时打开两个工作簿。

2、鼠标右键点击要移动的工作表，选择移动或复制。

3、在移动或复制工作表汇总，选择另一个工作簿。

4、选择移动到最后，然后勾选建立副本，点击确定。

5、点击确定后，就可以复制过去了。

Answer 3

VBA使用工作表的Copy方法复制，用After或者Before指定复制到的位置，否则复制到新工作簿，例如：
WorkBooks("文件一.xlsx").Sheets("表一").Copy After:=WorkBooks("文件二.xlsx").Sheets("表2")

Answer 4

例如将A.xls工作簿的Sheet1工作表复制到B.xls工作簿的sheet1，可用如下代码：
workbooks("A.xls").sheets("sheet1").cells.copy workbooks("B.xls").sheets("sheet1").range("A1")

Answer 5