Thursday, September 12, 2013

Create,Open,Delete worksheet (シート作成、取得、削除)

 Private Sub CreateOnenDeletSheet()
        Dim wb As HSSFWorkbook = Nothing
        Try
            Using fs As New FileStream("ExcelFile.xls"FileMode.Open, FileAccess.Read)
                wb = New HSSFWorkbook(fs, True)
            End Using
 
            'ワークブック内のシート数を確認する
            Dim shtCount As Integer = wb.NumberOfSheets
 
            'インデックスを指定して取得する
            Dim idx As Integer = 0
            Dim shtByidx As HSSFSheet = wb.GetSheetAt(idx)
 
            'シート名を指定して取得する
            Dim shtName As String = "Sheet1"
            Dim shtByName As HSSFSheet = wb.GetSheet(shtName)
 
            '新規シートを作成する
            Dim sheet1 As HSSFSheet = wb.CreateSheet()
 
            '名称を指定してシートを作成する
            Dim sheet2 As HSSFSheet = wb.CreateSheet("Sheet2")
 
            'シート名[sheet1]を3シート目に移動する
            Dim moveShtName As String = "Sheet1"
            Dim moveTo As Integer = 2
            wb.SetSheetOrder(moveShtName, moveTo)
 
            '1シート目を削除する
            Dim dltSht As Integer = 0
            wb.RemoveSheetAt(dltSht)
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
 
    End Sub

1 comment: