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
Thursday, September 12, 2013
Create,Open,Delete worksheet (シート作成、取得、削除)
Subscribe to:
Post Comments (Atom)
what version of npoi ??
ReplyDelete