想统计已经打印页的金额，但这样无效：

<[%Sum(金额)] & "万元">

把单元格单独设置成[%Sum(金额)]就可以，用到表达式里就不行。

但这样要受制于列宽，有的列宽，有的列窄，说明文字和统计结果不能融为一体，比较难看。

如果在表达式里可以使用这种统计就好了。

这个以前也有人提过，不好办的。

我提的.

或者这样,比如"小计"在A6 :

...........

........

Wb.Sheets(1).range("A7").Value = Wb.Sheets(1).range("A7").Value & "万元"

..........

..........

这样可以满足:  用系统自带例子 Excel报表       哈哈,您的全攻略真好啊

Dim Book As New XLS.Book(ProjectPath & "Attachments\\分组统计1.xls")
Book.Marks.Add("bj",123 & User.Name)
Book.Build()
Book.Save(ProjectPath & "reports\\分组统计1.xls")

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Reports\\分组统计1.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
For i As Integer = 1 To Rg.Cells(Rg.Count).Row
    If Wb.Sheets(1).range("A" & i).Value Like "小计*"
        Wb.Sheets(1).range("G" & i).Value = Wb.Sheets(1).range("G" & i).Value & "元"
    End If
Next
Wb.Save
App.Visible = True

  
此主题相关图片如下：未命名.jpg