由 datagridview 控件向 Microsoft Excel 表格中导出

2008-10-25 22:55

适于 VB.net 2008 用的由 datagridview 控件向 Microsoft Excel 表格中导出的实例源代码。 说明：使用前，请完整安装 Microsoft Office 2007 (Office 12) 的各组件；并且在您的项目中引用 "Microsoft Excel 12.0 Object Library" 的 COM 加载项。 Private Function ExportExcel(ByVal dgv As DataGridView, ByVal IsOnlyVisible As Boolean) As Boolean         ExportExcel = False         Try             Dim n, i, j, row, col As Integer             Dim Excel2 As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application             Excel2.Application.Workbooks.Add(True)             col = 1             '//记录列名             For n = 0 To dgv.ColumnCount - 1                 If IsOnlyVisible Then                     If dgv.Columns(n).Visible Then                         Excel2.Cells(1, col) = dgv.Columns(n).HeaderText                         col = col + 1                     End If                 Else                     Excel2.Cells(1, n + 1) = dgv.Columns(n).HeaderText                 End If             Next             '//记录内容             row = 2             ' col = 1             For i = 0 To dgv.RowCount - 1                 col = 1                 For j = 0 To dgv.ColumnCount - 1                     'System.Windows.Forms.Application.DoEvents()                     If IsOnlyVisible Then                         If dgv.Columns(j).Visible Then                             Excel2.Cells(i + 2, col) = dgv.Rows(i).Cells(j).Value                             col = col + 1                         End If                     Else                         Excel2.Cells(i + 2, j + 1) = dgv.Rows(i).Cells(j).Value                     End If                 Next             Next             Excel2.Visible = True         Catch ex As Exception             Throw ex         End Try         ExportExcel = True             End Function