zoukankan      html  css  js  c++  java
  • 从DataGridView中将数据导出Excel(vb.net)

     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

  • 相关阅读:
    grafana+mysql忘记admin密码解决方法
    grafana 的配置文件,和使用mysql数据库做持久化
    贴两个mysql优化的配置文件
    Zabbix监控win10系统
    zabbix监控mysql
    http状态码-备查
    安卓移动端line-height垂直居中出现偏移的解决方法
    Video 自动播放
    渐进式Web应用(PWA)
    基于svg的环形进度条
  • 原文地址:https://www.cnblogs.com/CharmingDang/p/9664013.html
Copyright © 2011-2022 走看看