主题：[求助]关于Excel报表调用excel函数的问题

模板，这样写

你生成之前，先执行代码

Dim filter As String = "时间 >= #2017-07-01# and 时间 < #2017-08-01#"
vars("数量1") = DataTables("表a").GetValues("姓名", filter).count
vars("金额1") = DataTables("表a").compute("sum(金额)", filter)

你excel单元格直接写 [!数量1] 就行了。

你生成报表之前，先用代码给 数量1 赋值

Dim filter As String = "时间 >= #2017-07-01# and 时间 < #2017-08-01#"
vars("数量1") = DataTables("表a").GetValues("姓名", filter).count

Dim filter As String = "时间 >= #2017-07-01# and 时间 < #2017-08-01#"
Dim drs = DataTables("表a").Select(filter)
Dim sum1 As Double = 0
Dim sum2 As Double = 0
For Each dr As DataRow In drs
    sum1 += dr("金额") * dr("费率")
    sum2 += dr("金额")
Next

Dim avg = sum1 / sum2

msgbox(avg)