VB .NETで Excel ファイルを配列に読み込む: IronXLと Microsoft Interop

これらのソリューションを一目で比較するとどうなりますか?

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

IronXL を任意 for .NETプロジェクトに追加する最も速い方法は、 NuGetパッケージ マネージャーを使用することです。 Visual StudioでPackage Manager Consoleを開き、実行してください：

Install-Package IronXl.Excel

Install-Package IronXl.Excel

または、 .NET CLI を使用します。

dotnet add package IronXl.Excel

dotnet add package IronXl.Excel

インストール後、VB .NETモジュールの先頭に Imports IronXL を追加します。 Office をインストールする必要はありません。IronXLは独自の解析エンジンを通じて Excel ファイルの読み取りと書き込みをすべて行います。

古いフレームワークを対象とするプロジェクトや特定のバージョンの固定が必要なプロジェクトの場合、 IronXL NuGetページに公開されているすべてのリリースがリストされています。 IronXLドキュメントには、Visual Studio 2019、2022、および.NET CLI のインストール ガイドが記載されています。

開発者はIronXLを使用して Excel データを配列に読み込むことができますか?

IronXL は、ローカルの Office インストールを必要とせずに、ワークブックを開いたり、範囲を選択したり、セル値を反復処理したりするためのクリーンな API を提供します。 WorkBook.Load メソッドはファイル パスを受け入れ、すべてのワークシートを公開する WorkBook オブジェクトを返します。

Imports IronXL

Module ReadExcelToArray
    Sub Main()
        ' Load the Excel workbook from a file path
        Dim workbook As WorkBook = WorkBook.Load("SalesData.xlsx")

        ' Access the first worksheet in the workbook
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' Define the cell range to extract
        Dim dataRange As IronXl.Range = sheet.GetRange("A1:D5")

        ' Determine array dimensions from the range
        Dim rowCount As Integer = dataRange.Rows.Count
        Dim colCount As Integer = dataRange.Columns.Count
        Dim salesArray(rowCount - 1, colCount - 1) As String

        ' Populate the two-dimensional array from cell values
        Dim rowIndex As Integer = 0
        For Each row As RangeRow In dataRange.Rows
            Dim colIndex As Integer = 0
            For Each cell As Cell In row
                salesArray(rowIndex, colIndex) = cell.StringValue
                colIndex += 1
            Next
            rowIndex += 1
        Next

        ' Print each row to the console
        Console.WriteLine("Data loaded into array:")
        For i As Integer = 0 To rowCount - 1
            For j As Integer = 0 To colCount - 1
                Console.Write(salesArray(i, j) & vbTab)
            Next
            Console.WriteLine()
        Next
    End Sub
End Module

Imports IronXL

Module ReadExcelToArray
    Sub Main()
        ' Load the Excel workbook from a file path
        Dim workbook As WorkBook = WorkBook.Load("SalesData.xlsx")

        ' Access the first worksheet in the workbook
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' Define the cell range to extract
        Dim dataRange As IronXl.Range = sheet.GetRange("A1:D5")

        ' Determine array dimensions from the range
        Dim rowCount As Integer = dataRange.Rows.Count
        Dim colCount As Integer = dataRange.Columns.Count
        Dim salesArray(rowCount - 1, colCount - 1) As String

        ' Populate the two-dimensional array from cell values
        Dim rowIndex As Integer = 0
        For Each row As RangeRow In dataRange.Rows
            Dim colIndex As Integer = 0
            For Each cell As Cell In row
                salesArray(rowIndex, colIndex) = cell.StringValue
                colIndex += 1
            Next
            rowIndex += 1
        Next

        ' Print each row to the console
        Console.WriteLine("Data loaded into array:")
        For i As Integer = 0 To rowCount - 1
            For j As Integer = 0 To colCount - 1
                Console.Write(salesArray(i, j) & vbTab)
            Next
            Console.WriteLine()
        Next
    End Sub
End Module

Imports IronXL

