Foxtable(狐表)用户栏目专家坐堂 → [求助]Excel


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

主题:[求助]Excel

帅哥哟,离线,有人找我吗?
yupeng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:350 积分:2933 威望:0 精华:0 注册:2015/4/23 19:53:00
[求助]Excel  发帖心情 Post By:2017/5/27 16:11:00 [只看该作者]

老师您好

excel模板中设置了格式,在L14输入指定值后,其它10几个单元格的值跟着会变,

模板生成细节区后这个设置就没用了,所以我想在模板生成前,向模板L14写入指定值。请问要怎样改代码?

 

Dim name As String = Tables("Dd").Current("款号")
Dim na As String = Date.Today & name & ".xlsx"
Dim tmp As String =  ProjectPath &  "Attachments\制单.xlsx"  '定义模板路径
Dim rpt As String =  ProjectPath &  "Reports\" & na   '定义保存路径

 

Dim Book As New XLS.Book(tmp)  ''打开模板

Book.Build()  '生成细节区
Book.Save(rpt) '保存工作簿

Dim Proc As  New  Process  '打开工作簿
Proc.File = rpt
Proc.Start()


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170527161027.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/5/27 17:20:00 [只看该作者]


 回到顶部