Foxtable(狐表)用户栏目项目买卖 → 合并数据


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

主题:合并数据

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


加好友 发短信
等级:幼狐 帖子:77 积分:1457 威望:0 精华:0 注册:2016/12/22 18:08:00
合并数据  发帖心情 Post By:2021/4/8 17:42:00 [只看该作者]

 Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
        dlg.Filter= "Excel文件|*.xls;*.xlsx" '设置筛选器
        If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
            Dim mg As New Merger
            mg.SourcePath = dlg.FileName
            mg.Format = "excel"
            Dim book As new XLS.Book(dlg.fileName)
            mg.SourceTableName = book.Sheets(0).name & "$"
            mg.DataTableName = "工资数据输入表"
            mg.Merge()
        End If
这是合并代码,excel表中有一列名:身份证号码。希望合并excel数据时跳过身份证号码为空值的行

 回到顶部