Module ReadExcelToDoubleArray
    Sub Main()
        Dim workbook As WorkBook = WorkBook.Load("Revenue.xlsx")
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet
        Dim dataRange As IronXl.Range = sheet.GetRange("B2:E10")

        Dim rowCount As Integer = dataRange.Rows.Count
        Dim colCount As Integer = dataRange.Columns.Count
        Dim revenueArray(rowCount - 1, colCount - 1) As Double

        Dim rowIndex As Integer = 0
        For Each row As RangeRow In dataRange.Rows
            Dim colIndex As Integer = 0
            For Each cell As Cell In row
                revenueArray(rowIndex, colIndex) = cell.DoubleValue
                colIndex += 1
            Next
            rowIndex += 1
        Next

        ' Calculate column totals
        For j As Integer = 0 To colCount - 1
            Dim total As Double = 0
            For i As Integer = 0 To rowCount - 1
                total += revenueArray(i, j)
            Next
            Console.WriteLine($"Column {j + 1} total: {total:C}")
        Next
    End Sub
End Module

Imports IronXL

Module ReadExcelToDoubleArray
    Sub Main()
        Dim workbook As WorkBook = WorkBook.Load("Revenue.xlsx")
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet
        Dim dataRange As IronXl.Range = sheet.GetRange("B2:E10")

        Dim rowCount As Integer = dataRange.Rows.Count
        Dim colCount As Integer = dataRange.Columns.Count
        Dim revenueArray(rowCount - 1, colCount - 1) As Double

        Dim rowIndex As Integer = 0
        For Each row As RangeRow In dataRange.Rows
            Dim colIndex As Integer = 0
            For Each cell As Cell In row
                revenueArray(rowIndex, colIndex) = cell.DoubleValue
                colIndex += 1
            Next
            rowIndex += 1
        Next

        ' Calculate column totals
        For j As Integer = 0 To colCount - 1
            Dim total As Double = 0
            For i As Integer = 0 To rowCount - 1
                total += revenueArray(i, j)
            Next
            Console.WriteLine($"Column {j + 1} total: {total:C}")
        Next
    End Sub
End Module

出力

このコード例は、IronXL の直感的な API を示しています。 WorkBook.Load メソッドは指定されたフォルダーから Excel ファイルを直接開き、Range オブジェクトは Excel スプレッドシート内の特定のセル領域にアクセスできるようにします。 従来の VBA マクロとは異なり、このアプローチは完全に型安全であり、 .NETエコシステムに統合されています。

今IronXLを始めましょう。

無料で始める

従来の Microsoft Office 相互運用アプローチとは何ですか?

Microsoft Office Interop は、COM オートメーションを利用して Excel アプリケーション インスタンスに接続します。 Visual Studio でこれを設定するには、[プロジェクト] メニューに移動し、[参照の追加] を選択して、[COM] タブで Microsoft Excel オブジェクト ライブラリを検索します。 コードを実行するすべてのマシンにローカル Excel インストールが存在する必要があります。

Imports Microsoft.Office.Interop.Excel

Module InteropExcelArray
    Sub Main()
        Dim excelApp As New Application()
        Dim workbooks As Workbooks = excelApp.Workbooks
        Dim workbook As Workbook = なしthing
        Dim sheet As Worksheet = なしthing

        Try
            ' Suppress screen updates during processing
            excelApp.ScreenUpdating = False

            ' Open the workbook by full file path
            workbook = workbooks.Open("C:\Data\SalesData.xlsx")

            ' Reference the first worksheet
            sheet = CType(workbook.Sheets(1), Worksheet)

            ' Define a range and pull values into an object array
            Dim dataRange As Range = sheet.Range("A1", "D5")
            Dim values(,) As Object = CType(dataRange.Value, Object(,))

            ' COM arrays are 1-based, so enumerate from index 1
            Dim rows As Integer = values.GetUpperBound(0)
            Dim columns As Integer = values.GetUpperBound(1)

            For i As Integer = 1 To rows
                Dim line As String = ""
                For j As Integer = 1 To columns
                    line &= values(i, j).ToString() & vbTab
                Next
                Console.WriteLine(line)
            Next

        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)

        Finally
            ' Release COM objects to prevent orphaned Excel processes
            If sheet Isなしt なしthing Then
                System.Runtime.InteropServices.Marshal.ReleaseComObject(sheet)
            End If
            If workbook Isなしt なしthing Then
                workbook.Close(False)
                System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
            End If
            excelApp.Quit()
            System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
        End Try
    End Sub
End Module

Imports Microsoft.Office.Interop.Excel

