VB.NETで簡単にExcelファイルに書き込む方法

VB.NETでExcelを自動化するにはどうすればよいですか？

VB.NETプロジェクトでExcelファイルに書き込みを開始するには、まずIronXLライブラリを追加する必要があります。 このプロセスは簡単で、Visual Studio内で直接行うことができます。

まず、開発環境が準備されていることを確認してください：

• Visual Studio 2022 以上。
• .NET Framework 4.6.2以上または.NET Core/.NET 5+を対象としたアクティブプロジェクト。 IronXLはすべての最新.NETバージョンと互換性があります。.NET 9および10も含まれます。

次に、IronXL NuGetパッケージをインストールします：

1. Visual StudioのNuGetパッケージマネージャーを開きます。
2. パッケージ IronXL.Excel を検索します。
3. "インストール"をクリックします。

代わりに、次のコマンドを使用してPackage Manager Consoleからインストールすることもできます：

Install-Package IronXL.Excel

VB.NET Excel統合のために正しいパッケージを見つけるために、Visual StudioのメニューでNuGetパッケージマネージャーに移動しています。

インストールが完了したら、コードを書き始める準備が整いました。 ライブラリのクラスをスコープ内に取り込むには、VB .NETファイルの先頭に Imports IronXL を追加するだけです。

新しいExcelファイルを作成してデータを書き込むにはどうすればいいですか？

新しいExcelファイルを作成し、データを書き込むにはどうすればよいですか？

21. 新しいExcelファイルをゼロから作成することは基本的な作業です。 これは、アプリケーションデータのエクスポートや日報の生成などのタスクに最適です。 実際の例を見てみましょう。

22. 実用的な例を見てみましょう。 私たちには、Excelスプレッドシートにエクスポートしたい製品データのリストがあると想像してください。

次のコードは、List(Of Product)を取得して、その内容を新しく作成されたExcelファイルに書き込む方法を示します。

以下のコードは、List(Of Product) を取得し、その内容を新しく作成された Excel ファイルに書き込む方法を示しています。

Imports IronXL
Imports System.Collections.Generic
Imports System.Linq

Public Class Product
    Public Property ID As Integer
    Public Property Name As String
    Public Property Price As Decimal
End Class

Module Program
    Sub Main(args As String())
        ' 1. Prepare a list of data to write to Excel.
        Dim products As New List(Of Product) From {
            New Product With {.ID = 1, .Name = "Laptop", .Price = 1200.50D},
            New Product With {.ID = 2, .Name = "Keyboard", .Price = 75.00D},
            New Product With {.ID = 3, .Name = "Mouse", .Price = 25.99D}
        }

        ' 2. Create a new Excel workbook and select the default worksheet.
        Dim workbook As WorkBook = WorkBook.Create()
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' 3. Write headers for our data.
        sheet("A1").Value = "Product ID"
        sheet("B1").Value = "Product Name"
        sheet("C1").Value = "Price"

        ' Style the header row.
        Dim headerRange = sheet.GetRange("A1:C1")
        headerRange.Style.Font.Bold = True
        headerRange.Style.SetBackgroundColor("#D3D3D3") ' Light Gray

        ' 4. Iterate through the product list and write data to subsequent rows.
        For i As Integer = 0 To products.Count - 1
            Dim product = products(i)
            Dim row = i + 2 ' Start from the second row
            sheet("A" & row).Value = product.ID
            sheet("B" & row).Value = product.Name
            sheet("C" & row).Value = product.Price
        Next

        ' 5. Apply currency formatting to the price column.
        Dim priceColumn = sheet.GetRange("C2:C" & products.Count + 1)
        priceColumn.Style.Format = "$#,##0.00"

        ' 6. Auto-size columns for better readability.
        sheet.Columns.AutoFit()

        ' 7. Save the newly created and populated workbook to a file.
        workbook.SaveAs("ProductReport.xlsx")

    End Sub
End Module

既存のExcelファイルにデータを書き込むにはどうすればよいですか？

これは、ログの記録やデータセットへのレコードの追加、またはレポートの更新によくあります。 これは、ログ記録、データセットへのレコードの追加、またはレポートの更新によく見られます。 次の例では、既存のスプレッドシートを開いて、最後に使用された行を見つけ、新しいデータを追加する方法を示します。

以下の例は、既存のスプレッドシートを開き、最後に使用された行を見つけ、新しいデータを追加する方法を示しています。

Imports IronXL
Imports System.Collections.Generic
Imports System.Linq

' (Assuming the Product class from the previous example is available)

Module Program
    Sub Main(args As String())
        ' Ensure the file from our previous example exists.
        If Not System.IO.File.Exists("ProductReport.xlsx") Then
            Console.WriteLine("Please run the first example to create ProductReport.xlsx")
            Return
        End If

        ' 1. Load the existing workbook from the file system.
        Dim workbook As WorkBook = WorkBook.Load("ProductReport.xlsx")
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' 2. Find the first empty row to append new data.
        ' The LastRowUsed property gives us the last row with data.
        Dim lastRow = sheet.Info.LastRowUsed
        Dim newRowIndex = lastRow.RowNumber + 1

        ' 3. Define the new data to be added.
        Dim newProducts As New List(Of Product) From {
            New Product With {.ID = 4, .Name = "Monitor", .Price = 350.00D},
            New Product With {.ID = 5, .Name = "Webcam", .Price = 99.99D}
        }

        ' 4. Loop through the new data and write it to the worksheet.
        For i As Integer = 0 To newProducts.Count - 1
            Dim product = newProducts(i)
            Dim currentRow = newRowIndex + i
            sheet("A" & currentRow).Value = product.ID
            sheet("B" & currentRow).Value = product.Name
            sheet("C" & currentRow).Value = product.Price
        Next

        ' 5. Re-apply formatting and auto-fit columns to include new data.
        Dim priceColumn = sheet.GetRange("C2:C" & sheet.Info.LastRowUsed.RowNumber)
        priceColumn.Style.Format = "$#,##0.00"
        sheet.Columns.AutoFit()

        ' 6. Save the changes back to the original file.
        workbook.Save()

        ' Or save as a new file to preserve the original.
        ' workbook.SaveAs("ProductReport_Updated.xlsx")
    End Sub
