[版主请进]关于Cad中用Excel的问题(那边没人,只能这里问了)
请问怎样在打开的工作簿复制工作表?我现有一个打开的工作簿，其中有一表为名为“表一”，请问怎样再在此工作簿中生成另一“表二”且“表二”和“表一”的内容及格式完全相同。 Copy 方法
语法 3： 将工作表复制到工作簿的另一位置。
语法 3
expression.Copy(Before, After)
expression 必选。工作表对象。
Before 语法 3： Variant 类型，可选。复制工作表放到此工作表之前。如果已经指定了 After，则不能指定 Before。
After Variant 类型，可选。复制工作表放到此工作表之后。如果已经指定了 Before，则不能指定 After。
说明
如果既不指定 Before 参数也不指定 After 参数，则 Microsoft Excel 将新建一个工作簿并将复制工作表放到新工作簿中。
Sub Test()
Dim xlSheet As Worksheet
Set xlSheet = ThisWorkbook.Sheets("表一")
' 拷贝表一生成新的工作表
xlSheet.Copy after:=xlSheet
' 更名新生成的工作表为表二
ThisWorkbook.Worksheets(xlSheet.Index + 1).Name = "表二"
Set xlSheet = Nothing
End Sub
页:
[1]