您的位置：首页 > 编程语言 > VB

VB.NET之旅-机房收费系统个人重构DatagridView导出数据到Excel

2014-08-16 20:08 756 查看

记得vb版的机房收费系统的导出Excel是从网上直接搬的代码，这次又遇到了从dataGridView导出Excel的问题，我在心里暗暗想，这次的代码一定要自己写，这一写可就出问题了，请见下文

第一步，添加引用在U层

第二步，引入命名空间

第三步，书写代码
遇到问题一.

答案：从网上找了很多资料，原来答案在这里，excel的表格索引值行和列都是从1开始的，而我这里却是从0开始的
遇到问题二,三

没有表头，而且我在DataGridView中的卡号明明是00001到了excel中怎么变成了1，我想大家都知道这是Excel中的单元格格式的问题，只要把单元格的格式改成文本类型，然后在进行输入就可以了。
代码：

再解决一下表头问题：

再看一下具体的代码：

<strong> Public Sub ExportExcel(ByRef frmName As Form, ByRef flexgrid As DataGridView)
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Dim answer As Int16
xlBook = xlApp.Workbooks.Add(True)
xlSheet = xlBook.Worksheets.Add()

If flexgrid.Rows.Count = 0 Then
answer = MessageBox.Show("当前记录为空，仍需导出吗？", frmName.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If answer = DialogResult.No Then
Exit Sub
End If
End If

With flexgrid
Dim drow As Int16
Dim dcol As Int16

drow = flexgrid.Rows.Count '行
dcol = flexgrid.Columns.Count '列

xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(drow + 1, dcol)).Select() '选中所需单元格
xlApp.Selection.NumberFormatLocal = "@" '将单元格的格式定义为文本

'excel.cell(行的索引,列的索引)两个索引都是从1开始的
'DataGridView(列的索引，行的索引)两个索引都是从0开始的

For i = 0 To dcol - 1
xlSheet.Cells(1, i + 1) = flexgrid.Columns(i).HeaderText
Next

For i = 0 To drow - 1 'i为0到总行数-1的循环
For j = 0 To dcol - 1 'j为0到总列数-1的循环

xlSheet.Cells(i + 2, j + 1) = flexgrid.Item(j, i).Value.ToString

Next
Next
End With
xlApp.Visible = True

End Sub</strong>

希望同样遇到这些问题的同学，能从这里找到些答案，能给大家一点帮助！

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航