End Module

Excelワークシートに"DataTable"を書き込むにはどうすればよいですか？

SQL Server などのソースからのデータを扱う開発者にとって、一般的なタスクは、DataTable の内容を Excel シートに直接書き込むことです。 IronXLは、行や列を手動でループさせる必要を排除する組み込みメソッドでこれを効率化します。

この例では、DataTable にデータを入力し、それを新しい Excel ファイルにエクスポートする方法を 1 つの手順で示します。

Imports IronXL
Imports System.Data

Module Program
    Sub Main(args As String())
        ' 1. Create and populate a DataTable. This often comes from a database query.
        Dim dt As New DataTable("EmployeeData")
        dt.Columns.Add("EmployeeID", GetType(Integer))
        dt.Columns.Add("FullName", GetType(String))
        dt.Columns.Add("Department", GetType(String))
        dt.Columns.Add("HireDate", GetType(Date))

        dt.Rows.Add(101, "John Smith", "Sales", New Date(2022, 5, 20))
        dt.Rows.Add(102, "Jane Doe", "Engineering", New Date(2021, 8, 15))
        dt.Rows.Add(103, "Peter Jones", "Marketing", New Date(2023, 1, 10))

        ' 2. Create a new workbook.
        Dim workbook As WorkBook = WorkBook.Create()
        Dim sheet As WorkSheet = workbook.CreateWorkSheet("Employees")

        ' 3. Write the DataTable to the worksheet starting at cell A1.
        ' The second parameter (True) indicates that column headers should be included.
        sheet.Write(dt, "A1", True)

        ' 4. Apply some styling for a more polished look.
        sheet.Columns.AutoFit()
        Dim headerRange = sheet.GetRange("A1:D1")
        headerRange.Style.Font.Bold = True
        headerRange.Style.SetBackgroundColor("#C5D9F1") ' Light Blue

        Dim dateColumn = sheet.GetRange("D2:D" & dt.Rows.Count + 1)
        dateColumn.Style.Format = "yyyy-mm-dd"

        ' 5. Save the workbook.
        workbook.SaveAs("EmployeeDatabaseExport.xlsx")
    End Sub
End Module

sheet.Write() メソッドはこの目的に非常に効率的です。 指定された場合は列ヘッダーを含め、DataTable 構造をワークシートにインテリジェントにマッピングします。 これはデータ駆動型アプリケーションにとって強力な機能であり、手動反復に比べて大幅な時間節約になります。 データのインポートとエクスポートの詳細については、異なるスプレッドシート形式の変換に関するチュートリアルをご覧ください。

Excelファイルに書き込むときに他に何ができますか？

データの書き込みは始まりに過ぎません。 IronXLは、包括的な機能を提供しています。以下その一例です： IronXLは、以下の包括的な機能を提供します。

-数式：プログラムによって数式を設定および計算します。 セルの Value (例: sheet("C1").Value = "=SUM(A1:B1)") に数式を割り当てると、 IronXL が結果を計算します。 -グラフ：ワークシートのデータからさまざまな種類のグラフを作成し、情報を視覚化します。 -データ検証：セルに対してルールを適用します。例えば、特定の範囲内の数値のみを許可したり、ドロップダウンリストからの値のみを許可したりすることができます。 -条件付き書式設定：セルの値に基づいてスタイルを適用し、重要なデータポイントを強調表示します。 -セキュリティと保護：ワークシートまたはワークブック全体をパスワードで保護し、アクセスを制御して変更を防止します。

VB.NETでのExcelファイルへの書き込みを今すぐ始めましょう

今日からVB.NETでExcelファイルの書き込みを開始しましょう

Office Interopの複雑さと依存関係を避けることで、より信頼性が高く、パフォーマンスが優れ、展開しやすいアプリケーションを構築できます。 Excelファイルをゼロから作成する、既存のレポートにデータを追加する、またはDataTableをエクスポートする必要がある場合、IronXLは効率的に仕事を完了するための直感的で強力なAPIを提供します。 Excel ファイルをゼロから作成する必要がある場合でも、既存のレポートにデータを追加する必要がある場合でも、DataTable をエクスポートする必要がある場合でも、 IronXL は効率的に作業を完了するための直感的で強力な API を提供します。

より広範なニーズを持つ方には、IronXLがIron Suite for .NETにも含まれていることを思い出してください。

より広範なニーズを持つ方々のために、IronXLはIron Suite for .NETの一部であることを忘れないでください。 1 つのライセンスで、PDF、バーコード、OCR などを処理するための包括的なライブラリ セットにアクセスできるようになり、あらゆる .NET 開発者に優れた価値を提供します。