以程式設計方式在活頁簿內移動工作表

發行項
02/19/2024

您可以透過程式設計方式變更工作表在活頁簿中相對於其他工作表的位置。如果您不指定移動工作表的位置，Excel 會建立新的活頁簿來包含它。

適用對象：本主題資訊適用於文件層級的專案和 Excel 的 VSTO 增益集專案。如需詳細資訊，請參閱依 Office 應用程式和專案類型提供的功能。

在文件層級自訂中移動工作表

將活頁簿中的工作表總數指派給變數之後，再移動第一個工作表使它成為最後一個。

C#
VB

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 增益集中移動工作表

將活頁簿中的工作表總數指派給變數之後，再移動第一個工作表使它成為最後一個。

C#
VB

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))