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


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

主题:[求助]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
图片点击可在新窗口打开查看
老师请问下,如何可以避免模板合并的单元不会被更改

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111420 积分:567176 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/27 21:49:00 [只看该作者]

是指在导出的时候没有正常合并单元格?还是指导出后被人为的去掉了合并?

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


加好友 发短信
等级:童狐 帖子:211 积分:1948 威望:0 精华:0 注册:2017/3/6 20:47:00
  发帖心情 Post By:2020/3/27 21:56:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111420 积分:567176 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/27 21:58:00 [只看该作者]

模板文件发上来看看

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


加好友 发短信
等级:童狐 帖子:211 积分:1948 威望:0 精华:0 注册:2017/3/6 20:47:00
  发帖心情 Post By:2020/3/27 21:58:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111420 积分:567176 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/27 22:03:00 [只看该作者]

模板文件发上来看看

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


加好友 发短信
等级:童狐 帖子:211 积分:1948 威望:0 精华:0 注册:2017/3/6 20:47:00
  发帖心情 Post By:2020/3/29 13:19:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:嘉利模具报价名细.xls

老师请看下

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111420 积分:567176 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/29 21:07:00 [只看该作者]

表名的位置要注意,不能在合并单元格的中间

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:童狐 帖子:211 积分:1948 威望:0 精华:0 注册:2017/3/6 20:47:00
  发帖心情 Post By:2020/3/30 12:39:00 [只看该作者]

好的,我再试下

 回到顶部
帅哥哟,离线,有人找我吗?
ts9277
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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            
      Next
      bk.Build()

 For Each sheet As XLS.Sheet In bk.Sheets
   If sheet.Name.Contains("模板") Then
    bk.Sheets.Remove(sheet)
end if


 回到顶部
总数 11 1 2 下一页