以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合并Excel文件问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146619)

--  作者:王冬浜
--  发布时间:2020/2/27 16:58:00
--  合并Excel文件问题
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:合并excel文件问题.zip
,1个文件夹,同一模板格式,各部门填报的数据如何合并到狐表中来,我写的代码有问题,请大师指点为谢。

--  作者:有点蓝
--  发布时间:2020/2/27 17:07:00
--  
execl本身就有空数据,判断一下

For Each file As String In filesys .GetFiles("E:\\ygxx") \'遍历文件,指定文件的路径

    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then \'判断文件格式

        Dim Book As New XLS.Book(file) \'定义一个新的工作本,含ygxx的所有文件

        Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用第一个工作表

        For n As Integer = 1 To sheet.Rows.Count - 1 \'遍历第1个工作表的第2至最后一行

if sheet(n,0).Text.trim() > "" ‘姓名列有值’

            Dim dr As DataRow = DataTables("基本信息表").AddNew \'在基本信息表中添加行

……



--  作者:王冬浜
--  发布时间:2020/2/27 18:59:00
--  

谢谢有点蓝老师,问题解决了。