如何以 C# 將 `DataGridView` 匯出至 Excel 並加上欄頭

using IronXL;
using System;
using System.Data;
using System.Windows.Forms;
// Additional namespaces for enterprise features
using System.Security.Cryptography;
using System.IO;

Imports IronXL
Imports System
Imports System.Data
Imports System.Windows.Forms
' Additional namespaces for enterprise features
Imports System.Security.Cryptography
Imports System.IO

private void Form1_Load(object sender, EventArgs e)
{
    // Example object usage
    object obj = "Initializing DataTable"; 
    Console.WriteLine(obj);

    // Create a DataTable with sample data
    DataTable dt = new DataTable();

    // Add columns with descriptive headers - proper data typing ensures Excel formatting
    dt.Columns.Add("Product ID", typeof(int));
    dt.Columns.Add("Product Name", typeof(string));
    dt.Columns.Add("Price", typeof(decimal));
    dt.Columns.Add("Stock Quantity", typeof(int));

    // Add sample rows representing inventory data
    dt.Rows.Add(1001, "Laptop", 999.99m, 15);
    dt.Rows.Add(1002, "Mouse", 29.99m, 50);
    dt.Rows.Add(1003, "Keyboard", 79.99m, 30);
    dt.Rows.Add(1004, "Monitor", 299.99m, 12);
    dt.Rows.Add(1005, "Headphones", 89.99m, 25);  

    // Bind the DataTable to DataGridView Control
    dataGridView1.DataSource = dt;

    // Configure DataGridView for optimal display
    dataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill;
    dataGridView1.AllowUserToOrderColumns = true;
}

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' Example object usage
    Dim obj As Object = "Initializing DataTable"
    Console.WriteLine(obj)

    ' Create a DataTable with sample data
    Dim dt As New DataTable()

    ' Add columns with descriptive headers - proper data typing ensures Excel formatting
    dt.Columns.Add("Product ID", GetType(Integer))
    dt.Columns.Add("Product Name", GetType(String))
    dt.Columns.Add("Price", GetType(Decimal))
    dt.Columns.Add("Stock Quantity", GetType(Integer))

    ' Add sample rows representing inventory data
    dt.Rows.Add(1001, "Laptop", 999.99D, 15)
    dt.Rows.Add(1002, "Mouse", 29.99D, 50)
    dt.Rows.Add(1003, "Keyboard", 79.99D, 30)
    dt.Rows.Add(1004, "Monitor", 299.99D, 12)
    dt.Rows.Add(1005, "Headphones", 89.99D, 25)

    ' Bind the DataTable to DataGridView Control
    dataGridView1.DataSource = dt

    ' Configure DataGridView for optimal display
    dataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    dataGridView1.AllowUserToOrderColumns = True
End Sub

