- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 带出数据求和显示问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106595)
-- 发布时间：2017/9/12 12:00:00
-- 带出数据求和显示问题
需求如图,导出数据的时候需要显示公式,但是目前导出的是只有数值结果的,请问有没有参考资料,该怎么改
此主题相关图片如下：1.png
-- 发布时间：2017/9/12 12:06:00
--
1、可以用表达式 <[第一列] & "*" & [第二列] & "=" & [第三列]>
2、公式这个就麻烦了，无法直接得到公式的。你要计算打印了多少行，从第几行开始打印，然后合成公式 http://www.foxtable.com/webhelp/scr/1953.htm
-- 发布时间：2017/9/12 16:28:00
-- 公式这个能获取吗?
此主题相关图片如下：1.png
公式可以从最上面获取吗??或者也用表达式拼接起来 ?
-- 发布时间：2017/9/12 17:43:00
--
你导出的数据，每次都是不同的，那么需要生成的公式都是不一样的。要做出来比较难。
做个具体实例发上来看看。
[此贴子已经被作者于2017/9/12 17:43:00编辑过]
-- 发布时间：2017/9/12 17:53:00
-- 大大帮我看看,我是用模板的方式导出数据的,可以怎么改?
如图,因是做了一个模板,直接把数据填充到模板,可以怎么改?
此主题相关图片如下：1.png
此主题相关图片如下：2.png
此主题相关图片如下：xls模板.png
-- 发布时间：2017/9/12 17:55:00
-- 图片1 发错了
是图片2和xls模板两张图片
-- 发布时间：2017/9/12 18:08:00
--
编写 http://www.foxtable.com/webhelp/scr/1957.htm 事件
动态设置对应单元格公式为 e.book.sheets(0)(某行,某列).Formula = "=sum(E10:E22)"
-- 发布时间：2017/9/12 19:06:00
-- 例子
还是不行,不定怎么改,随便写了个例子,代码直接复制过去的,看能不能行
能不能值在xls的模板上修改就可以阿?因为只是要把欠料金额列
sum 数量 sum 金额 几个值改变下,其他不变的
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.rar |
-- 发布时间：2017/9/12 20:19:00
--
模板是无法直接使用的，细节区都是动态生成，无法保留公式
-- 发布时间：2017/9/12 22:23:00
--
这种效果？
Dim Book As New XLS.Book(ProjectPath & "Attachments\\aaa.xlsx")
Dim fl As String = ProjectPath & "Reports\\_aaa.xlsx"
Book.Marks.Add("金额","sum(E10:E" & Tables("表A").Rows.Count + 9 & ")=" & Tables("表A").Compute("Sum(金额)"))
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
\'
此主题相关图片如下：无标题.png