主题：如何在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····