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

  • 相关阅读:
    SpringCloud
    Springboot笔记
    SpringMVC学习随笔
    Spring中事务的理解
    Spring中Aop的理解
    FLutter 各种项目的目录创建
    flutter 打包Android 创建签名证书
    flutter web网站 第一次访问首屏页 空白卡顿 再显示
    flutter--报错--Flutter 调试时卡在 Installing buildappoutputsapkapp.apk
    flutter 顶部状态栏 底部栏 显示和隐藏
  • 原文地址:https://www.cnblogs.com/CharmingDang/p/9664013.html
Copyright © 2011-2022 走看看