Epplus實現Excel導入導出

一、導出Excel表格

在日常工作中，我們經常需要將數據導出成Excel表格。使用Epplus可以方便地實現Excel導出，具體操作步驟如下：

1、安裝Epplus

'安裝Epplus
Install-Package EPPlus

2、創建Excel文件並寫入數據

'創建Excel文件
Using excelPackage As New ExcelPackage()
    Dim worksheet = excelPackage.Workbook.Worksheets.Add("Sheet1")
    worksheet.Cells("A1").Value = "姓名"
    worksheet.Cells("B1").Value = "年齡"
    worksheet.Cells("C1").Value = "性別"
    worksheet.Cells("A2").Value = "張三"
    worksheet.Cells("B2").Value = 20
    worksheet.Cells("C2").Value = "男"
End Using

3、導出Excel文件

'導出Excel文件
Response.Clear()
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
Response.AddHeader("content-disposition", "attachment;  filename=Sample.xlsx")
Using stream As New MemoryStream()
    excelPackage.SaveAs(stream)
    stream.WriteTo(Response.OutputStream)
    Response.Flush()
    Response.End()
End Using

以上代碼實現了將數據導出成Excel表格，並將Excel文件直接下載到客戶端。

二、讀取Excel表格

除了導出Excel表格，Epplus還方便地實現了Excel的讀取功能。以下是具體的操作步驟：

1、讀取Excel文件

'讀取Excel文件
Using excelPackage As New ExcelPackage(New FileInfo("Sample.xlsx"))
    Dim worksheet = excelPackage.Workbook.Worksheets("Sheet1")
    Dim name = worksheet.Cells("A2").Value
    Dim age = worksheet.Cells("B2").Value
    Dim gender = worksheet.Cells("C2").Value
End Using

2、處理數據

'處理數據
Dim result As New List(Of Person)
Dim person As New Person With {
    .Name = name,
    .Age = age,
    .Gender = gender
}
result.Add(person)

以上代碼實現了讀取Excel文件並處理數據。在讀取Excel文件時，需要指定Excel文件的路徑；在處理數據時，我們可以對Excel中的每一行數據進行逐一處理。

三、設置Excel表格樣式

在導出Excel表格時，我們可以使用Epplus設置Excel表格的樣式，比如設置單元格的邊框、字體顏色等等。以下是具體的操作步驟：

1、設置單元格樣式

'設置單元格屬性
Dim cell = worksheet.Cells("A2")
cell.Style.Font.Bold = True
cell.Style.Font.Color.SetColor(Color.Red)
cell.Style.Border.Top.Style = ExcelBorderStyle.Thin
cell.Style.Border.Left.Style = ExcelBorderStyle.Thin
cell.Style.Border.Right.Style = ExcelBorderStyle.Thin
cell.Style.Border.Bottom.Style = ExcelBorderStyle.Thin

2、設置整個表格的樣式

'設置整個表格的屬性
With worksheet.Cells("A1:C2")
    .Style.Font.Bold = True
    .Style.Font.Size = 12
    .Style.HorizontalAlignment = ExcelHorizontalAlignment.Center
    .Style.VerticalAlignment = ExcelVerticalAlignment.Center
    .Style.Border.Top.Style = ExcelBorderStyle.Thin
    .Style.Border.Left.Style = ExcelBorderStyle.Thin
    .Style.Border.Right.Style = ExcelBorderStyle.Thin
    .Style.Border.Bottom.Style = ExcelBorderStyle.Thin
End With

以上代碼實現了設置單元格和整個表格的樣式。

四、其他操作

除了以上的操作之外，Epplus還提供了其他的功能和接口，比如：合併單元格、設置公式、設置圖表等等。以下是具體的操作步驟：

1、合併單元格

'合併單元格
worksheet.Cells("A1:C1").Merge = True
worksheet.Cells("A2:A3").Merge = True

2、設置公式

'設置公式
worksheet.Cells("B2").Formula = "= AVERAGE(B2:B3)"

3、設置圖表

'設置圖表
Dim chart = worksheet.Drawings.AddChart("PieChart", eChartType.Pie)
chart.Series.Add(worksheet.Cells("B2:B3"), worksheet.Cells("A2:A3"))
chart.Title.Text = "Age Distribution"

以上代碼實現了合併單元格、設置公式和設置圖表。

五、總結

Epplus是一個強大的Excel處理庫，提供了豐富的接口和功能，能夠實現常見的Excel導入導出、樣式設置、公式計算以及圖表繪製等操作。在實際開發中，我們可以根據需要靈活運用Epplus，提高工作效率。