Module InteropExcelArray
    Sub Main()
        Dim excelApp As New Application()
        Dim workbooks As Workbooks = excelApp.Workbooks
        Dim workbook As Workbook = なしthing
        Dim sheet As Worksheet = なしthing

        Try
            ' Suppress screen updates during processing
            excelApp.ScreenUpdating = False

            ' Open the workbook by full file path
            workbook = workbooks.Open("C:\Data\SalesData.xlsx")

            ' Reference the first worksheet
            sheet = CType(workbook.Sheets(1), Worksheet)

            ' Define a range and pull values into an object array
            Dim dataRange As Range = sheet.Range("A1", "D5")
            Dim values(,) As Object = CType(dataRange.Value, Object(,))

            ' COM arrays are 1-based, so enumerate from index 1
            Dim rows As Integer = values.GetUpperBound(0)
            Dim columns As Integer = values.GetUpperBound(1)

            For i As Integer = 1 To rows
                Dim line As String = ""
                For j As Integer = 1 To columns
                    line &= values(i, j).ToString() & vbTab
                Next
                Console.WriteLine(line)
            Next

        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)

        Finally
            ' Release COM objects to prevent orphaned Excel processes
            If sheet Isなしt なしthing Then
                System.Runtime.InteropServices.Marshal.ReleaseComObject(sheet)
            End If
            If workbook Isなしt なしthing Then
                workbook.Close(False)
                System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
            End If
            excelApp.Quit()
            System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
        End Try
    End Sub
End Module

どちらのソリューションがより優れた開発者エクスペリエンスを提供しますか?

これらのアプローチを本番環境での使用に評価すると、いくつかの要因によりIronXL が推奨ソリューションとして挙げられます。

展開のシンプルさ: IronXL は単一のNuGetパッケージを介してインストールされますが、Interop では複雑な環境構成が必要です。 これは、ユーザー セッションが存在しないビルド サーバーまたはクラウド関数上でプログラムが XLSX ファイルを処理する必要がある場合に重要になります。

コードの保守性: IronXLを介してデータ テーブルを読み取ると、コードが短く読みやすくなります。 行数と列数はファーストクラスプロパティとして使用できます。 Interop では、1 から始まるインデックスの COM 配列の上限を計算し、遅延バインディングされた Object 値を手動でキャストします。

形式の柔軟性: XLSX などの標準の Excel ワークブック形式に加えて、 IronXL はCSV 解析をネイティブでサポートしており、テスト データが複数の形式で受信される場合に便利です。 ライブラリでは、同様に簡単に新しいワークブック ファイルを作成し、セルに値を書き戻すこともできます。 完全なリストについては、 IronXL形式ガイドを参照してください。

エラー処理: 標準 for .NET例外パターンがIronXLに適用され、エラー回復が簡単になります。 COM ベースの例外には追加の処理ロジックが必要であり、適切に管理されていない場合は Excel インスタンスが実行されたままになる可能性があります。

クロスプラットフォーム サポート: IronXL は、 .NET 6 以降を介して Linux および macOS で実行されます。 Interop は Win32 COM サブシステムに依存するため、Windows のみです。

VB .NETで動的な Excel 範囲を操作するにはどうすればよいでしょうか?

生産スプレッドシートの行数は固定されていることがほとんどありません。 IronXL は各ワークシートに UsedRange プロパティを提供し、空でないすべてのセルの境界四角形を返します。 ハードコードされた範囲文字列の代わりにこれを使用できます。

Imports IronXL

Module DynamicRangeExample
    Sub Main()
        Dim workbook As WorkBook = WorkBook.Load("DynamicData.xlsx")
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' Get the bounding range of all populated cells
        Dim usedRange As IronXl.Range = sheet.UsedRange

        Dim rowCount As Integer = usedRange.Rows.Count
        Dim colCount As Integer = usedRange.Columns.Count
        Dim dynamicArray(rowCount - 1, colCount - 1) As String

        Dim rowIndex As Integer = 0
        For Each row As RangeRow In usedRange.Rows
            Dim colIndex As Integer = 0
            For Each cell As Cell In row
                dynamicArray(rowIndex, colIndex) = cell.StringValue
                colIndex += 1
            Next
            rowIndex += 1
        Next

        Console.WriteLine($"Loaded {rowCount} rows x {colCount} columns from UsedRange.")
    End Sub
End Module

Imports IronXL

