Worksheet.Copy 方法 (Excel)

将工作表复制到当前工作簿或新工作簿中的另一个位置。

语法

表达式.复制 (_之前、_之后)

表达式 一个代表 Worksheet 对象的 变量。

参数

备注

如果不指定 Before 或 After，则Microsoft Excel创建一个包含复制 的 Worksheet 对象的新工作簿。 新创建的工作簿保留 Application.ActiveWorkbook 属性并包含一个工作表。 单个工作表保留源 工作表的 Name 和 CodeName 属性。 如果复制的工作表在 VBA 项目中保存了工作表代码表，则也会复制到新工作簿中。

可以使用类似的方式将多个工作表的数组选择复制到新的空白 Workbook 对象。

Source 和 Destination 必须在同一Excel。否则，应用程序实例将引发运行时错误"1004"：如果使用了 like，则不支持此类接口，或者运行时错误 Sheet1.Copy objWb.Sheets(1) "1004"：如果使用了类似内容，Worksheet 类的 Copy 方法将失败。 ThisWorkbook.Worksheets("Sheet1").Copy objWb.Sheets(1)

示例

此示例复制工作表 Sheet1，并将其放置在工作表 Sheet3 之后。

Worksheets("Sheet1").Copy After:=Worksheets("Sheet3")

本示例首先将 Sheet1 复制到新的空白工作簿，然后保存并关闭新工作簿。

Worksheets("Sheet1").Copy
With ActiveWorkbook
.SaveAs Filename:=Environ("TEMP") & "New1.xlsx", FileFormat:=xlOpenXMLWorkbook
.Close SaveChanges:=False
End With

本示例将工作表 Sheet1、Sheet2 和 Sheet4 复制到新的空白工作簿，然后保存并关闭新工作簿。

Worksheets(Array("Sheet1", "Sheet2", "Sheet4")).Copy
With ActiveWorkbook
.SaveAs Filename:=Environ("TEMP") & "New3.xlsx", FileFormat:=xlOpenXMLWorkbook
.Close SaveChanges:=False
End With

最后

以上就是单身洋葱为你收集整理的Worksheet.Copy 方法 (Excel)的全部内容，希望文章能够帮你解决Worksheet.Copy 方法 (Excel)所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。