Foxtable(狐表)用户栏目专家坐堂 → 合并excel出错


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

主题:合并excel出错

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


加好友 发短信
等级:婴狐 帖子:10 积分:142 威望:0 精华:0 注册:2024/5/15 8:54:00
合并excel出错  发帖心情 Post By:2024/5/28 16:08:00 [只看该作者]

合并excel,代码如下,出现错误提示图片点击可在新窗口打开查看


Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName '指定数据文件
    mg.Format = "excel"'指定格式
    mg.SourceTableName = "合同登记" '指定要合并的表
    mg.dataTableName = "合同登记" '指定接收数据的表
    mg.Merge ()'开始合并
End If

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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/28 16:19:00 [只看该作者]

mg.SourceTableName = "合同登记$" '指定要合并的表

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


加好友 发短信
等级:婴狐 帖子:10 积分:142 威望:0 精华:0 注册:2024/5/15 8:54:00
  发帖心情 Post By:2024/5/28 21:35:00 [只看该作者]

加了$也不行

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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/28 21:52:00 [只看该作者]

execl文件里sheet的名称不是合同登记吧

 回到顶部