使用.net导出Excel的两种不同方法（一）

最新推荐文章于 2022-10-14 16:21:06 发布

pumaadamsjack

最新推荐文章于 2022-10-14 16:21:06 发布

阅读量2.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： .net 文章标签： excel .net winform office 微软测试

本文链接：https://blog.youkuaiyun.com/pumaadamsjack/article/details/5619074

.net 专栏收录该内容

5 篇文章

订阅专栏

本文详细介绍了如何在.NET环境中利用微软自带控件将数据库数据高效导出为Excel文件，包括创建工作表、设置表格样式、保存文件及解决常见问题的方法。

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

最近有个需要实现将数据库中数据导出Excel文件的功能，其中Excel文件内容并不是简单的二维表，而是需要根据不同情况将数据分类，中间还要插入描述文字和统计数据等。

决定使用微软自带的控件，开发机器安装的是office2003,所以引用的是 Excel 11.0 objcet liberay

因为是winform程序，所以这个组件的要求是执行程序的机器必须安装相应版本的office2003.

以下是建立一个新的工作表类代码：

Dim ac As Microsoft.Office.Interop.Excel.Application = New Excel.Application()

           If ac Is System.DBNull.Value Then
               MessageBox.Show("没有安装office，或版本不正确")
               Return
            End If

            ac.Visible = False
           ac.DisplayAlerts = False
           ac.ScreenUpdating = False

Dim wkbook As Excel.Workbook = ac.Workbooks.Add(True)

Dim wksheet As Excel.Worksheet = wkbook.ActiveSheet

后边就可以以这个wksheet为基础进行各种写操作了。

这个微软的控件的最大好处就是功能非常强大，而且使用起来感觉比较合理。（后边会有比较）

以下是设置表格样式功能，可以像下边这样直接定义一个指定区域的样式，也可以定义单个cell的样式。

'''''设置表头

wksheet.Cells(3, 1) = "测试表头"

Dim toprange As Excel.Range = wksheet.Range(wksheet.Cells(3, 1), wksheet.Cells(3, 7))
toprange.MergeCells = True

            toprange.RowHeight = 30
            toprange.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
            toprange.HorizontalAlignment = Excel.XlVAlign.xlVAlignCenter
         toprange.Font.Size = 16
          toprange.Font.Bold = True

最后可以将文件保存

ac.SaveAs("filenam")

这里要说明的是使用ac.save会弹出一个让你选择保存路径的窗口，使用wksheet.save("filename"),就只能保存在预先定义好的位置，不能让用户来选择。

但实际使用中有个问题，ac.savesa()虽然能弹出一个另存文件的窗口，但是这个窗口总是出现在winform程序主form的后边，也就是说，你不最小化主form是看不到这个弹出窗口的，测试了很多次都这样，估计web程序可能不会有问题，没试过，不过winform肯定是有问题的。

解决方法是自行添加一个SaveFileDialog控件。

然后

SaveFileDialog1.DefaultExt = "xls"
SaveFileDialog1.Filter = "Excel文件|*.xls"
SaveFileDialog1.FileName = "Shee1.xls"

If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

wkbook.SaveCopyAs(SaveFileDialog1.FileName)

End If

这样可以就可以了。

还有一个问题就是，使用这个方法导出完Excel文件，有时（其实是绝大多数情况）会出现倒出来的Excel文件打不开，后来从任务管理器中发现，有残余的Excel进程(EXCEL.EXE)，这个问题比较苦恼，最后使用了个简单的办法（但是这种办法由问题，可能误杀别的excel进程，也就是说如果你还开着别的Excel文件，可能一并关闭掉了）

Dim ps() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcesses()
For i As Int16 = 0 To ps.Length - 1

                If (ps(i).ProcessName.ToUpper() = "EXCEL") Then
                  ps(i).Kill()
              End If

不过这个方法确实解决了当前问题。

最后一个问题就是微软这个组件功能强大，但是导出速度相当的慢，因为很多地方都要控制样式。

使用.net导出Excel的两种不同方法（二）