【个人机房重构】—— 将DataGridView中的数据导出到Excel表中㈣

柔光的暖阳◎ 2022-08-11 07:28 294阅读 0赞

背景：相信，我们大多数人对于DataGrid控件应该很熟悉。在使用VB做第一遍机房收费系统的时候，将DataGrid中的数据导出到Excel表中，是我们经常用到的一个功能。而现在的DataGridView，它可以取代先前版本中DataGrid控件，达到同样的效果。

在做机房时，将DataGridView中的数据导出到Excel表中，是经常用到的一个功能。在这里，我将从不同的方法来阐释，如何将DataGridView中的数据导出到Excel表中。

# 方法一、 #

这种方法，不需要我们添加任何服务引用，通过代码来达到“将DataGridView中的数据导出到Excel表中”的目的，简单粗暴！

Public Function ExportExcel(ByVal gvw As DataGridView) As Boolean '导出到Excel函数
 Try
 If gvw.Rows.Count <= 0 Then '判断记录数,如果没有记录就退出
 MessageBox.Show("没有记录可以导出", "没有可以导出的项目", MessageBoxButtons.OK, MessageBoxIcon.Information)
 Return False
 Else '如果有记录就导出到Excel
 Dim objCreateExcel As Object
 Dim objAddExcel As Object
 objCreateExcel = CreateObject("Excel.Application") '创建Excel对象
 objAddExcel = objCreateExcel.workbooks.add()
 Dim intTitle As Integer
 Dim intRow As Integer
 Dim intColumn As Integer '定义循环变量,行列变量
 
 '把表头写入Excel
 For intTitle = 0 To gvw.Columns.Count - 1
 objAddExcel.worksheets(1).cells(1, intTitle + 1) = gvw.Columns(intTitle).HeaderCell.Value
 Next
 
 '用循环添加数据
 For intRow = 0 To gvw.Rows.Count - 1 '行循环
 For intColumn = 0 To gvw.Columns.Count - 1 '列循环
 objAddExcel.worksheets(1).cells(intRow + 2, intColumn + 1) = gvw.Item(intColumn, intRow).Value.ToString
 Next
 Next
 
 objAddExcel.worksheets(1).Cells.EntireColumn.AutoFit() '自动调整Excel列
 objCreateExcel.visible = True '设置Excel可见作为Excel工作表名称
 objAddExcel = Nothing '释放资源
 objCreateExcel = Nothing '释放资源
 End If
 Return True
 Catch ex As Exception '错误处理
 MessageBox.Show(Err.Description.ToString, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error) '出错提示
 Return False
 End Try
 End Function

使用时：

Private Sub btnLead_Click(sender As Object, e As EventArgs) Handles btnLead.Click
 Call ExportExcel(DataGridView1)
 End Sub

# 方法二、 #

首先，我们要先添加一个模块（将DataGridView中的数据导出到Excel表中这个方法，经常用到。添加到模块中，以后用的时候，直接调用模块即可。）然后添加服务引用

![SouthEast][]

下边是实现代码：

'********************************************** 
 ' 文 件 名：ImportToExcel
 ' 命名空间：UI
 ' 内 容：
 ' 功 能：将DataGridView中的数据导出到Excel表中
 ' 文件关系：
 ' 作 者：杨晨光
 ' 小 组：
 ' 生成日期：2014/8/22 14:27:54
 ' 版 本 号：V1.0.0.0
 ' 修改日志：
 ' 版权说明：
 '*********************************************
 Imports Microsoft.Office.Interop
 Module ImportToExcel
 Public Function ImportToExcel(ByVal gvw As DataGridView) As Boolean '导出到Excel函数
 '建立Excel连接 
 Dim myExcel As New Microsoft.Office.Interop.Excel.Application()
 myExcel.Application.Workbooks.Add(True)
 myExcel.Visible = True
 
 '定义循环变量,行列变量
 Dim intRow As Integer
 Dim intColumn As Integer
 Dim intTitle As Integer
 '添加表头 
 For intTitle = 0 To gvw.ColumnCount - 1
 myExcel.Cells(1, intTitle + 1) = gvw.Columns(intTitle).HeaderText
 Next intTitle
 
 '通过循环来添加控件中的数据到表格中 
 For intRow = 0 To gvw.RowCount - 1
 For intColumn = 0 To gvw.ColumnCount - 1
 '由于第一行是表头，所以添加数据时从第二行开始
 myExcel.Cells(intRow + 2, intColumn + 1) = gvw(intColumn, intRow).Value.ToString
 Next intColumn
 Next intRow
 
 Return True '添加完毕，返回true 
 End Function
 End Module

调用时

Call ImportToExcel.ImportToExcel(DataGridView1)

# 方法三、 #

在看同学的博客时，发现了“使用通过第三方控件”，也能到达我们想要的效果，而且，特别方便。她使用的是一个叫做“[NPOI][]”的东西，详情，请点击《[用NPOI将DataGridView中需要的列导出为Excel][NPOI]》

# 后期总结： #

DataGridView它易于使用并高度可定制，支持很多我们的用户需要的特性。 相对于DataGrid控件，有了很大程度上的改进。

有时候，任何事情的解决并不是只有一种方法。我们完全可以换个角度、换种思维，去思考一下。在我们发现别的解决方案时，通过比较，就会认识到自身考虑事情的局限性。只有这样不断的思考，不断的比较，我们才能进步的更快。

记住：条条大路通罗马

附：[DataGridView控件使用大全][DataGridView]

[SouthEast]: /images/20220810/ab268fb8d1194154ac5008ce677eefc0.png
[NPOI]: http://blog.csdn.net/u010924834/article/details/38375883
[DataGridView]: http://www.cnblogs.com/xiaofengfeng/archive/2011/04/16/2018504.html