VB .NET で Excel ファイルを読み取り、作成する (コード例チュートリアル)

2.1. Excelファイルを作成

まず、ワークブックを作成しましょう：

' Create a new Excel workbook with the default format (.xlsx)
Dim wb As New WorkBook

' Create a new Excel workbook with the default format (.xlsx)
Dim wb As New WorkBook

上記のコードは、新しいExcelファイルを作成するためのものです。デフォルトでは、拡張子は.xlsxです。

2.2. XLSファイルを作成

拡張子.xlsのファイルを作成したい場合は、このコードを使用できます：

' Create a new Excel workbook with .xls format
Dim wb As New WorkBook(ExcelFileFormat.XLS)

' Create a new Excel workbook with .xls format
Dim wb As New WorkBook(ExcelFileFormat.XLS)

2.3. ワークシートを作成

ワークブックを作成した後、次のようにExcelワークシートを作成できます：

' Create a new worksheet named "Sheet1" in the workbook
Dim ws1 As WorkSheet = wb.CreateWorkSheet("Sheet1")

' Create a new worksheet named "Sheet1" in the workbook
Dim ws1 As WorkSheet = wb.CreateWorkSheet("Sheet1")

上記のコードは、新しいワークシートws1を作成し、ワークブックwbに名前Sheet1を持ちます。

2.4. 複数のワークシートを作成

同じ方法で任意の数のワークシートを作成することができます：

' Create additional worksheets
Dim ws2 As WorkSheet = wb.CreateWorkSheet("Sheet2")
Dim ws3 As WorkSheet = wb.CreateWorkSheet("Sheet3")

' Create additional worksheets
Dim ws2 As WorkSheet = wb.CreateWorkSheet("Sheet2")
Dim ws3 As WorkSheet = wb.CreateWorkSheet("Sheet3")

3.1. セルにデータを挿入する

今、次のようにしてワークシート内のセルに簡単にデータを挿入できます：

' Insert a value into a specific cell
worksheet("CellAddress").Value = "MyValue"

' Insert a value into a specific cell
worksheet("CellAddress").Value = "MyValue"

例えば、ワークシートws1のデータは次のように挿入できます：

' Insert "Hello World" into cell A1 of the worksheet
ws1("A1").Value = "Hello World"

' Insert "Hello World" into cell A1 of the worksheet
ws1("A1").Value = "Hello World"

上記のコードは、ワークシートws1のセルA1にHello Worldを書くでしょう。

3.2. 範囲にデータを挿入する

範囲関数を使用して多くのセルにデータを書き込むことも可能です。

' Insert "NewValue" into the range from cell A3 to A8
ws1("A3:A8").Value = "NewValue"

' Insert "NewValue" into the range from cell A3 to A8
ws1("A3:A8").Value = "NewValue"

3.3. ワークシートの作成と編集の例

新しいExcelファイルSample.xlsxを作成し、上記で学んだコードを見せるためにいくつかのデータを挿入します。

' Import IronXL namespace for Excel operations
Imports IronXL

' Main subroutine to create and edit Excel
Sub Main()
    ' Create a new workbook in XLSX format
    Dim wb As New WorkBook(ExcelFileFormat.XLSX)
    ' Create a worksheet named "Sheet1"
    Dim ws1 As WorkSheet = wb.CreateWorkSheet("Sheet1")
    ' Insert data into cells
    ws1("A1").Value = "Hello"
    ws1("A2").Value = "World"
    ' Insert a range of values
    ws1("B1:B8").Value = "RangeValue"
    ' Save the workbook as "Sample.xlsx"
    wb.SaveAs("Sample.xlsx")
End Sub

' Import IronXL namespace for Excel operations
Imports IronXL

' Main subroutine to create and edit Excel
Sub Main()
    ' Create a new workbook in XLSX format
    Dim wb As New WorkBook(ExcelFileFormat.XLSX)
    ' Create a worksheet named "Sheet1"
    Dim ws1 As WorkSheet = wb.CreateWorkSheet("Sheet1")
    ' Insert data into cells
    ws1("A1").Value = "Hello"
    ws1("A2").Value = "World"
    ' Insert a range of values
    ws1("B1:B8").Value = "RangeValue"
    ' Save the workbook as "Sample.xlsx"
    wb.SaveAs("Sample.xlsx")
