可以通过编程方式更改工作簿中工作表相对于其他工作表的位置。 如果不为移动的工作表指定位置,Excel 将创建新的工作簿来容纳它。
适用于: 本主题中的信息适用于 Excel 的文档级项目和 VSTO 外接程序项目。 有关详细信息,请参阅办公室应用程序和项目类型提供的功能。
在文档级自定义项中移动工作表
将工作簿中的工作表的总数分配给一个变量,然后移动第一个工作表,使其成为最后一个工作表。
int totalSheets = this.Application.ActiveWorkbook.Sheets.Count;
Globals.Sheet1.Move(Globals.ThisWorkbook.Sheets[totalSheets]);
Dim totalSheets As Integer = Application.ActiveWorkbook.Sheets.Count
Globals.Sheet1.Move(After:=Globals.ThisWorkbook.Sheets(totalSheets))
在 VSTO 外接程序中移动工作表
将工作簿中的工作表的总数分配给一个变量,然后移动第一个工作表,使其成为最后一个工作表。
int totalSheets = this.Application.ActiveWorkbook.Sheets.Count;
((Excel.Worksheet)Application.ActiveSheet).Move(
this.Application.Worksheets[totalSheets]);
Dim totalSheets As Integer = Application.ActiveWorkbook.Sheets.Count
CType(Application.ActiveSheet, Excel.Worksheet).Move(After:=Application.Worksheets(totalSheets))
相关内容