VB .NET 讀取與建立 Excel 檔案（程式碼範例教學）

請透過 DLL 下載或 NuGet 取得 IronXL Excel for VB.NET 程式庫。 IronXL 是我們在 VB.NET 專案中快速存取 Excel 資料的第一步，也是本教學將使用的工具（開發用途免費）。

Install-Package IronXL.Excel

操作指南

2.1. 建立 Excel 檔案

首先，讓我們建立一個工作簿：

' Create a new Excel workbook with the default format (.xlsx)
Dim wb As New WorkBook

上述程式碼用於建立新的 Excel 檔案。預設情況下，其副檔名為 .xlsx。

2.2. 建立 XLS 檔案

若您想建立 .xls 擴充檔，可使用以下程式碼：

' Create a new Excel workbook with .xls format
Dim wb As New WorkBook(ExcelFileFormat.XLS)

2.3. 建立工作表

建立工作簿後，可依照以下步驟建立 Excel 工作表：

' Create a new worksheet named "Sheet1" in the workbook
Dim ws1 As WorkSheet = wb.CreateWorkSheet("Sheet1")

上述程式碼將在工作簿 wb 中建立一個名為 Sheet1 的新工作表 ws1。

2.4. 建立多個工作表

您可以透過相同方式建立任意數量的工作表：

' Create additional worksheets
Dim ws2 As WorkSheet = wb.CreateWorkSheet("Sheet2")
Dim ws3 As WorkSheet = wb.CreateWorkSheet("Sheet3")

3.1. 將資料插入儲存格

現在，我們可以輕鬆地將資料插入工作表儲存格中，方法如下：

' Insert a value into a specific cell
worksheet("CellAddress").Value = "MyValue"

例如，工作表 ws1 中的資料可插入如下：

' Insert "Hello World" into cell A1 of the worksheet
ws1("A1").Value = "Hello World"

上述程式碼將在工作表 ws1 的儲存格 A1 中寫入 Hello World。

3.2. 將資料插入範圍

亦可透過範圍函式將資料寫入多個儲存格，如下所示：

' Insert "NewValue" into the range from cell A3 to A8
ws1("A3:A8").Value = "NewValue"

3.3. 建立與編輯工作表範例

我們將建立一個名為 Sample.xlsx 的新 Excel 檔案，並在其中插入一些資料，以展示我們上述所學的程式碼。

' Import IronXL namespace for Excel operations
Imports IronXL

' Main subroutine to create and edit Excel
Sub Main()
    ' Create a new workbook in XLSX format
    Dim wb As New WorkBook(ExcelFileFormat.XLSX)
    ' Create a worksheet named "Sheet1"
    Dim ws1 As WorkSheet = wb.CreateWorkSheet("Sheet1")
    ' Insert data into cells
    ws1("A1").Value = "Hello"
    ws1("A2").Value = "World"
    ' Insert a range of values
    ws1("B1:B8").Value = "RangeValue"
    ' Save the workbook as "Sample.xlsx"
    wb.SaveAs("Sample.xlsx")
End Sub

注意：預設情況下，新的 Excel 檔案將建立在專案的 bin\Debug 資料夾中。 若要在自訂路徑中建立新檔案，請使用：

wb.SaveAs(@"E:\IronXL\Sample.xlsx")

以下是我們新建立的 Excel 檔案 Sample.xlsx 的螢幕截圖：

在 VB.NET 應用程式中，使用 IronXL 建立 Excel 檔案是多麼簡單，這點顯而易見。

4.1. 在專案中存取 Excel 檔案

WorkBook 是 IronXL 的類別，其物件可提供對 Excel 檔案及其功能的完整存取權限。 例如，若要存取 Excel 檔案，我們只需使用：

' Load the Excel file "sample.xlsx" into a workbook
Dim wb As WorkBook = WorkBook.Load("sample.xlsx") 'Excel file path

在上述程式碼中，WorkBook.Load() 函式將 sample.xlsx 載入至 wb 中。 透過存取 Excel 檔案中的特定工作表，可在 wb 上執行任何類型的功能。

4.2. 存取特定工作表

' Access worksheet by name
Dim ws As WorkSheet = wb.GetWorkSheet("Sheet1") 'by sheet name

' Access worksheet by index
Dim ws As WorkSheet = wb.WorkSheets(0) 'by sheet index

' Access the default worksheet
Dim ws As WorkSheet = wb.DefaultWorkSheet() 'for the default sheet

' Access the first worksheet in the workbook
Dim sheet As WorkSheet = wb.WorkSheets.FirstOrDefault() 'for the first sheet

5.1. 特定欄位的資料

此外，亦可透過以下方式從特定欄位的多個儲存格中擷取資料：

' Loop through cells in a specific range and print their values
For Each cell In ws("A2:A10")
    Console.WriteLine("value is: {0}", cell.Text)
Next cell

此處將顯示 A2 至 A10 儲存格中的數值。 以下提供上述討論的程式碼範例。

' Example: Load and display values from a column
Imports IronXL

Sub Main()
    ' Load the workbook from file
    Dim wb As WorkBook = WorkBook.Load("sample.xlsx")
    ' Get the first worksheet
    Dim ws As WorkSheet = wb.WorkSheets.FirstOrDefault()
    ' Loop through cells in range A2:A10
    For Each cell In ws("A2:A10")
        Console.WriteLine("value is: {0}", cell.Text)
    Next
    Console.ReadKey()
End Sub

這將顯示以下輸出：

此外，我們可以看到 Excel 檔案的螢幕截圖 Sample.xlsx：

透過以下方式應用 Sum、Min 或 Max 等彙總函數，即可輕鬆從 Excel 工作表存取已篩選的資料：

' Aggregate functions on a range of data
Dim sum As Decimal = ws("From:To").Sum()
Dim min As Decimal = ws("From:To").Min()
Dim max As Decimal = ws("From:To").Max()

您可在此處進一步了解 Excel 聚合函數。

' Example: Apply functions to data
Imports IronXL

Sub Main()
    ' Load the workbook
    Dim wb As WorkBook = WorkBook.Load("sample.xlsx")
    ' Get the first worksheet
    Dim ws As WorkSheet = wb.WorkSheets.FirstOrDefault()

    ' Perform aggregate calculations
    Dim sum As Decimal = ws("G2:G10").Sum()
    Dim min As Decimal = ws("G2:G10").Min()
    Dim max As Decimal = ws("G2:G10").Max()

    ' Print the results
    Console.WriteLine("Sum is: {0}", sum)
    Console.WriteLine("Min is: {0}", min)
    Console.WriteLine("Max is: {0}", max)
    Console.ReadKey()
End Sub

這段程式碼將產生以下顯示效果：

以及這個 Excel 檔案 Sample.xlsx：

您可透過連結文章進一步了解如何讀取 Excel。

教學快速連結

文件 API 參考

查閱 IronXL 的文件與 API 參考，了解在 VB.NET 專案中操作 Excel 的簡易方法。您可在此找到功能、函式、類別等相關清單。

文件 API 參考