- 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=147951)
-- 发布时间：2020/3/27 21:30:00
-- [求助]excel 模板导出后，单元格合并被取消
此主题相关图片如下：111.png
老师请问下，如何可以避免模板合并的单元不会被更改
-- 发布时间：2020/3/27 21:49:00
--
是指在导出的时候没有正常合并单元格？还是指导出后被人为的去掉了合并？
-- 发布时间：2020/3/27 21:56:00
--
模板中有合并的效果，导出后不是合并的且把模板中合并单元格的内容也删除了，如图箭头所示的（模板的式样，下图是导出后的）
-- 发布时间：2020/3/27 21:58:00
--
模板文件发上来看看
-- 发布时间：2020/3/27 21:58:00
--
此主题相关图片如下：111.png
-- 发布时间：2020/3/27 22:03:00
--
模板文件发上来看看
-- 发布时间：2020/3/29 13:19:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:嘉利模具报价名细.xls |
老师请看下
-- 发布时间：2020/3/29 21:07:00
--
表名的位置要注意，不能在合并单元格的中间
此主题相关图片如下：1.png
-- 发布时间：2020/3/30 12:39:00
--
好的，我再试下
-- 发布时间：2020/3/30 12:57:00
--
此主题相关图片如下：22.jpg
老师我现在是在模板中复制了许多的明细模板，由于每次需要生成的数量不一致，所以导出后还有一些 模板是无用 需要进行删除 ，我用遍历工作薄的表名，如果包含“模板” 那就删除表，使用下面的代码后可以删除部分无用的模板，还有部件的无用表没有删除见图片所示，问题出在哪，请老师再看下
Dim bk As new XLS.Book(mb)
For Each r2 As Row In Tables("基本信息").Rows
nm=r2("产品名称")
bk.Sheets(i).Name = nm
bk.Sheets(i)(4,19).Value = "<产品名称 = \'" & nm & "\'>" \'设定表达式
bk.Sheets(i)(3,18).Value = r("要求完成时间")
i = i+1
Next
bk.Build()
For Each sheet As XLS.Sheet In bk.Sheets
If sheet.Name.Contains("模板") Then
bk.Sheets.Remove(sheet)
end if