生成/读取(反向更新数据库) Excel文件(示例代码下载)

最新推荐文章于 2018-01-15 17:56:13 发布

原创

最新推荐文章于 2018-01-15 17:56:13 发布 · 3.2w 阅读

29 ·

CC 4.0 BY-SA版权

文章标签：

#excel #数据库 #dataset #microsoft #工作 #stream

本文介绍了如何双向操作Excel文件，包括生成和读取，同时解决了访问权限和数据源格式问题。通过示例代码展示了使用不同方法，如流格式和COM组件，以及如何利用Excel模板简化复杂数据集的处理。附带代码示例下载链接。

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

(一).内容

在操作Excel的过程中遇到了一些问题. 比如：访问Com组件权限，无法读取Excel等
文章描述了怎样双向操作(读取和生成)Excel文件，以及怎样解决遇到的问题!

(二).代码
开始时用了下面两个方法进行生成和读取 Excel:
1.生成Excel文件方法一:

' <summary>
     '   下载Excel方法1(用流实现)
     ' </summary>
     ' <param name="dt">要转换为Excel文件的表</param>
     ' <param name="page">页面Page对象,用法: 将me.Page传递过来即可</param>
    Public Sub DownLoadExcelToClient1(ByVal dt As DataTable, ByVal FileName As String)
        Dim resp As HttpResponse
        resp = Page.Response
        resp.ContentEncoding = System.Text.Encoding.Default

' System.Text.Encoding.GetEncoding("GB2312")
        resp.AppendHeader( " Content-Disposition " , " attachment;filename= " + FileName)
        Dim colHeaders As String = "" , ls_item = ""
        Dim i As Int16 = 0

         ' 取得数据表各列标题，各标题之间以分割，最后一个列标题后加回车符
        For i = 0 To dt.Columns.Count - 2
            colHeaders += dt.Columns(i).Caption.ToString() & Chr( 9 )
        Next
        colHeaders += dt.Columns(i).Caption.ToString() & Chr( 13 )
         ' 向HTTP输出流中写入取得的数据信息
        resp.Write(colHeaders)

        Dim row As DataRow
         ' 逐行处理数据
        For Each row In dt.Rows
             ' 在当前行中，逐列获得数据，数据之间以分割，结束时加回车符
            For i = 0 To dt.Columns.Count - 2
               &nb