NPOI SET ACTIVE SHEET

If workbook contains more than one sheets and you want to set a active sheet. This sample show you how to set activate a specific sheet in your workbook.

''=====================================

Imports NPOI

Imports NPOI.SS

Imports NPOI.SS.UserModel

Imports NPOI.HSSF.Util

Imports NPOI.HSSF.UserModel

''=====================================

  Public Sub SetActiveSheet()

        Dim filePath As String = "C:\temp\Test_01.xls"

        Dim wb As HSSFWorkbook = Nothing

        Using fs As New FileStream(filePath, FileMode.Open, FileAccess.Read)

            wb = New HSSFWorkbook(fs)

        End Using

        ''アクティブなシートを設定

        wb.SetActiveSheet(1)

        wb.SetSelectedTab(1)

        Dim newSavePath As String = "C:\temp\Test_02.xls"

        Using fs As New FileStream(newSavePath, FileMode.Create, FileAccess.Write)

            wb.Write(fs)

        End Using

    End Sub