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

  • 相关阅读:
    fis3解决web网站缓存问题
    C# 计算每周和每月固定日期
    移动端web页面上滑加载更多功能
    常见三种字符编码的区别:ASCII、Unicode、UTF-8
    ef AddDays报错
    .NET语言的编译过程:中间语言(IL)和即时编译器(JIT)
    ajax 传递数组类型参数后台接收不到的问题
    sql server 作业没跑、开启sql 代理服务、新建作业
    在javascript中NodeList和Array的区别及转换方法
    我经历的几种开发模式和心理
  • 原文地址:https://www.cnblogs.com/CharmingDang/p/9664013.html
Copyright © 2011-2022 走看看