[版主请进]关于Cad中用Excel的问题(那边没人,只能这里问了)

arden

请问怎样在打开的工作簿复制工作表?
我现有一个打开的工作簿，其中有一表为名为“表一”，请问怎样再在此工作簿中生成另一“表二”且“表二”和“表一”的内容及格式完全相同。

efan2000

Copy 方法

语法 3： 将工作表复制到工作簿的另一位置。

语法 3
expression.Copy(Before, After)

expression   必选。工作表对象。

Before   语法 3： Variant 类型，可选。复制工作表放到此工作表之前。如果已经指定了 After，则不能指定 Before。

After    Variant 类型，可选。复制工作表放到此工作表之后。如果已经指定了 Before，则不能指定 After。

说明

如果既不指定 Before 参数也不指定 After 参数，则 Microsoft Excel 将新建一个工作簿并将复制工作表放到新工作簿中。

2. 
   
3. Sub Test()
   
4.     Dim xlSheet As Worksheet
   
5.     Set xlSheet = ThisWorkbook.Sheets("表一")
   
6.     ' 拷贝表一生成新的工作表
   
7.     xlSheet.Copy after:=xlSheet
   
8.     ' 更名新生成的工作表为表二
   
9.     ThisWorkbook.Worksheets(xlSheet.Index + 1).Name = "表二"
   
10.     Set xlSheet = Nothing
    
11. End Sub
    

<br /> Sub Test()<br />     Dim xlSheet As Worksheet<br />     Set xlSheet = ThisWorkbook.Sheets("表一")<br />     ' 拷贝表一生成新的工作表<br />     xlSheet.Copy after:=xlSheet<br />     ' 更名新生成的工作表为表二<br />     ThisWorkbook.Worksheets(xlSheet.Index + 1).Name = "表二"<br />     Set xlSheet = Nothing<br /> End Sub<br />