Back to Top

プログラムの覚書

Category: VB.NET

VB.NET

VB.NET EPPlusのインストールおよび使い方

EPPlusは、Excelのデータの xlsx形式を作成するライブラリです。

データを直接内部で作成するので、Excelのインストールが必要ありません。

EPPlusのインストール

EPPlusは、 NuGet を使ってパッケージをインストール出来ます。

Visual Studio の[ツール]-[Nuget パッケージ マネージャー]にて

「EPPlus」で検索してインストールします。

 

基本サンプル

Imports System.IO
Imports OfficeOpenXml
Imports OfficeOpenXml.Style

を追加します。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    '出力ファイルの準備
    Dim newFile As FileInfo = New FileInfo("c:\work\Sample05.xlsx")

    'Excelファイルを作成
    Using package As ExcelPackage = New ExcelPackage(newFile)
        'ワークシートを作成
        Dim sheet As ExcelWorksheet = package.Workbook.Worksheets.Add("Sheet1")

        'A1セルに書き込み
        sheet.Cells("A1").Value = "Hello World"
        
        'ファイルの保存
        package.Save()
    End Using
End Sub

 

Posted in EPPlus | Leave a reply

VB.NET NPOI名前付きセルの範囲を取得する

名前付きセルの範囲を取得する方法を記載します。

名前付きセルの範囲を取得することにより、セルの開始位置、行数、列数などが取得出来ます。

名前付きセルを設定する

'ブックを作成(xlsx形式)
Dim book As IWorkbook = New XSSFWorkbook()

'シートを作成
Dim sheet1 As ISheet = book.CreateSheet("Sheet1")

'セルの範囲に名前を設定する
Dim namedRange As XSSFName = book.CreateName()
namedRange.NameName = "list1"
namedRange.RefersToFormula = "Sheet1!$A$1:$A$3"

 

名前付きセルの範囲を取得する

Dim Name As XSSFName = book.GetName("list1")

'名前付きセルの範囲を取得する
Dim address As CellRangeAddress = CellRangeAddress.ValueOf(Name.RefersToFormula())

'セルの開始行位置
Dim frow = address.FirstRow

'セルの開始列位置
Dim fcol = address.FirstColumn

'セルの終了列位置
Dim lrow = address.LastRow

'セルの終了列位置
Dim lcol = address.LastColumn

 

Posted in NPOI | Leave a reply