VB.net-VS2010导出datagridview数据到EXCEL，以时间为文件名

最新推荐文章于 2018-07-18 11:37:00 发布

菜鸡程序员_小小

最新推荐文章于 2018-07-18 11:37:00 发布

阅读量1.4k

点赞数 1

CC 4.0 BY-SA版权

分类专栏：经验，学习文章标签： visual studio 2010 vb.net

本文链接：https://blog.youkuaiyun.com/qingdatiankong/article/details/78399319

经验，学习专栏收录该内容

119 篇文章

订阅专栏

本文介绍了一种使用VB.NET将DataGridView中的数据导出到Excel的方法，包括如何设置Excel应用程序为不可见状态、导出列标题及单元格数据，并以当前时间戳作为文件名保存。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

以下VB代码实现从datagridview导出数据到EXCEL，并以时间作为excel的文件名

需要用到的dll
Microsoft.Office.Interop.Excel.dll

引入命名空间
Imports Microsoft.Office.Interop

Try

            Dim xlApp, xlBook, xlSheet As Object
            xlApp = CreateObject("Excel.Application")
            xlBook = xlApp.Workbooks.Add
            xlSheet = xlBook.Worksheets()
            '使工作表不可见
            xlApp.Visible = False

            '导出DataGridView中的标题  
            Dim Cols As Integer
            For Cols = 1 To testHistoryDgv.Columns.Count
                xlApp.Cells(1, Cols) = testHistoryDgv.Columns(Cols - 1).HeaderText
            Next

            '逐行导出DataGridView中的数据  
            Dim i As Integer

            For i = 0 To testHistoryDgv.RowCount - 1
                Dim j As Integer
                For j = 0 To testHistoryDgv.ColumnCount - 1
                    '判断DataGridview中的数据是否导出完毕  
                    If Me.testHistoryDgv(j, i).Value Is System.DBNull.Value Then
                        xlApp.Cells(i = 2, j = 1) = ""
                    Else
                        xlApp.Cells(i + 2, j + 1) = testHistoryDgv(j, i).Value.ToString
                    End If
                Next
            Next
            '定义文件名-取系统时间作为excel文件名
            Dim fileName As String = Format(Now, "yyyyMMdd") + Format(Now, "HH:mm:ss").Replace(":", "")
            ’excelPath是文件路径，通过配置文件配置
            Dim flg As Boolean = xlBook.SaveAs(excelPath & fileName & ".xlsx")
            If flg = True Then
                MessageBox.Show("操作成功", "XXXX", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
            End If
            '关闭Excel线程
            xlApp.Quit()
            xlApp = Nothing
            xlBook = Nothing
            xlSheet = Nothing
        Catch ex As Exception
            '异常捕捉
            LogUtil.err(ex.ToString)
            MessageBox.Show("系统异常", "Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

以上方式会直接导出Excel文件到指定URL，不会自动打开excel文件。