如何:复制工作表
更新: 2008 年 7 月
适用于 |
---|
本主题中的信息仅适用于指定的 Visual Studio Tools for Office 项目和 Microsoft Office 版本。 项目类型
Microsoft Office 版本
有关更多信息,请参见按应用程序和项目类型提供的功能。 |
可以创建工作表的副本,并将该工作表插入到工作簿中某个现有工作表的前面或后面。如果不指定插入工作表的位置,Excel 将创建一个新工作簿来容纳新工作表。
说明: |
---|
无论以编程方式复制工作表,还是最终用户手动复制工作表,新的工作表中都没有代码并且新工作表上的控件将不会工作。这是因为新复制的工作表是 Microsoft.Office.Interop.Excel.Worksheet 对象,而非 Microsoft.Office.Tools.Excel.Worksheet 宿主项。Windows 窗体控件和宿主控件只能添加到宿主项。有关更多信息,请参见宿主项和宿主控件的编程限制。 |
在文档级自定义项中向工作簿添加复制的工作表
使用 Copy 方法复制当前工作簿中的第一个工作表,并将副本放置在第三个表之后。
Globals.Sheet1.Copy(After:=Globals.ThisWorkbook.Sheets(3))
Globals.Sheet1.Copy(missing, Globals.ThisWorkbook.Sheets[3]);
在应用程序级外接程序中向工作簿添加复制的工作表
使用 Copy 方法复制当前工作簿中的第一个工作表,并将副本放置在第三个表之后。
Dim worksheet1 As Excel.Worksheet = CType(Application.ActiveWorkbook.Worksheets(1), _ Excel.Worksheet) Dim worksheet3 As Excel.Worksheet = CType(Application.ActiveWorkbook.Worksheets(3), _ Excel.Worksheet) worksheet1.Copy(After:=worksheet3)
Excel.Worksheet worksheet1 = ((Excel.Worksheet)Application.ActiveWorkbook.Worksheets[1]); Excel.Worksheet worksheet3 = ((Excel.Worksheet)Application.ActiveWorkbook.Worksheets[3]); worksheet1.Copy(missing, worksheet3);
请参见
任务
概念
对 Visual Studio Tools for Office 项目中的对象的全局访问
其他资源
修订记录
日期 |
修订历史记录 |
原因 |
---|---|---|
2008 年 7 月 |
增加了一个可在应用程序级外接程序中使用的代码示例。 |
客户反馈。 |