IronXLを使用して C# でデータセットを Excel に変換する方法

Install-Package IronXL.Excel
dotnet add package IronXL.Excel

using IronXL;
using System.Data;

Imports IronXL
Imports System.Data

using IronXL;
using System.Data;
using System.Data.SqlClient;

string connectionString = "Data Source=server;Initial Catalog=SampleDB;Integrated Security=True";
string query = "SELECT OrderID, CustomerName, OrderDate, TotalAmount FROM Orders WHERE OrderDate >= '2024-01-01'";

DataSet dataSet = new DataSet();

// Populate DataSet from database
using (SqlConnection connection = new SqlConnection(connectionString))
{
    using (SqlDataAdapter adapter = new SqlDataAdapter(query, connection))
    {
        adapter.Fill(dataSet, "Orders");
    }
}

// Create Excel workbook and load data
WorkBook workBook = WorkBook.Create();
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook);

// Auto-size columns for readability
WorkSheet worksheet = workBook.WorkSheets[0];
for (int i = 0; i < worksheet.Columns.Count(); i++)
{
    worksheet.AutoSizeColumn(i);
}

// Save with timestamp in filename
string fileName = $"OrdersExport_{DateTime.Now:yyyyMMdd_HHmmss}.xlsx";
workBook.SaveAs(fileName);

Imports IronXL
Imports System.Data
Imports System.Data.SqlClient

Dim connectionString As String = "Data Source=server;Initial Catalog=SampleDB;Integrated Security=True"
Dim query As String = "SELECT OrderID, CustomerName, OrderDate, TotalAmount FROM Orders WHERE OrderDate >= '2024-01-01'"

Dim dataSet As New DataSet()

' Populate DataSet from database
Using connection As New SqlConnection(connectionString)
    Using adapter As New SqlDataAdapter(query, connection)
        adapter.Fill(dataSet, "Orders")
    End Using
End Using

' Create Excel workbook and load data
Dim workBook As WorkBook = WorkBook.Create()
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)

' Auto-size columns for readability
Dim worksheet As WorkSheet = workBook.WorkSheets(0)
For i As Integer = 0 To worksheet.Columns.Count() - 1
    worksheet.AutoSizeColumn(i)
Next

' Save with timestamp in filename
Dim fileName As String = $"OrdersExport_{DateTime.Now:yyyyMMdd_HHmmss}.xlsx"
workBook.SaveAs(fileName)

using IronXL;
using System.Data;

DataSet dataSet = new DataSet("CompanyData");

// Create Employees table
DataTable employeesTable = new DataTable("Employees");
employeesTable.Columns.Add("EmployeeID", typeof(int));
employeesTable.Columns.Add("Name", typeof(string));
employeesTable.Columns.Add("Department", typeof(string));
employeesTable.Rows.Add(1, "John Smith", "Sales");
employeesTable.Rows.Add(2, "Jane Doe", "Marketing");

// Create Departments table
DataTable departmentsTable = new DataTable("Departments");
departmentsTable.Columns.Add("DepartmentName", typeof(string));
departmentsTable.Columns.Add("Budget", typeof(decimal));
departmentsTable.Rows.Add("Sales", 100000m);
departmentsTable.Rows.Add("Marketing", 75000m);

// Add both tables to DataSet
dataSet.Tables.Add(employeesTable);
dataSet.Tables.Add(departmentsTable);

// Convert to Excel -- each DataTable becomes a worksheet
WorkBook workBook = WorkBook.Create();
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook);

// Rename worksheets for clarity
workBook.WorkSheets[0].Name = "Employee List";
workBook.WorkSheets[1].Name = "Department Budgets";

workBook.SaveAs("CompanyData.xlsx");

Imports IronXL
Imports System.Data

Dim dataSet As New DataSet("CompanyData")

' Create Employees table
Dim employeesTable As New DataTable("Employees")
employeesTable.Columns.Add("EmployeeID", GetType(Integer))
employeesTable.Columns.Add("Name", GetType(String))
employeesTable.Columns.Add("Department", GetType(String))
employeesTable.Rows.Add(1, "John Smith", "Sales")
employeesTable.Rows.Add(2, "Jane Doe", "Marketing")

' Create Departments table
Dim departmentsTable As New DataTable("Departments")
departmentsTable.Columns.Add("DepartmentName", GetType(String))
departmentsTable.Columns.Add("Budget", GetType(Decimal))
departmentsTable.Rows.Add("Sales", 100000D)
departmentsTable.Rows.Add("Marketing", 75000D)

' Add both tables to DataSet
dataSet.Tables.Add(employeesTable)
dataSet.Tables.Add(departmentsTable)

' Convert to Excel -- each DataTable becomes a worksheet
Dim workBook As WorkBook = WorkBook.Create()
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)

' Rename worksheets for clarity
workBook.WorkSheets(0).Name = "Employee List"
workBook.WorkSheets(1).Name = "Department Budgets"

workBook.SaveAs("CompanyData.xlsx")

using IronXL;

// Assume workBook is already populated from DataSet
WorkSheet worksheet = workBook.WorkSheets[0];

// Style the header row
IronXL.Range headerRange = worksheet.GetRange("A1:D1");
headerRange.Style.Font.Bold = true;
headerRange.Style.BackgroundColor = "#4472C4";
headerRange.Style.Font.Color = "#FFFFFF";

// Format currency column (column C, rows 2 onward)
for (int rowIndex = 1; rowIndex < worksheet.RowCount; rowIndex++)
{
    worksheet[$"C{rowIndex + 1}"].FormatString = "$#,##0.00";
}

// Add borders to the data range
IronXL.Range dataRange = worksheet.GetRange($"A1:D{worksheet.RowCount}");
dataRange.Style.Border.TopBorder.Type = IronXL.Styles.BorderType.Thin;
dataRange.Style.Border.BottomBorder.Type = IronXL.Styles.BorderType.Thin;

workBook.SaveAs("FormattedExport.xlsx");

Imports IronXL

' Assume workBook is already populated from DataSet
Dim worksheet As WorkSheet = workBook.WorkSheets(0)

' Style the header row
Dim headerRange As IronXL.Range = worksheet.GetRange("A1:D1")
headerRange.Style.Font.Bold = True
headerRange.Style.BackgroundColor = "#4472C4"
headerRange.Style.Font.Color = "#FFFFFF"

' Format currency column (column C, rows 2 onward)
For rowIndex As Integer = 1 To worksheet.RowCount - 1
    worksheet($"C{rowIndex + 1}").FormatString = "$#,##0.00"
Next

' Add borders to the data range
Dim dataRange As IronXL.Range = worksheet.GetRange($"A1:D{worksheet.RowCount}")
dataRange.Style.Border.TopBorder.Type = IronXL.Styles.BorderType.Thin
dataRange.Style.Border.BottomBorder.Type = IronXL.Styles.BorderType.Thin

workBook.SaveAs("FormattedExport.xlsx")

using IronXL;

string outputPath = Environment.GetEnvironmentVariable("EXCEL_OUTPUT_PATH") ?? "/app/output";
string fileName = System.IO.Path.Combine(outputPath, $"Export_{Guid.NewGuid()}.xlsx");
workBook.SaveAs(fileName);

Imports IronXL

Dim outputPath As String = Environment.GetEnvironmentVariable("EXCEL_OUTPUT_PATH")
If outputPath Is Nothing Then outputPath = "/app/output"
Dim fileName As String = System.IO.Path.Combine(outputPath, $"Export_{Guid.NewGuid()}.xlsx")
workBook.SaveAs(fileName)