如何在VB.NET中创建打开上一张excel工作表的按钮？

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' 创建Excel应用程序对象
    Dim excelApp As New Microsoft.Office.Interop.Excel.Application()

    ' 打开Excel工作簿
    Dim workbook As Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Open("工作簿路径")

    ' 获取当前活动工作表的索引
    Dim currentSheetIndex As Integer = workbook.ActiveSheet.Index

    ' 计算上一张工作表的索引
    Dim previousSheetIndex As Integer = currentSheetIndex - 1

    ' 检查上一张工作表的索引是否合法
    If previousSheetIndex >= 1 Then
        ' 获取上一张工作表
        Dim previousSheet As Microsoft.Office.Interop.Excel.Worksheet = workbook.Sheets(previousSheetIndex)

        ' 激活上一张工作表
        previousSheet.Activate()
    Else
        ' 如果上一张工作表不存在，则给出提示信息
        MessageBox.Show("已经是第一张工作表了！")
    End If

    ' 关闭Excel应用程序对象
    excelApp.Quit()
End Sub