标签：npio datagridview excel
NPOI是POI的.Net版本，即“N”表示“Net”。不论是NPOI还是POI，它们其实都是已经编写好的类库。类库大家并不陌生，我们在建立BLL层，DAL层，Facade层……，是不是都是在创建一个个类库啊。那么这个东西和它们差不多。
提供对Microsoft Office格式的文档读和写的功能。也就是说不仅仅用于对Excel的读和写，还有Word，Power Point等。
大家可以自己查查NPOI的优势，我自己能亲身感受到的一点是：在做第一遍机房收费系统（VB版）时，我们要导出Excel，引用Microsoft Excel Object Library，并且应用Excel.Workbook,Excel.Sheet对象完成导出功能。可是当电脑上没有安装Microsoft Office Excel时，是无法成功导出的。
首先从网上下载NPOI.dll。就像我在前面提到的NPOI是类库，所以会生成.dll文件，就像DAL.dll。
这里以在机房收费系统重构版的实践应用为例。
在U层添加引用，添加NPOI.dll文件。或直接将文件放到U层的bin\Debug文件夹下。
接下来，就是代码部分。
不过，我这里我先说一下我的需求：
- 如果DataGridView中有记录，则导出为Excel。
- 因为DataGridView中有的列我设置为隐藏（不可见），但是导出为Excel时，会把这些隐藏的列都给导出，如何设置使隐藏的列不被导出。
- 为了实现导出Excel的功能的复用，要将它封装到类里面。
如图所示：
一般用户查询余额窗体，它不需要看到“结账状态”一列，所以我将这列的Visible属性设为False：
但是导出为Excel后，会将结账状态一列显示出来，或是显示为空的列，如图：
需求和问题清楚了，下面请看我的实现：
具体流程：
当单击导出为Excel按钮时，会弹出保存对话框，输入文件名，选择保存路径，则会把数据存到Excel表中。
Imports NPOI.HSSF.UserModel 'HSSF是Microsoft Excel 97-2003 格式读写库
Imports NPOI.SS.UserModel 'Excel公用接口及Excel公式计算引擎
Imports System.IO '提供允许读写文件和数据流的类
Public Class ExportExcel
'''
''' 导出为Excel
'''
''' 参数为DataGridView
'''
Public Shared Sub ExportExcel(ByVal dgv As System.Windows.Forms.DataGridView)
Dim workbook As New HSSFWorkbook '工作簿
Dim sheet As HSSFSheet '工作表
Dim excelrow As HSSFRow '行集
Dim i As Integer '列的循环变量
Dim m As Integer '行的循环变量
Dim n As Integer '列的循环变量
Dim saveDialog As Windows.Forms.SaveFileDialog '保存文件的对话框
Dim ms As MemoryStream '内存中的数据流
Dim fs As FileStream '文件流
Dim filename As String '保存时的文件名称
'如果DataGridView中没有数据，则不导出Excel
If dgv.Rows.Count = 0 Then
MsgBox("无法导出为Excel！", MsgBoxStyle.Exclamation, "温馨提示")
Return
End If
sheet = workbook.CreateSheet '在工作簿中创建表
excelrow = sheet.CreateRow(0) '在工作表中创建标题行Row（0）
'添加每列列标题
For i = 0 To dgv.Columns.Count - 1
'将可见的列的标题写到单元格中（如果某列不可见，那么会在导出的Excel中空出这列）
If dgv.Columns(i).Visible = True Then
excelrow.CreateCell(i).SetCellValue(dgv.Columns(i).HeaderText)
End If
Next
'添加其他行和列
For m = 1 To dgv.Rows.Count
excelrow = sheet.CreateRow(m) '每遍历一行，则在sheet中创建一行
For n = 0 To dgv.Columns.Count - 1 '遍历每一行中的所有列
'如果该列可见，则导出该列单元格的值
If dgv.Columns(n).Visible = True Then
excelrow.CreateCell(n).SetCellValue(dgv.Rows(m - 1).Cells(n).Value.ToString)
End If
'如果该列不可见，则将该列设置为隐藏
If dgv.Columns(n).Visible = False Then
sheet.SetColumnHidden(n, True)
End If
Next
Next
saveDialog = New Windows.Forms.SaveFileDialog '保存文件对话框
saveDialog.DefaultExt = "xls" '设置默认文件扩展名
saveDialog.Filter = "Excel文件|*.xls" '文件类型
saveDialog.ShowDialog() '弹出保存文件对话框
filename = saveDialog.FileName '将对话框中输入的文件名赋给filename
ms = New MemoryStream()
fs = New FileStream(filename, FileMode.Create)
workbook.Write(ms) '写入数据
workbook.Write(fs)
fs.Close() '关闭文件
workbook = Nothing
ms.Close()
ms.Dispose()
End Sub
End Class
调用：
'''
''' 导出为Excel
'''
'''
'''
'''
Private Sub btnExportExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExportExcel.Click
'当DataGridView中有记录时
If dtgrdRecord.Columns.Count 0 Then
'设置不可见的列
dtgrdRecord.Columns(4).Visible = False
End If
ExportExcel.ExportExcel(dtgrdRecord)
End Sub
效果：
说明：SetColumnHidden可以设置某一列隐藏，这样在打开Excel时，我们不会看到隐藏的列，这样用户看起来比较舒服，当然如果你在Excel中将隐藏的列，设置为取消隐藏，则仍会显示列。以上代码可以实现不把某不可见的列中的值导出到Excel，并且将此列隐藏。
用NPOI将DataGridView中需要的列导出为Excel,搜素材,soscw.com
用NPOI将DataGridView中需要的列导出为Excel
标签：npio datagridview excel
原文地址：http://blog.csdn.net/u010924834/article/details/38375883