从DataGridView中将数据导出Excel(vb.net)
2011-04-09 13:49
549 查看
从DataGridView中将数据导出Excel
Public Sub ExportExcel(ByVal dgv As DataGridView, ByVal isonlyvisible As Boolean)
Try
Dim n, i, j, row, col As Integer
Dim excel As New Microsoft.Office.Interop.Excel.Application
excel.Application.Workbooks.Add(True)
col = 1
'记录列名
For n = 0 To dgv.ColumnCount - 1
If isonlyvisible Then
If dgv.Columns(n).Visible Then
excel.Cells(1, col) = dgv.Columns(n).HeaderText
col = col + 1
End If
Else
excel.Cells(1, n + 1) = dgv.Columns(n).HeaderText
End If
Next
row = 2
For i = 0 To dgv.RowCount - 1
col = 1
For j = 0 To dgv.ColumnCount - 1
If isonlyvisible Then
If dgv.Columns(j).Visible Then
excel.Cells(i + 2, col) = dgv.Rows(i).Cells(j).Value
col = col + 1
End If
Else
excel.Cells(i + 2, j + 1) = dgv.Rows(i).Cells(j).Value
End If
Next
Next
excel.Visible = True
Catch ex As Exception
Throw ex
End Try
End Sub
Public Sub ExportExcel(ByVal dgv As DataGridView, ByVal isonlyvisible As Boolean)
Try
Dim n, i, j, row, col As Integer
Dim excel As New Microsoft.Office.Interop.Excel.Application
excel.Application.Workbooks.Add(True)
col = 1
'记录列名
For n = 0 To dgv.ColumnCount - 1
If isonlyvisible Then
If dgv.Columns(n).Visible Then
excel.Cells(1, col) = dgv.Columns(n).HeaderText
col = col + 1
End If
Else
excel.Cells(1, n + 1) = dgv.Columns(n).HeaderText
End If
Next
row = 2
For i = 0 To dgv.RowCount - 1
col = 1
For j = 0 To dgv.ColumnCount - 1
If isonlyvisible Then
If dgv.Columns(j).Visible Then
excel.Cells(i + 2, col) = dgv.Rows(i).Cells(j).Value
col = col + 1
End If
Else
excel.Cells(i + 2, j + 1) = dgv.Rows(i).Cells(j).Value
End If
Next
Next
excel.Visible = True
Catch ex As Exception
Throw ex
End Try
End Sub
相关文章推荐
- VB.NET之旅-机房收费系统个人重构DatagridView导出数据到Excel
- VB.net-VS2010导出datagridview数据到EXCEL,以时间为文件名
- VB.net 将dataGridView中的数据导出到excel
- VB.net 将dataGridView中的数据导出到excel
- VB.net 将dataGridView中的数据导出到excel
- VB.Net导出SQLServer数据到Excel中代码架构段
- VB.NET_从DataGridview中导出EXCEL(2.效率)
- 在ASP.NET中将GridView数据导出到Word、Excel
- vb.net datagridview导出到excel表
- 将从SQL数据库中查询出来的数据导出为Excel文档ASP.NET(VB)?
- C# WinForm程序中将DataGridView中的数据导出为EXCEL
- 在ASP.NET中将dataset数据保存到excel,GridView导出到excel
- vb.net导出数据到Excel代码
- vb.net 将DataGridView数据导入到Excel的方式
- 在VB.NET中,将数据库里的数据导出到Excel中
- asp.net中将DataGrid数据导出到excel或word文件中
- VB.NET 导出数据到EXCEL中
- 【VB.NET机房重构】DataGridView导出Excel
- asp.net中将gridview数据导出成Excel
- asp.net中将GridView数据导出成Excel文件(下)