VB.NET_从DataGridview中导出EXCEL(1.准备)

最新推荐文章于 2024-09-17 13:50:09 发布
最新推荐文章于 2024-09-17 13:50:09 发布
阅读量6.2k 收藏 22
点赞数 4
分类专栏： Vb.net
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/longjuesi/article/details/9615547
版权

陆续做了几个小的erp，其中对excel的操作很频繁，在此总结vb.net操作EXCEL的心得。


一.配置环境，首先要添加引用

1.选择你要使用excel的project,点击 工程->添加引用

    

2.添加ms的interop.excel,因为我装的是2007,所以版本是12.0

          

3.在类中导入引用：

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel

二.从datagridview中导出EXCEL

以下是一个粗糙的类，传入一个datagridview和保存路径及文件名，即可导出

Imports System.Windows.Forms
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel


''' <summary>
''' 操作EXCEL的类
''' </summary>
''' <remarks></remarks>
Public Class ExcelManager


#Region "attributes define"
    Enum Oprate As Integer
        Export = 0
        Print = 1
    End Enum
    Private _OprateType As Oprate
    Private _strFilePath As String
    Private _strFileName As String
    Private _DGV As DataGridView = Nothing
    Private _processTime As Long = 0 '导出所需时间


    Property strFilePath() As String
        Get
            Return _strFilePath
        End Get
        Set(ByVal value As String)
            _strFilePath = value
        End Set
    End Property
    Property strFileName() As String
        Get
            Return _strFileName
        End Get
        Set(ByVal value As String)
            _strFileName = value
        End Set
    End Property
    Property DGV() As DataGridView
        Get
            Return _DGV
        End Get
        Set(ByVal value As DataGridView)
            _DGV = value
        End Set
    End Property
    Property OprateType() As Oprate
        Get
            Return _OprateType
        End Get
        Set(ByVal value As Oprate)
            _OprateType = value
        End Set
    End Property
    ''' <summary>
    ''' 导出EXCEL耗费的时间，单位为秒
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property processTime() As Long
        Get
            Return _processTime
        End Get
        Set(ByVal value As Long)


        End Set
    End Property
