Thursday, September 12, 2013

Open excel workbook (既存のExcelファイルから操作用ファイルを作成する)

Imports NPOI.HSSF
Imports NPOI.HSSF.UserModel
Imports NPOI.SS.UserModel
Imports NPOI.HPSF
    
Private Sub OpenWorkbook()
        Dim workbook As HSSFWorkbook = Nothing
        Try
            Using fs As New FileStream("ExcelFile.xls"FileMode.Open, FileAccess.Read)
                workbook = New HSSFWorkbook(fs, True)
            End Using
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub

No comments:

Post a Comment