1.    <"附件张数" & [%报销明细,Sum(发票张数)] & "张">

2.    <"$ " &[%报销明细,Sum(美金金额)]&"">

3.    <"=sum(D1:D13)">

以上代码哪里输错了？在Excel报表 中能直接带出公式输出吗？

例如    3.<"=sum(D1:D13)">   希望输出后是公式而不是数值。

请指点。

头两个问题请参考：

http://help.foxtable.com/topics/2117.htm

第三个问题,foxtable不支持直接设置Excel公式，不过以后会支持。

现在就可以直接设置Excel公式，并自动计算···  用系统自带的Excel报表做例子～

Dim Book As New XLS.Book("C:\\foxtable\\CaseStudy\\Attachments\\出库单.xls")

Book.Marks.Add("小计","=7+8")   \'添加标记 （模板上F4位置增加一个 <小计> 的标记）

                                               "=7+8"  换成 "=sum(E7:E13)"  也可以
Book.Build()
Book.Save("C:\\foxtable\\CaseStudy\\Reports\\出库单0.xls")
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\foxtable\\CaseStudy\\Reports\\出库单0.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Range("E4").Activate     \'注意这里要执行的是 E4 的单元格
App.Visible = True
Application.DoEvents()
Sendkeys.Send("{F2}") 
Sendkeys.Send("{left 1}")    \'这里至少要左移动一个光标位置  有时又可以不要这条代码
Sendkeys.Send("{enter}")      \'这时：标记 位置显示结果 等于 15 。

公式 “=7+8 ”得到执行啦！！！     

 不过只能执行一个单元格里的公式    大家要节省的用啊···  呵呵

楼主要显示：=sum(E7:E13)  而不是 结果，那么，3楼的代码最后四行不要加上就可以了。。。。

以下是引用狐狸爸爸在2011-2-22 18:20:00的发言：

怎么啦，我的办法不可以吗？  ····   等待中～～～

呵呵，没有什么不可以的，只要能达到目的就行。

哈哈··   Waiting····

能支持公式会更好，顶顶顶