Module DynamicRangeExample
    Sub Main()
        Dim workbook As WorkBook = WorkBook.Load("DynamicData.xlsx")
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' Get the bounding range of all populated cells
        Dim usedRange As IronXl.Range = sheet.UsedRange

        Dim rowCount As Integer = usedRange.Rows.Count
        Dim colCount As Integer = usedRange.Columns.Count
        Dim dynamicArray(rowCount - 1, colCount - 1) As String

        Dim rowIndex As Integer = 0
        For Each row As RangeRow In usedRange.Rows
            Dim colIndex As Integer = 0
            For Each cell As Cell In row
                dynamicArray(rowIndex, colIndex) = cell.StringValue
                colIndex += 1
            Next
            rowIndex += 1
        Next

        Console.WriteLine($"Loaded {rowCount} rows x {colCount} columns from UsedRange.")
    End Sub
End Module

VB .NET配列を Excel にエクスポートするにはどうすればよいですか?

IronXL は、読み取りに使用するのと同じ API を使用して、配列データをワークシートに書き戻すことをサポートしています。 これは、メモリ内でデータを変換し、その結果を新しい Excel ファイルとして保存する必要があるシナリオに役立ちます。

Imports IronXL

Module WriteArrayToExcel
    Sub Main()
        ' Create a new workbook and worksheet
        Dim workbook As WorkBook = WorkBook.Create(ExcelFileFormat.XLSX)
        Dim sheet As WorkSheet = workbook.CreateWorkSheet("Results")

        Dim outputArray(,) As String = {
            {"Region", "Q1", "Q2", "Q3"},
            {"なしrth", "12500", "14200", "15800"},
            {"South", "9800", "10500", "11300"},
            {"East", "8200", "9100", "9900"}
        }

        ' Write the array contents to the worksheet cell by cell
        For i As Integer = 0 To outputArray.GetUpperBound(0)
            For j As Integer = 0 To outputArray.GetUpperBound(1)
                Dim cellAddress As String = IronXl.ExcelAddress.ToAddress(i, j)
                sheet(cellAddress).Value = outputArray(i, j)
            Next
        Next

        workbook.SaveAs("Output.xlsx")
        Console.WriteLine("Workbook saved as Output.xlsx")
    End Sub
End Module

Imports IronXL

Module WriteArrayToExcel
    Sub Main()
        ' Create a new workbook and worksheet
        Dim workbook As WorkBook = WorkBook.Create(ExcelFileFormat.XLSX)
        Dim sheet As WorkSheet = workbook.CreateWorkSheet("Results")

        Dim outputArray(,) As String = {
            {"Region", "Q1", "Q2", "Q3"},
            {"なしrth", "12500", "14200", "15800"},
            {"South", "9800", "10500", "11300"},
            {"East", "8200", "9100", "9900"}
        }

        ' Write the array contents to the worksheet cell by cell
        For i As Integer = 0 To outputArray.GetUpperBound(0)
            For j As Integer = 0 To outputArray.GetUpperBound(1)
                Dim cellAddress As String = IronXl.ExcelAddress.ToAddress(i, j)
                sheet(cellAddress).Value = outputArray(i, j)
            Next
        Next

        workbook.SaveAs("Output.xlsx")
        Console.WriteLine("Workbook saved as Output.xlsx")
    End Sub
End Module

ExcelAddress.ToAddress(row, column) ヘルパーは、ゼロベースの整数座標を A1 表記の文字列に変換します。 これにより、書き込みループがクリーンな状態に保たれ、セル アドレスを手動で計算する必要がなくなります。 数式の挿入やスタイルの適用などのその他のパタ​​ーンについては、 IronXL作成チュートリアルを参照してください。

複数のワークシートを別々の配列に読み込むにはどうすればよいでしょうか?

一部のワークブックでは、月ごとに 1 つのシート、または地域ごとに 1 つのシートなど、複数のシートにわたってデータが保存されます。 IronXL は、workbook.WorkSheets を通じてすべてのシートを公開します。これを反復処理して、各シートを独自の配列に読み込むことができます。

Imports IronXL

