以文本方式查看主题

-  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=192092)
--  作者：13974579919
--  发布时间：2024/5/28 16:08:00
--  合并excel出错
合并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
--  作者：有点蓝
--  发布时间：2024/5/28 16:19:00
--  
mg.SourceTableName = "合同登记$" \'指定要合并的表
--  作者：13974579919
--  发布时间：2024/5/28 21:35:00
--  
加了$也不行
--  作者：有点蓝
--  发布时间：2024/5/28 21:52:00
--  
execl文件里sheet的名称不是合同登记吧