#End Region




    ''' <summary>
    ''' 导出DGV中的数据到EXCEL中
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ExportEXLFromDGV() As Boolean


        '合法检查
        '1.路径是否合法
        If My.Computer.FileSystem.DirectoryExists(_strFilePath) = False Then
            MsgBox("文件保存路径不存在", MsgBoxStyle.Exclamation, "")
            Return False
        End If
        '2._DGV中是否有数据
        If _DGV.RowCount < 1 Then
            MsgBox("表格中没有数据，不可导出", MsgBoxStyle.Exclamation, "")
            Return False
        End If


        '文件保存的默认路径为预设值
        Dim path As String = ""


        '如果是导出成EXCEL，则弹出saveFileDialog
        If _OprateType = Oprate.Export Then
            Dim SaveFileDialog1 As New SaveFileDialog
            SaveFileDialog1.FileName = _strFileName
            SaveFileDialog1.InitialDirectory = _strFilePath
            SaveFileDialog1.Filter = "Excel (*.xlsx)|*.xlsx|All Files (*.*)|*.*"


            If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.Cancel Then
                Return False
            End If


            '没有合法的文件保存路径
            If SaveFileDialog1.FileName = "" Or SaveFileDialog1.FileName Is Nothing Then
                Exit Function
            End If
            path = SaveFileDialog1.FileName 'FileName即为绝对路径


            '是否存在重名文件
            If My.Computer.FileSystem.FileExists(path) = True Then
                If MsgBox(path + " 已存在！" + Chr(13) + "是否覆盖？", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "") = MsgBoxResult.No Then
                    Exit Function
                End If
                Try
                    My.Computer.FileSystem.DeleteFile(path)
                Catch ex As Exception
                    MsgBox(ex.ToString, MsgBoxStyle.Exclamation, "")
                End Try
            End If


        Else
            '如果是要打印表格，则判断其行数，超过200行禁止打印
            If DGV.RowCount > 200 Then
                MsgBox("数据量过大，禁止直接打印", MsgBoxStyle.Exclamation, "")
                Return False
            End If
        End If




        Dim dat_begin As Date = Now


        Dim exlApp As Excel.Application
        Dim exlBook As Excel.Workbook
        Dim exlSheet As Excel.Worksheet


        exlApp = CreateObject("Excel.Application") '创建Excel的应用程序实例
        exlBook = exlApp.Workbooks.Add '创建Excel的工作簿
        '删除多余的sheet,只留一张
        Dim co As Integer = exlBook.Sheets.Count
        For i As Integer = 1 To co - 1
            exlBook.Worksheets(1).delete()
        Next
        exlSheet = exlBook.Worksheets(1) '指定一张表
        exlSheet.Name = _strFileName


        exlApp.Visible = False


        '=================================================宏
        ' 宏由 龙觉寺 录制，时间: 2013-7-1
        'exlSheet.Columns(1).ColumnWidth = 10.75
        'exlSheet.Columns(2).ColumnWidth = 13.88


        '设置表头
        Dim oRange As Excel.Range
        oRange = exlSheet.Range(exlSheet.Cells(1, 1), exlSheet.Cells(2, _DGV.ColumnCount))
        With oRange
            .HorizontalAlignment = XlHAlign.xlHAlignCenter
            .VerticalAlignment = XlVAlign.xlVAlignBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .MergeCells = False
        End With
        oRange.Merge()


        With oRange
            .HorizontalAlignment = XlHAlign.xlHAlignCenter
            .VerticalAlignment = XlVAlign.xlVAlignCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .MergeCells = True
        End With
        With oRange.Font
            .Name = "宋体"
            .FontStyle = "常规"
            .Size = 22
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = XlUnderlineStyle.xlUnderlineStyleNone
            .ColorIndex = XlColorIndex.xlColorIndexAutomatic
        End With
        oRange.Borders(XlBordersIndex.xlDiagonalDown).LineStyle = BorderStyle.None
        oRange.Borders(XlBordersIndex.xlDiagonalUp).LineStyle = BorderStyle.None
        With oRange.Borders(XlBordersIndex.xlEdgeLeft)
            .LineStyle = XlLineStyle.xlContinuous
            .Weight = XlBorderWeight.xlThin
            .ColorIndex = XlColorIndex.xlColorIndexAutomatic
        End With
        With oRange.Borders(XlBordersIndex.xlEdgeTop)
            .LineStyle = XlLineStyle.xlContinuous
            .Weight = XlBorderWeight.xlThin
            .ColorIndex = XlColorIndex.xlColorIndexAutomatic
        End With
        With oRange.Borders(XlBordersIndex.xlEdgeBottom)
            .LineStyle = XlLineStyle.xlContinuous
            .Weight = XlBorderWeight.xlThin
            .ColorIndex = XlColorIndex.xlColorIndexAutomatic
        End With
        With oRange.Borders(XlBordersIndex.xlEdgeRight)
            .LineStyle = XlLineStyle.xlContinuous
            .Weight = XlBorderWeight.xlThin
            .ColorIndex = XlColorIndex.xlColorIndexAutomatic
        End With
        oRange.Borders(XlBordersIndex.xlInsideVertical).LineStyle = BorderStyle.None
        oRange.Borders(XlBordersIndex.xlInsideHorizontal).LineStyle = BorderStyle.None
        oRange.FormulaR1C1 = _strFileName




        '设置主体部分，大标题占了两行，从第三行开始，共总行数+1（1是给_DGV的表头设置的）
        oRange = exlSheet.Range(exlSheet.Cells(3, 1), exlSheet.Cells(_DGV.RowCount + 3, _DGV.ColumnCount))
        With oRange
            '.NumberFormatLocal = "@"'文本格式
            .HorizontalAlignment = XlHAlign.xlHAlignLeft
            .VerticalAlignment = XlVAlign.xlVAlignCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = True
        End With
        oRange.Borders(XlBordersIndex.xlDiagonalDown).LineStyle = BorderStyle.None
        oRange.Borders(XlBordersIndex.xlDiagonalUp).LineStyle = BorderStyle.None


        With oRange.Borders(XlBordersIndex.xlEdgeLeft)
            .LineStyle = XlLineStyle.xlContinuous
            .Weight = XlBorderWeight.xlThin
            .ColorIndex = XlColorIndex.xlColorIndexAutomatic
        End With
        With oRange.Borders(XlBordersIndex.xlEdgeTop)
            .LineStyle = XlLineStyle.xlContinuous
            .Weight = XlBorderWeight.xlThin
            .ColorIndex = XlColorIndex.xlColorIndexAutomatic
        End With
        With oRange.Borders(XlBordersIndex.xlEdgeBottom)
            .LineStyle = XlLineStyle.xlContinuous
            .Weight = XlBorderWeight.xlThin
            .ColorIndex = XlColorIndex.xlColorIndexAutomatic
        End With
        With oRange.Borders(XlBordersIndex.xlEdgeRight)
            .LineStyle = XlLineStyle.xlContinuous
            .Weight = XlBorderWeight.xlThin
            .ColorIndex = XlColorIndex.xlColorIndexAutomatic
        End With
        With oRange.Borders(XlBordersIndex.xlInsideVertical)
            .LineStyle = XlLineStyle.xlContinuous
            .Weight = XlBorderWeight.xlThin
            .ColorIndex = XlColorIndex.xlColorIndexAutomatic
        End With
        With oRange.Borders(XlBordersIndex.xlInsideHorizontal)
            .LineStyle = XlLineStyle.xlContinuous
            .Weight = XlBorderWeight.xlThin
            .ColorIndex = XlColorIndex.xlColorIndexAutomatic
        End With


        '=================================================宏


        Try
            '将dataGrid表格中的数据插入到EXCEL
            'For int_row As Integer = 0 To _DGV.RowCount - 1
            '    For int_col As Integer = 0 To _DGV.ColumnCount - 1
            '        exlSheet.Cells(int_row + 4, int_col + 1).FormulaR1C1 = _DGV.Rows(int_row).Cells(int_col).Value.ToString
            '    Next
            'Next


            '优化算法，用arr对块进行批量赋值
            Dim arr As Array = Array.CreateInstance(GetType(String), DGV.RowCount, DGV.ColumnCount)
            For i As Integer = 0 To DGV.RowCount - 1
                For j As Integer = 0 To DGV.ColumnCount - 1
                    arr.SetValue(DGV.Rows(i).Cells(j).Value.ToString, i, j)
                Next
            Next
            oRange = exlSheet.Range(exlSheet.Cells(4, 1), exlSheet.Cells(_DGV.RowCount + 3, _DGV.ColumnCount))
            oRange.Value2 = arr


            '将dataGridView列名写入exlSheet第三行
            For i As Integer = 0 To _DGV.ColumnCount - 1
                exlSheet.Cells(3, i + 1).FormulaR1C1 = _DGV.Columns(i).HeaderText
            Next


            '如果是导出
            If _OprateType = Oprate.Export Then
                exlBook.SaveAs(path)
                _processTime = DateDiff(DateInterval.Second, dat_begin, Now)
                exlApp.Quit()
                exlSheet = Nothing
                exlBook = Nothing
                exlApp = Nothing
                MsgBox("文件成功保存到:" & Chr(13) & path, vbOKOnly + vbInformation, "Time: " + _processTime.ToString + " s")
                Exit Function
            End If
            '如果是打印
            If _OprateType = Oprate.Print Then
                exlApp.Visible = True
                exlBook.PrintPreview()
                exlBook.Close(False, Type.Missing, Type.Missing)
                exlApp.Quit()
                exlSheet = Nothing
                exlBook = Nothing
                exlApp = Nothing
                Exit Function
            End If


        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            If Not (exlApp Is Nothing) Then
                exlApp.Quit()
                exlSheet = Nothing
                exlBook = Nothing
                exlApp = Nothing
            End If
        End Try


        Return True
    End Function
    ''' <summary>
    ''' 从dataTable中导出数据到excel,疾速方式，没有格式，且只能为2003以下的版本
    ''' </summary>
    ''' <param name="sub_ds">dataset</param>
    ''' <param name="sub_FileName"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function DateSetToExcel(ByVal sub_ds As System.Data.DataSet, ByVal sub_FileName As String) As Boolean
        Dim excelApp As New ApplicationClass()
        Dim excelWorkbook As Workbook = excelApp.Workbooks.Add(Type.Missing)


        Dim sheetIndex As Integer = 0
        Dim col, row As Integer
        Dim excelSheet As Worksheet


        ' Copy each DataTable as a new Sheet
        For Each dt As System.Data.DataTable In sub_ds.Tables
            sheetIndex += 1
            ' Copy the DataTable to an object array
            Dim rawData(dt.Rows.Count, dt.Columns.Count - 1) As Object
            ' Copy the column names to the first row of the object array
            For col = 0 To dt.Columns.Count - 1
                rawData(0, col) = dt.Columns(col).ColumnName
            Next
            ' Copy the values to the object array
            For col = 0 To dt.Columns.Count - 1
                For row = 0 To dt.Rows.Count - 1
                    rawData(row + 1, col) = dt.Rows(row).ItemArray(col)
                Next
            Next
            ' Calculate the final column letter
            Dim finalColLetter As String = String.Empty
            Dim colCharset As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
            Dim colCharsetLen As Integer = colCharset.Length


            If dt.Columns.Count > colCharsetLen Then
                finalColLetter = colCharset.Substring((dt.Columns.Count - 1) \ colCharsetLen - 1, 1)
            End If


            finalColLetter += colCharset.Substring((dt.Columns.Count - 1) Mod colCharsetLen, 1)


            ' Create a new Sheet
            excelSheet = CType(excelWorkbook.Sheets.Add(excelWorkbook.Sheets(sheetIndex), Type.Missing, 1, XlSheetType.xlWorksheet), Worksheet)
            excelSheet.Name = dt.TableName


            ' Fast data export to Excel
            Dim excelRange As String = String.Format("A1:{0}{1}", finalColLetter, dt.Rows.Count + 1)
            excelSheet.Range(excelRange, Type.Missing).Value2 = rawData


            ' Mark the first row as BOLD
            CType(excelSheet.Rows(1, Type.Missing), Range).Font.Bold = True


            excelSheet = Nothing
        Next


        ' Save and Close the Workbook
        excelWorkbook.SaveAs(sub_FileName, XlFileFormat.xlWorkbookNormal, Type.Missing, _
         Type.Missing, Type.Missing, Type.Missing, XlSaveAsAccessMode.xlExclusive, _
         Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing)


        excelWorkbook.Close(True, Type.Missing, Type.Missing)


        excelWorkbook = Nothing


        ' Release the Application object
        excelApp.Quit()
        excelApp = Nothing


        ' Collect the unreferenced objects
        GC.Collect()
        GC.WaitForPendingFinalizers()
    End Function


End Class



龙觉寺CSDN_BLOG...原创...不总结永远一知半解，一知半解比无知更可怕

vicanary
关注
专栏目录
vb.net datagridview实现数据导出Excel
杨月娥
03-20 1万+
datagridview这一块的操作，对于我来说有些困难，先是从SQL server查询数据，在datagridview显示，再到从datagridview删除字段，最后是现在的将datagridview的数据导出到Excel，这一个过程都显得有些困难，遇到困难也比较容易拖了又拖，但困难不解决，它还是在那里。现在就说说如何将datagridview的数据导出Excel。    将datagrid
vb.net datagridview控件导出excel
天道酬勤 地道酬善 人道酬诚
08-10 5096
导出数据的时候，经常需要将软件中的表格导出为excel，学习vb的时候用到了这个功能，当时用的是面向过程的编程方法，哪里需要了，就在哪个窗体写一遍代码。这次，我们使用面向对象的思维再次实现这个功能。对比一下，两个方法有什么区别。
vb.net 从DataGridView写入Excel的高效方法（源代码）
04-01
vb.net把DataGridView中的数据导入Excel中，通常采用对Excel操作的方式进行。该方法简单易懂，网上也有很多，但是效率低下。因为其采用的是一个单元格一个单元格的写入方式。当数据量非常大时，用时往往很长。相对而言本程序则显得效率颇高，希望对各位有所帮助！
C# DataGridView数据导出到Excel的完整实现
最新发布
weixin_29935511的博客
09-17 1552
本文还有配套的精品资源，点击获取 简介：本文详细介绍了如何使用C#语言将.NET框架中DataGridView控件的数据导出到Excel文件中。首先概述了导出过程的两个主要步骤：创建Excel工作簿并填充数据，接着详细解释了实现这些步骤的具体编程方法，包括创建Excel应用程序实例、创建工作簿、设置活动工作表以及遍历DataGridView来填充数据。最后，介绍了如何保存和...
vb.net2005中将gridview中的数据导出为EXECL
weixin_33975951的博客
05-18 129
vb.net2005中将gridview中的数据导出为EXECL author:boyi55 在按钮上定义导出EXECL事件。 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.ClickResponse.Clear()...
Vb.net dataGridView导出EXCEL
攻城狮的博客
12-16 4357
Public Function daochu(ByVal x As DataGridView) As Boolean '导出到Excel函数 Try If x.Rows.Count <= 0 Then '判断记录数,如果没有记录就退出 MessageBox.Show("没有记录可以导出", "没有可以导出的项目", Messa
vb.net datagridview导出到excel表
莫失莫忘-云姐
02-22 6266
Public Function ExportXLsD(ByVal datagrid As DataGrid) , ByVal Title As String)  Dim Mytable As New DataTable  Mytable = CType(datagrid.DataSource, DataTable)  If mytable Is Nothing Then    Message
EXCEL_Datagridview.rar_VB_datagridview_excel DataGridView_vb.net
07-13
vb.net 2010 ：EXCEL与Datagridview的互动：EXCEL写到Datagridview，并导出Datagridview为EXCEL，且导出EXCEL时数度快，上万条数据，1-2秒完成！
VB.net-DG_To_Excel.rar_Jerry_soft.dll_excel_vb.net excel
09-24
标题中的“VB.net-DG_To_Excel.rar”表明这是一个关于使用VB.NET编程语言将数据从DataGridView控件导出到Excel的教程或代码示例。"Jerry_soft.dll_excel_vb.net excel"标签暗示了可能使用了一个名为Jerry_soft.dll的...
VB.NET DataGridView.zip_C93I_datagridview_nce_vb.net_vb.net Data
09-21
在VB.NET中，DataGridView控件是一个非常重要的组件，它用于显示和操作表格数据。这个教程“VB.NET DataGridView.zip”显然关注如何在Visual Basic .NET环境中使用这个控件进行添加和编辑数据的操作。以下是对相关...
VB.net 将dataGridView中的数据导出到excel
黎明前的黑暗
02-19 2529
今天做机房收费系统做到了报表打印部分了。     在将dataGridView中的数据导出到excel时，到网上找了一些相关的内容，个人感觉不是太好，有的在复杂了。      下面是简单的实现dataGridView数据到excel:      当然首先要添加引用：Microsoft.Office.Interop.Excel Dim MyExcel As New Microsoft.Of
chengjichaxun.rar_VB.NET 成绩_university vb.net_vb 成绩_vb.net_成绩查询
09-22
1. 数据录入：通过VB.NET界面设计，管理员可以输入学生的个人信息（如学号、姓名）和各科成绩。这涉及到控件的使用，如TextBox和ComboBox，以及事件处理程序的编写，如Click事件来触发数据保存。 2. 数据存储：通常...
从DataGridView中将数据导出Excel（vb.net）
要少敏 信息技术提高班
04-09 1653
<br /> <br /> 从DataGridView中将数据导出Excel<br />Public Sub ExportExcel(ByVal dgv As DataGridView, ByVal isonlyvisible As Boolean)<br />        Try<br />            Dim n, i, j, row, col As Integer<br /> <br />            Dim excel As New Microsoft.Office.Inter
VB.net中DataGrid导出为Excel文件函数
№快乐因你♂
07-31 1980
Public Function ExportXLsD(ByVal datagrid As DataGrid) ', ByVal Title As String) 'Dim Mytable As New DataTable 'Mytable = CType(datagrid.DataSource, DataTable) If mytable Is
vb.Net datagrid数据导出到excel
01-20
datagrid数据导出到excel函数，很好用
C#将dataGridView中显示的数据导出到Excel（大数据量超有用版）
weixin_33826268的博客
08-19 1798
       开发中非常多情况下须要将dataGridView控件中显示的数据结果以Excel或者Word的形式导出来，本例就来实现这个功能。因为从数据库中查找出某些数据列可能不是必需显示出来，在dataGridView中将相应的列隐藏了。这时导出时就会将隐藏的列导出来。显然不是我们所预期的。做法是先将dataGridView中显示的部分存进DataTable。然后就DataTable导出...
从VB将数据导出到EXCEL
vivid的技术专栏
06-16 2706
从VB将数据导出到EXCEL,网上可能有很多这样的代码,但是前提都要安装EXCEL,今天我分享给大家的就是没有安装EXCEL的一样也可以导出.Rem 作者:谢炎锦  创建时间:2002-12-20   Mail:XieYanJin@163.ComRem 内容如下:Rem 引用方式: Export(Ado.Recordset) 或 Export(Rds.RecordSet)Rem 支持 Rds 与
DataGridView导出到Excel
weixin_33951761的博客
05-06 212
#regionDataGridView数据显示到Excel ///<summary> ///打开Excel并将DataGridView控件中数据导出到Excel ///</summary> ///<paramname="dgv">DataGridView对象</param>...
DataGridView导出Excel
Cherie
08-25 1524
把DataGridView中的信息导出到Excel是《机房收费系统》的功能之一，第一次做的时候
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值