[求助]excel 模板导出后，单元格合并被取消 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]excel 模板导出后，单元格合并被取消

共有3642人关注过本帖树形打印复制链接主题：[求助]excel 模板导出后，单元格合并被取消

ts9277

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：211 积分：1948 威望：0 精华：0 注册：2017/3/6 20:47:00

[求助]excel 模板导出后，单元格合并被取消 发帖心情

Post By：2020/3/27 21:30:00 [显示全部帖子]

此主题相关图片如下：111.png

老师请问下，如何可以避免模板合并的单元不会被更改

ts9277

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：211 积分：1948 威望：0 精华：0 注册：2017/3/6 20:47:00

Post By：2020/3/27 21:56:00 [显示全部帖子]

模板中有合并的效果，导出后不是合并的且把模板中合并单元格的内容也删除了，如图箭头所示的（模板的式样，下图是导出后的）

ts9277

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：211 积分：1948 威望：0 精华：0 注册：2017/3/6 20:47:00

Post By：2020/3/27 21:58:00 [显示全部帖子]

此主题相关图片如下：111.png

ts9277

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：211 积分：1948 威望：0 精华：0 注册：2017/3/6 20:47:00

Post By：2020/3/29 13:19:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:嘉利模具报价名细.xls

老师请看下

ts9277

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：211 积分：1948 威望：0 精华：0 注册：2017/3/6 20:47:00

Post By：2020/3/30 12:39:00 [显示全部帖子]

好的，我再试下

ts9277

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：211 积分：1948 威望：0 精华：0 注册：2017/3/6 20:47:00

Post By：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

bk.Build()

For Each sheet As XLS.Sheet In bk.Sheets

If sheet.Name.Contains("模板") Then

bk.Sheets.Remove(sheet)

end if

下一主题 >> << 上一主题

主题：[求助]excel 模板导出后，单元格合并被取消