Vb.net dataGridView导出EXCEL
2016-12-16 15:06
302 查看
Public Function daochu(ByVal x As DataGridView) As Boolean '导出到Excel函数 Try If x.Rows.Count <= 0 Then '判断记录数,如果没有记录就退出 MessageBox.Show("没有记录可以导出", "没有可以导出的项目", MessageBoxButtons.OK, MessageBoxIcon.Information) Return False Else '如果有记录就导出到Excel Dim xx As Object : Dim yy As Object xx = CreateObject("Excel.Application") '创建Excel对象 yy = xx.workbooks.add() Dim i As Integer, u As Integer = 0, v As Integer = 0 '定义循环变量,行列变量 For i = 1 To x.Columns.Count '把表头写入Excel yy.worksheets(1).cells(1, i) = x.Columns(i - 1).HeaderCell.Value Next Dim str(x.Rows.Count - 1, x.Columns.Count - 1) '定义一个二维数组 For u = 1 To x.Rows.Count '行循环 For v = 1 To x.Columns.Count '列循环 If x.Item(v - 1, u - 1).Value.GetType.ToString <> "System.Guid" Then str(u - 1, v - 1) = x.Item(v - 1, u - 1).Value Else str(u - 1, v - 1) = x.Item(v - 1, u - 1).Value.ToString End If Next Next yy.worksheets(1).range("A2").Resize(x.Rows.Count, x.Columns.Count).Value = str '把数组一起写入Excel yy.worksheets(1).Cells.EntireColumn.AutoFit() '自动调整Excel列 ' yy.worksheets(1).name = x.TopLeftHeaderCell.Value.ToString '表标题写入作为Excel工作表名称 xx.visible = True '设置Excel可见 yy = Nothing '销毁组建释放资源 xx = Nothing '销毁组建释放资源 End If Return True Catch ex As Exception '错误处理 MessageBox.Show(Err.Description.ToString, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error) '出错提示 Return False End Try End Function
相关文章推荐
- 【VB.NET机房重构】DataGridView导出Excel
- VB.NET之旅-机房收费系统个人重构DatagridView导出数据到Excel
- 从DataGridView中将数据导出Excel(vb.net)
- VB.net 将dataGridView中的数据导出到excel
- VB.NET_从DataGridview中导出EXCEL(2.效率)
- vb.net datagridview导出到excel表
- VB.NET_从DataGridview中导出EXCEL(1.准备)
- VB.net-VS2010导出datagridview数据到EXCEL,以时间为文件名
- VB.net 将dataGridView中的数据导出到excel
- VB.net 将dataGridView中的数据导出到excel
- WinForm中把DataGrid里面的数据导出成EXCEL文件(VB.net)
- VB.NET 导出数据到EXCEL中
- [VB.NET]winform下DataGrid导出excel问题
- ASP.NET(VB)把数据导出到EXCEL的一种方法(网上转载)
- asp.net DataGridView导出到Excel的三个方法
- VB.NET 子窗体导出Excel进度显示在父窗体ToolStripProgressBar上
- VB.NET导出Excel报表时格式化单元格
- VB.Net导出SQLServer数据到Excel中代码架构段
- .NET(VB,C#)导出DATAGRIDVIEW到EXCEL中
- vb.net导出数据到Excel代码