End Sub

注意： デフォルトでは、新しいExcelファイルはプロジェクトのbin\Debugフォルダに作成されます。 カスタムパスに新しいファイルを作成したい場合は、以下を使用します：

wb.SaveAs(@"E:\IronXL\Sample.xlsx")

wb.SaveAs(@"E:\IronXL\Sample.xlsx")

こちらが新たに作成されたExcelファイルSample.xlsxのスクリーンショットです：

IronXLを使用してVB.NETアプリケーションでExcelファイルを作成することがいかに簡単であるかが明らかです。

4.1. プロジェクトでのExcelファイルへのアクセス

WorkBookは、Excelファイルおよびその機能に完全にアクセスするためのオブジェクトを提供するIronXLのクラスです。 例えば、Excelファイルにアクセスしたい場合、単に以下を使用します：

' Load the Excel file "sample.xlsx" into a workbook
Dim wb As WorkBook = WorkBook.Load("sample.xlsx") 'Excel file path

' Load the Excel file "sample.xlsx" into a workbook
Dim wb As WorkBook = WorkBook.Load("sample.xlsx") 'Excel file path

上記のコードでは、WorkBook.Load()関数はsample.xlsxをwbに読み込みます。 Excelファイルの特定のワークシートにアクセスすることで、wbであらゆるタイプの関数を実行できます。

4.2. 特定のワークシートにアクセス

' Access worksheet by name
Dim ws As WorkSheet = wb.GetWorkSheet("Sheet1") 'by sheet name

' Access worksheet by name
Dim ws As WorkSheet = wb.GetWorkSheet("Sheet1") 'by sheet name

' Access worksheet by index
Dim ws As WorkSheet = wb.WorkSheets(0) 'by sheet index

' Access worksheet by index
Dim ws As WorkSheet = wb.WorkSheets(0) 'by sheet index

' Access the default worksheet
Dim ws As WorkSheet = wb.DefaultWorkSheet() 'for the default sheet

' Access the default worksheet
Dim ws As WorkSheet = wb.DefaultWorkSheet() 'for the default sheet

' Access the first worksheet in the workbook
Dim sheet As WorkSheet = wb.WorkSheets.FirstOrDefault() 'for the first sheet

' Access the first worksheet in the workbook
Dim sheet As WorkSheet = wb.WorkSheets.FirstOrDefault() 'for the first sheet

5.1. 特定の列のデータ

特定の列の多くのセルからデータを取得することも次のように可能です：

' Loop through cells in a specific range and print their values
For Each cell In ws("A2:A10")
    Console.WriteLine("value is: {0}", cell.Text)
Next cell

' Loop through cells in a specific range and print their values
For Each cell In ws("A2:A10")
    Console.WriteLine("value is: {0}", cell.Text)
Next cell

セルA2からA10までの値が表示されます。 上記の議論のコード例は以下に示されています。

' Example: Load and display values from a column
Imports IronXL

Sub Main()
    ' Load the workbook from file
    Dim wb As WorkBook = WorkBook.Load("sample.xlsx")
    ' Get the first worksheet
    Dim ws As WorkSheet = wb.WorkSheets.FirstOrDefault()
    ' Loop through cells in range A2:A10
    For Each cell In ws("A2:A10")
        Console.WriteLine("value is: {0}", cell.Text)
    Next
    Console.ReadKey()
End Sub

' Example: Load and display values from a column
Imports IronXL

Sub Main()
    ' Load the workbook from file
    Dim wb As WorkBook = WorkBook.Load("sample.xlsx")
    ' Get the first worksheet
    Dim ws As WorkSheet = wb.WorkSheets.FirstOrDefault()
    ' Loop through cells in range A2:A10
    For Each cell In ws("A2:A10")
        Console.WriteLine("value is: {0}", cell.Text)
    Next
    Console.ReadKey()
End Sub

次の出力が表示されます：

ExcelファイルSample.xlsxのスクリーンショットをご覧いただけます：