请教如何利用VBA实现将一个工作表复制到另一个工作簿中
发布网友
发布时间：2022-04-24 03:38
共4个回答
热心网友
时间：2023-08-18 13:44
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、如图，复制完成。
热心网友
时间：2023-08-18 13:44
不用VBA就可以实现复制。
1、同时打开两个工作簿。
2、鼠标右键点击要移动的工作表，选择移动或复制。
3、在移动或复制工作表汇总，选择另一个工作簿。
4、选择移动到最后，然后勾选建立副本，点击确定。
5、点击确定后，就可以复制过去了。
热心网友
时间：2023-08-18 13:45
VBA使用工作表的Copy方法复制，用After或者Before指定复制到的位置，否则复制到新工作簿，例如：
WorkBooks("文件一.xlsx").Sheets("表一").Copy After:=WorkBooks("文件二.xlsx").Sheets("表2")
热心网友
时间：2023-08-18 13:45
例如将A.xls工作簿的Sheet1工作表复制到B.xls工作簿的sheet1，可用如下代码：
workbooks("A.xls").sheets("sheet1").cells.copy workbooks("B.xls").sheets("sheet1").range("A1")
