Foxtable(狐表)用户栏目专家坐堂 → 合并Excel文件问题


  共有3340人关注过本帖树形打印复制链接

主题:合并Excel文件问题

帅哥哟,离线,有人找我吗?
王冬浜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:60 积分:741 威望:0 精华:0 注册:2019/3/18 14:03:00
合并Excel文件问题  发帖心情 Post By:2020/2/27 16:58:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:合并excel文件问题.zip
,1个文件夹,同一模板格式,各部门填报的数据如何合并到狐表中来,我写的代码有问题,请大师指点为谢。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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 '在基本信息表中添加行

……



 回到顶部
帅哥哟,离线,有人找我吗?
王冬浜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:60 积分:741 威望:0 精华:0 注册:2019/3/18 14:03:00
  发帖心情 Post By:2020/2/27 18:59:00 [只看该作者]

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

 


 回到顶部