Module MultiSheetArrayLoader
    Sub Main()
        Dim workbook As WorkBook = WorkBook.Load("AnnualReport.xlsx")

        For Each sheet As WorkSheet In workbook.WorkSheets
            Console.WriteLine($"Loading sheet: {sheet.Name}")

            Dim dataRange As IronXl.Range = sheet.UsedRange
            Dim rowCount As Integer = dataRange.Rows.Count
            Dim colCount As Integer = dataRange.Columns.Count
            Dim sheetArray(rowCount - 1, colCount - 1) As String

            Dim rowIndex As Integer = 0
            For Each row As RangeRow In dataRange.Rows
                Dim colIndex As Integer = 0
                For Each cell As Cell In row
                    sheetArray(rowIndex, colIndex) = cell.StringValue
                    colIndex += 1
                Next
                rowIndex += 1
            Next

            Console.WriteLine($"  Loaded {rowCount} rows x {colCount} columns.")
        Next
    End Sub
End Module

Imports IronXL

Module MultiSheetArrayLoader
    Sub Main()
        Dim workbook As WorkBook = WorkBook.Load("AnnualReport.xlsx")

        For Each sheet As WorkSheet In workbook.WorkSheets
            Console.WriteLine($"Loading sheet: {sheet.Name}")

            Dim dataRange As IronXl.Range = sheet.UsedRange
            Dim rowCount As Integer = dataRange.Rows.Count
            Dim colCount As Integer = dataRange.Columns.Count
            Dim sheetArray(rowCount - 1, colCount - 1) As String

            Dim rowIndex As Integer = 0
            For Each row As RangeRow In dataRange.Rows
                Dim colIndex As Integer = 0
                For Each cell As Cell In row
                    sheetArray(rowIndex, colIndex) = cell.StringValue
                    colIndex += 1
                Next
                rowIndex += 1
            Next

            Console.WriteLine($"  Loaded {rowCount} rows x {colCount} columns.")
        Next
    End Sub
End Module

開発者は相互運用配列形式について何を知っておくべきでしょうか?

Interop アプローチでは、COM の 1 から始まるインデックスを使用して、セル データを Object(,) 配列として返します。 最初の行の最初の要素は、values(0, 0) ではなく、values(1, 1) にあります。 これは、off-by-one エラーの頻繁な原因です。

追加の懸念事項は null 処理です。Interop は空のセルに なしthing を返します。 null参照に対してNullReferenceExceptionがスローされます。すべてのセルアクセスの前後にnullガードを追加する必要があります。

If values(i, j) Isなしt なしthing Then
    line &= values(i, j).ToString() & vbTab
End If

If values(i, j) Isなしt なしthing Then
    line &= values(i, j).ToString() & vbTab
End If

IronXL は、空白のセルに空の文字列を返すことでこの問題を解消します。つまり、ループ コードは追加のガードなしで動作します。

Interop で使用される Excel オブジェクト モデルに関する正式な情報については、 Microsoft Excel VBA リファレンスおよびMSDN Office 相互運用性ドキュメントを参照してください。

次のステップは何ですか?

Excel データを配列に読み込むことは、最も一般的な.NETスプレッドシート タスクの 1 つであり、 IronXL を使用すると実装が簡単になります。 次のステップに進むには:

• IronXLをダウンロードします。NuGet ( @@ --CODE-348--@@) 経由でインストールし、スタート ガイドに従います。 -形式のサポートを調べる: IronXL は、XLSX、XLS、CSV、TSV、JSON を読み書きします。 詳細については、サポートされている形式のページを参照してください。 -高度な機能を試す: 範囲の並べ替え、数式の適用、セル スタイルの設定、グラフの生成など、すべて Excel をインストールせずに実行できます。 完全な機能リストについては、 IronXL機能の概要を確認してください。 -コード例を参照: IronXLコード例ライブラリには、数十の一般的なスプレッドシート タスクのコピー アンド ペースト スニペットが用意されています。 -ライセンスの確認: 実稼働環境での展開の場合、 IronXLライセンスでは開発者、チーム、OEM 層が提供されます。

IronXLと Microsoft Office Interop はどちらも Excel データを配列に読み込むことができますが、 IronXL はOffice に依存しないアーキテクチャ、よりクリーンな API、柔軟な展開オプションを通じて優れた開発者エクスペリエンスを実現します。 このライブラリは、COM オブジェクトの管理やシステム依存関係などの一般的な問題点を解消すると同時に、スプレッドシート自動化の高度な機能へのアクセスを提供します。

IronXLドキュメント ハブのサンプル プロジェクト、リソース、ドキュメントを使用して、 IronXLの全機能を調べてください。 エンタープライズ アプリケーションの場合、 IronXLライセンス オプションは、あらゆるプロジェクト範囲に適合する柔軟な条件を提供します。