| 以文本方式查看主题 - 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=80369) |
| -- 作者：l1q2lq -- 发布时间：2016/1/21 14:17:00 -- [求助]EXCEL报表命名 用模板导出订单，并重命名，但是每个订单都保存的是一个文件名，并部根据我选中的订单变化，求教代码哪里不对 Dim Book As New XLS.Book(ProjectPath & "Attachments\\采购订单导出模板.xls") Dim fl As String = ProjectPath & "Reports\\采购订单\\" & Tables("采购清单").current("采购订单号") & "-" & Tables("采购清单").current("供应商名称") & "-" & "PPV1采购订单.xls" Book.Build() \'生成细节区 Book.Save(fl) \'保存工作簿 Dim Proc As New Process \'打开工作簿 Proc.File = fl Proc.Start() |
| -- 作者：大红袍 -- 发布时间：2016/1/21 14:24:00 -- 肯定是你表名写错了吧？这样写试试
Dim t As Table = e.Form.Controls("Table1").Table
Dim Book As New XLS.Book(ProjectPath & "Attachments\\采购订单导出模板.xls")
Dim fl As String = ProjectPath & "Reports\\采购订单\\" & t.current("采购订单号") & "-" & t.current("供应商名称") & "-" & "PPV1采购订单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start() |
| -- 作者：l1q2lq -- 发布时间：2016/1/21 14:27:00 -- OK了 谢谢 |