VB.NETでExcelファイルを開く方法

VB.NETプロジェクトにIronXLをインストールするにはどうすればよいですか？

IronXLを始めるのはほんの数秒です。 Visual Studio 2022を開き、VB.NETプロジェクトに移動して、パッケージマネージャーコンソールを使用します：

Install-Package IronXL.Excel

または、プロジェクトを右クリックして"NuGetパッケージの管理"を選択し、"IronXL"を検索してインストールをクリックします。

インストール後、この単一のインポート文をVB.NETファイルに追加します：

Imports IronXL

Imports IronXL

それで終わりです。 複雑なCOM参照、Office依存関係、バージョン固有のアセンブリはありません。 VB.NETのExcelファイルリーダーはどのマシンでも動作できる準備が整いました。詳細なセットアップ手順については、VB.NET Excelファイルチュートリアルをご覧ください。

簡単なコード例: IronXLでExcelドキュメントを読み取る

VB.NETでExcelワークブックを開きデータを読み取るための完全な作業例を以下に示します：

Imports IronXL
Module Program
    Sub Main()
        ' Load any Excel file - XLSX, XLS, CSV, or TSV
        Dim workbook As WorkBook = WorkBook.Load("example.xlsx")
        ' Access the worksheet with our sales data (the second sheet)
        Dim worksheet As WorkSheet = workbook.WorkSheets(1)
        ' Read a specific cell value
        Dim revenue As Decimal = worksheet("E2").DecimalValue
        Console.WriteLine($"Order Total: {revenue}")
        ' Read a range of cells
        For Each cell In worksheet("C2:C6")
            Console.WriteLine($"Product: {cell.Text}")
        Next
    End Sub
End Module

Imports IronXL
Module Program
    Sub Main()
        ' Load any Excel file - XLSX, XLS, CSV, or TSV
        Dim workbook As WorkBook = WorkBook.Load("example.xlsx")
        ' Access the worksheet with our sales data (the second sheet)
        Dim worksheet As WorkSheet = workbook.WorkSheets(1)
        ' Read a specific cell value
        Dim revenue As Decimal = worksheet("E2").DecimalValue
        Console.WriteLine($"Order Total: {revenue}")
        ' Read a range of cells
        For Each cell In worksheet("C2:C6")
            Console.WriteLine($"Product: {cell.Text}")
        Next
    End Sub
End Module

WorkBook.Load()メソッドはファイル形式を自動的に検出します； XLSまたはXLSX形式を指定する必要はありません。 workbook.GetWorkSheet("Sheet1")を使用してインデックスまたはファイル名によってExcelワークシートにアクセスします。 各セルはIntValue、DecimalValue、DateTimeValue、または一般的なTextプロパティのような型付けされた値を返します。 より複雑なシナリオについては、Excel数式ドキュメントを参照してください。

ここで見ての通り、IronXLはファイルを正常に開いて、要求された注文の合計を読み取りました。 それはまた、すべての注文で販売された各製品から情報を読み取って抽出できました。

異なる種類のExcelデータをどのように読み取りますか？

IronXLは、Excel VB.NETファイルを読み取るときにすべてのExcelデータタイプをインテリジェントに処理します。 さまざまなデータシナリオでの操作方法は以下の通りです：

