主题：求助有关Excel的问题！！！

不可以。

你为啥不直接用FoxTable计算：

Dim s1 As double =DataTables("销售明细").Compute("Sum(数量)", "产品名称 ='A气' And 会员卡 <> 0 And 销售日期 = #" & Date.Today & "#")

Dim s2 As double = DataTables("销售明细").Compute("Sum(数量)", "产品名称 ='A气' And 会员卡 = 0 And 销售日期 = #" & Date.Today & "#")

Sheet(1,2).Value = s1
Sheet(2,2).Value = s2

Sheet(7,2).Value = s1 + s2