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，提高工作效率。