' Open workbook from any location using the filename and path
Dim wb As WorkBook = WorkBook.Load("C:\Data\Inventory.xlsx")
Dim ws As WorkSheet = wb.GetWorkSheet("Products")
' Read different data types safely
Dim productName As String = ws("A2").StringValue
Dim quantity As Integer = ws("B2").IntValue  
Dim price As Decimal = ws("C2").DecimalValue
Dim lastUpdated As DateTime = ws("D2").DateTimeValue
' Process entire columns efficiently
Dim totalStock As Decimal = ws("B2:B100").Sum()
Dim maxPrice As Decimal = ws("C2:C100").Max()
' Iterate through all used cells starting at row index 1 to skip header (zero-based index)
 For i As Integer = 1 To ws.Rows.Count - 1
    Dim row = ws.Rows(i)
    ' Stop at first completely empty row
    If row.Columns(0).Value Is Nothing AndAlso row.Columns(1).Value Is Nothing AndAlso
       row.Columns(2).Value Is Nothing AndAlso row.Columns(3).Value Is Nothing Then Exit For
    ' Read values safely
    Dim sku As String = If(row.Columns(0).Value IsNot Nothing, row.Columns(0).StringValue, "")
    Dim stock As Integer = If(row.Columns(1).Value IsNot Nothing, row.Columns(1).IntValue, 0)
    Dim priceVal As Decimal = If(row.Columns(2).Value IsNot Nothing, row.Columns(2).DecimalValue, 0D)
    Dim rwLastUpdated As DateTime? = If(row.Columns(3).Value IsNot Nothing, row.Columns(3).DateTimeValue, Nothing)
    ' Format date
    Dim lastUpdatedStr As String = If(rwLastUpdated.HasValue, rwLastUpdated.Value.ToString("dd/MM/yyyy"), "")
    ' Print only rows with data
    If sku <> "" OrElse stock <> 0 OrElse priceVal <> 0D OrElse lastUpdatedStr <> "" Then
        Console.WriteLine($"SKU: {sku}, Stock: {stock}, Price: {priceVal:C}, Last Updated: {lastUpdatedStr}")
    End If
Next

' Open workbook from any location using the filename and path
Dim wb As WorkBook = WorkBook.Load("C:\Data\Inventory.xlsx")
Dim ws As WorkSheet = wb.GetWorkSheet("Products")
' Read different data types safely
Dim productName As String = ws("A2").StringValue
Dim quantity As Integer = ws("B2").IntValue  
Dim price As Decimal = ws("C2").DecimalValue
Dim lastUpdated As DateTime = ws("D2").DateTimeValue
' Process entire columns efficiently
Dim totalStock As Decimal = ws("B2:B100").Sum()
Dim maxPrice As Decimal = ws("C2:C100").Max()
' Iterate through all used cells starting at row index 1 to skip header (zero-based index)
 For i As Integer = 1 To ws.Rows.Count - 1
    Dim row = ws.Rows(i)
    ' Stop at first completely empty row
    If row.Columns(0).Value Is Nothing AndAlso row.Columns(1).Value Is Nothing AndAlso
       row.Columns(2).Value Is Nothing AndAlso row.Columns(3).Value Is Nothing Then Exit For
    ' Read values safely
    Dim sku As String = If(row.Columns(0).Value IsNot Nothing, row.Columns(0).StringValue, "")
    Dim stock As Integer = If(row.Columns(1).Value IsNot Nothing, row.Columns(1).IntValue, 0)
    Dim priceVal As Decimal = If(row.Columns(2).Value IsNot Nothing, row.Columns(2).DecimalValue, 0D)
    Dim rwLastUpdated As DateTime? = If(row.Columns(3).Value IsNot Nothing, row.Columns(3).DateTimeValue, Nothing)
    ' Format date
    Dim lastUpdatedStr As String = If(rwLastUpdated.HasValue, rwLastUpdated.Value.ToString("dd/MM/yyyy"), "")
    ' Print only rows with data
    If sku <> "" OrElse stock <> 0 OrElse priceVal <> 0D OrElse lastUpdatedStr <> "" Then
        Console.WriteLine($"SKU: {sku}, Stock: {stock}, Price: {priceVal:C}, Last Updated: {lastUpdatedStr}")
    End If
Next

IronXLは空のセル、結合されたセル、数式を自動的に処理します。 VB.NET Excelライブラリは、数式を読み取ると再計算し、常に最新の値を確実に取得します。 大規模なデータセットについては、Sum()、Average()、Min()、Max()のような集計関数を使用して最適なパフォーマンスを達成してください。 データをエクスポートする必要がありますか？ どのようにしてExcelをCSVに変換するかを学びましょう。

生産利用のための実践的な例は何ですか？

