VB.NETでDataTableをExcelにエクスポートする方法

4.1 Visual Studioを使用する

IronXLライブラリをインストールする最初の方法は、Visual StudioのNuGetパッケージ マネージャーを使用することです。 NuGetパッケージマネージャを開き、参照タブでIronXLを検索してください。 検索結果にIronXLが表示されたら、それを選択してインストールを続行します。

次のスクリーンショットは、Visual StudioでNuGetパッケージマネージャーに移動する方法の例を示しています。

NuGetパッケージマネージャーに移動する

検索結果のIronXL：

NuGetパッケージマネージャUIでのIronXLパッケージの検索とインストール

4.2 Visual Studioコマンドラインを使用する

多くの人がコマンドラインインターフェイスを使用してパッケージをインストールすることを好みます。 コマンドラインを使用してIronXLをインストールするには、次の手順を実行します：

• Visual Studioで、ツール > NuGetパッケージマネージャー > パッケージマネージャーコンソールに進みます。 パッケージマネージャーコンソールタブに次の行を入力します: Install-Package IronXL.Excel

今、パッケージは現在のプロジェクトにダウンロード/インストールされ、使用可能になります。

パッケージ マネージャ コンソールでIronXLパッケージをインストールする

5.1. DataTableをXLSファイルに変換

DataTableオブジェクトをXLSファイルにエクスポートすることで、元のデータの構造と書式を保持しつつ、他のユーザーと容易に読みやすく共有可能な形式でテーブル データを保存できます。

次のコードスニペットは、DataTable行を作成し、それをExcelファイルに変換する方法を示しています。

Imports IronXL
Imports System
Imports System.Data

Module Program
    Sub Main(args As String())
        ' Create a new DataTable
        Dim table As New DataTable()

        ' Add a column to the DataTable
        table.Columns.Add("DataSet_Daily_Household", GetType(String))

        ' Add rows to the DataTable
        table.Rows.Add("Glass")
        table.Rows.Add("Plates")
        table.Rows.Add("Match Sticks")
        table.Rows.Add("Leather")
        table.Rows.Add("Soap")
        table.Rows.Add("Brush")
        table.Rows.Add("Comb")
        table.Rows.Add("Wires")
        table.Rows.Add("Pins")
        table.Rows.Add("And Many More")

        ' Create a new Excel workbook and set the format to XLS
        Dim dt As WorkBook = WorkBook.Create(ExcelFileFormat.XLS)

        ' Select the default worksheet
        Dim dc As WorkSheet = dt.DefaultWorkSheet

        ' Iterate through DataTable rows and populate the Excel worksheet
        Dim rowCount As Integer = 1
        For Each row As DataRow In table.Rows
            dc("A" & (rowCount)).Value = row(0).ToString()
            rowCount += 1
        Next row

        ' Save the workbook as "sample.xls"
        dt.SaveAs("sample.xls")
    End Sub
End Module

上記のコードスニペットから生成されたExcelファイル

5.2. DataTableをXLSXファイルに変換

同様に、DataTableの行と列をXLSXファイル形式に変換するには、上記の例の1行のコードを変更するだけです。

このコード行を置き換えます：

dt.SaveAs("sample.xls")

次のようにします：

dt.SaveAs("sample.xlsx")

5.3. DataTableをCSVファイルに変換

また、上記の例のコードの 1 行をSaveAsからSaveAsCsvに変更することで、DataTable の行と列を CSV ファイル形式に変換することもできます。

このコード行を置き換えます：

dt.SaveAs("sample.xls")

次のようにします：

dt.SaveAsCsv("sample.csv")

上記のコードから生成されたCSVファイル