'vb.net2005的导出到Excel功能函数

最新推荐文章于 2017-11-19 21:25:33 发布

yuxuetaoxp

最新推荐文章于 2017-11-19 21:25:33 发布

阅读量795

点赞数

文章标签： vb.net excel exception function integer

本文链接：https://blog.csdn.net/yuxuetaoxp/article/details/1850885

版权

'vb.net2005的导出到Excel功能函数
    Public Function ExportExcel(ByVal dgv As DataGridView, ByVal IsOnlyVisible As Boolean) As Boolean
        Try
            Dim n, i, j, row, col As Integer
            Dim excel As Excel.Application = New 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
            ' 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
                            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 Function