private void btnExport_Click(object sender, EventArgs e)
{
    try
    {
        // Create a new Excel workbook with enterprise-grade error handling
        WorkBook workbook = WorkBook.Create(ExcelFileFormat.XLSX);
        WorkSheet worksheet = workbook.CreateWorkSheet("Exported Data");

        // Export column headers with formatting preservation
        for (int col = 0; col < dataGridView1.Columns.Count; col++)
        {
            worksheet.SetCellValue(0, col, dataGridView1.Columns[col].HeaderText);
            // Apply header formatting for professional appearance
            worksheet.GetCell(0, col).Style.Font.Bold = true;
            worksheet.GetCell(0, col).Style.BottomBorder.Type = IronXL.Styles.BorderType.Medium;
        }

        // Export data rows with type-appropriate handling
        for (int row = 0; row < dataGridView1.Rows.Count; row++)
        {
            // Skip the last empty row (used for adding new rows in DataGridView)
            if (dataGridView1.AllowUserToAddRows && row == dataGridView1.Rows.Count - 1)
                continue;

            for (int col = 0; col < dataGridView1.Columns.Count; col++)
            {
                var cellValue = dataGridView1.Rows[row].Cells[col].Value;
                if (cellValue != null)
                {
                    // Preserve data types for proper Excel formatting
                    if (cellValue is decimal || cellValue is double || cellValue is int)
                    {
                        worksheet.SetCellValue(row + 1, col, cellValue);
                    }
                    else
                    {
                        worksheet.SetCellValue(row + 1, col, cellValue.ToString());
                    }
                }
            }
        }

        // Auto-size columns for optimal viewing
        worksheet.AutoSizeColumn(0);

        // Show save dialog with security considerations
        using (SaveFileDialog saveFileDialog = new SaveFileDialog
        {
            Filter = "Excel Files|*.xlsx",
            FileName = $"DataGridView_Export_{DateTime.Now:yyyyMMdd_HHmmss}.xlsx",
            InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        })
        {
            if (saveFileDialog.ShowDialog() == DialogResult.OK)
            {
                workbook.SaveAs(saveFileDialog.FileName);
                MessageBox.Show("Export completed successfully!", "Success",
                                MessageBoxButtons.OK, MessageBoxIcon.Information);
            }
        }
    }
    catch (Exception ex)
    {
        // Enterprise-grade error handling with logging
        MessageBox.Show($"Export failed: {ex.Message}", "Export Error",
                       MessageBoxButtons.OK, MessageBoxIcon.Error);
        // Log to enterprise logging system
        System.Diagnostics.EventLog.WriteEntry("Application", 
            $"Excel export error: {ex}", System.Diagnostics.EventLogEntryType.Error);
    }
}

Private Sub btnExport_Click(sender As Object, e As EventArgs)
    Try
        ' Create a new Excel workbook with enterprise-grade error handling
        Dim workbook As WorkBook = WorkBook.Create(ExcelFileFormat.XLSX)
        Dim worksheet As WorkSheet = workbook.CreateWorkSheet("Exported Data")

        ' Export column headers with formatting preservation
        For col As Integer = 0 To dataGridView1.Columns.Count - 1
            worksheet.SetCellValue(0, col, dataGridView1.Columns(col).HeaderText)
            ' Apply header formatting for professional appearance
            worksheet.GetCell(0, col).Style.Font.Bold = True
            worksheet.GetCell(0, col).Style.BottomBorder.Type = IronXL.Styles.BorderType.Medium
        Next

        ' Export data rows with type-appropriate handling
        For row As Integer = 0 To dataGridView1.Rows.Count - 1
            ' Skip the last empty row (used for adding new rows in DataGridView)
            If dataGridView1.AllowUserToAddRows AndAlso row = dataGridView1.Rows.Count - 1 Then
                Continue For
            End If

            For col As Integer = 0 To dataGridView1.Columns.Count - 1
                Dim cellValue = dataGridView1.Rows(row).Cells(col).Value
                If cellValue IsNot Nothing Then
                    ' Preserve data types for proper Excel formatting
                    If TypeOf cellValue Is Decimal OrElse TypeOf cellValue Is Double OrElse TypeOf cellValue Is Integer Then
                        worksheet.SetCellValue(row + 1, col, cellValue)
                    Else
                        worksheet.SetCellValue(row + 1, col, cellValue.ToString())
                    End If
                End If
            Next
        Next

        ' Auto-size columns for optimal viewing
        worksheet.AutoSizeColumn(0)

        ' Show save dialog with security considerations
        Using saveFileDialog As New SaveFileDialog With {
            .Filter = "Excel Files|*.xlsx",
            .FileName = $"DataGridView_Export_{DateTime.Now:yyyyMMdd_HHmmss}.xlsx",
            .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        }
            If saveFileDialog.ShowDialog() = DialogResult.OK Then
                workbook.SaveAs(saveFileDialog.FileName)
                MessageBox.Show("Export completed successfully!", "Success",
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End Using
    Catch ex As Exception
        ' Enterprise-grade error handling with logging
        MessageBox.Show($"Export failed: {ex.Message}", "Export Error",
                       MessageBoxButtons.OK, MessageBoxIcon.Error)
        ' Log to enterprise logging system
        System.Diagnostics.EventLog.WriteEntry("Application", 
            $"Excel export error: {ex}", System.Diagnostics.EventLogEntryType.Error)
    End Try
End Sub