複数のExcelシートを処理する実際のインベントリチェッカーをVB.NETでExcelファイルを開くために構築しましょう：

Imports IronXL
Imports System.IO
Public Class ExcelInventoryReader
    Public Function CheckLowStock(filePath As String) As List(Of String)
        Dim lowStockItems As New List(Of String)
        Try
            Dim workbook As WorkBook = WorkBook.Load(filePath)
            ' Process all worksheets in the workbook
            For Each sheet As WorkSheet In workbook.WorkSheets
                Console.WriteLine($"Checking {sheet.Name}...")
                ' Find items with stock below 10 units
                For rowIndex As Integer = 2 To sheet.RowCount
                    Dim itemName As String = sheet($"A{rowIndex}").StringValue
                    Dim stockLevel As Integer = sheet($"B{rowIndex}").IntValue
                    If stockLevel < 10 AndAlso Not String.IsNullOrEmpty(itemName) Then
                        lowStockItems.Add($"{itemName} - {stockLevel} units ({sheet.Name})")
                    End If
                Next
            Next
        Catch ex As Exception
            Console.WriteLine($"Error reading Excel file: {ex.Message}")
        End Try
        Return lowStockItems
    End Function
End Class

Imports IronXL
Imports System.IO
Public Class ExcelInventoryReader
    Public Function CheckLowStock(filePath As String) As List(Of String)
        Dim lowStockItems As New List(Of String)
        Try
            Dim workbook As WorkBook = WorkBook.Load(filePath)
            ' Process all worksheets in the workbook
            For Each sheet As WorkSheet In workbook.WorkSheets
                Console.WriteLine($"Checking {sheet.Name}...")
                ' Find items with stock below 10 units
                For rowIndex As Integer = 2 To sheet.RowCount
                    Dim itemName As String = sheet($"A{rowIndex}").StringValue
                    Dim stockLevel As Integer = sheet($"B{rowIndex}").IntValue
                    If stockLevel < 10 AndAlso Not String.IsNullOrEmpty(itemName) Then
                        lowStockItems.Add($"{itemName} - {stockLevel} units ({sheet.Name})")
                    End If
                Next
            Next
        Catch ex As Exception
            Console.WriteLine($"Error reading Excel file: {ex.Message}")
        End Try
        Return lowStockItems
    End Function
End Class

この生産対応VB.NETコードは、エラー処理、マルチシート処理、および実用的なビジネスロジックを示しています。 IronXLは最大10MBのファイルを効率的にメモリ内で処理します。 より大きなファイルの場合は、特定の範囲選択を使用して部分的に処理を検討してください。 ファイルの権限のような一般的な問題は、トラブルシューティングガイドでカバーされています。 VB.NET Excelオートメーションに関するディスカッションについては、Microsoft Q&Aフォーラムがコミュニティサポートを提供しています。

結論

IronXLを利用して、VB.NETでのExcelファイルの読み取りと処理はこれまでになく簡単です—Microsoft Officeをインストールする必要はありません。 さまざまなデータタイプの安全な読み取り、大規模なワークシートの反復、数式や空のセルの処理、マルチシートワークブックの処理に至るまで、IronXLはExcelオートメーションのあらゆる側面を簡素化します。

この最新の.NETライブラリはインターロップの複雑さを排除し、バージョンの不一致を回避し、Windows、Linux、およびクラウド環境でシームレスに動作します。 小さなインベントリーチェッカーを構築する場合でも、企業規模のExcelデータを処理する場合でも、IronXLは信頼性のあるパフォーマンス、簡潔なコード、および堅牢なエラーハンドリングを提供します。

VB.NETのExcelワークフローを簡素化する準備はできましたか？ IronXLの無料トライアルを今すぐ始めてください。Excelファイルを使ってもっと速く、クリーンで、完全にOfficeに依存しない作業を体験してください。 ドキュメントとチュートリアルを調査して、アプリケーションでIronXLのパワーを最大限に引き出してください。

今IronXLを始めましょう。

無料で始める