- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 使用Merge合并excel,没出现报错，也没合并 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185426)
-- 发布时间：2023/2/22 12:27:00
-- 使用Merge合并excel,没出现报错，也没合并
Dim dlg As New OpenFileDialog
dlg.Filter = "excel文件|*.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "exelc"
mg.SourceTableName = "合并物料信息"
mg.DataTableName = "测试库存"
mg.Merge()
End If
-- 发布时间：2023/2/22 13:31:00
--
mg.Format = "Excel2007"
-- 发布时间：2023/2/22 15:13:00
--
修改后提示运行错误。
-- 发布时间：2023/2/22 15:14:00
--
没有这个sheet名称。另外把帮助里的示例七仔细看看
-- 发布时间：2023/2/22 15:16:00
--
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter = "excel文件|*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel2007"
mg.SourceTableName = "合并物料信息$" 尝试添加$符合。也不行
mg.DataTableName = "测试库存"
mg.Merge()
End If
-- 发布时间：2023/2/22 15:30:00
--
execl文件发上来试试
-- 发布时间：2023/2/22 15:44:00
--
附件为需要合并的 excel
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:合并物料信息.xlsx |
-- 发布时间：2023/2/22 15:50:00
--
这个才是sheet的名称，也就是execl里的表名
此主题相关图片如下：1.png
-- 发布时间：2023/2/22 15:59:00
--
mg.SourceTableName= sheet1
-- 发布时间：2023/2/22 16:02:00
--
mg.SourceTableName= "sheet1$"