vb中怎么对Excel使用sum
要对一列从第一行到100行做和
在excel中使用的是sum(A1:A100)
请问在vb中怎么实现？

[解决办法]
你现在的代码是什么，可以直接调用 EXCEL对象中的 worksheetfunction.sum
[解决办法]

VB code

    Range("A1:A101").Select    Range("A101").Activate    ActiveCell.FormulaR1C1 = "=SUM(R[-100]C:R[-1]C)" '第101行记录这个和是多少.
[解决办法]
做个简单示例，在你的程序的同一目录下做个 Book1.xls 并放些数据 ，示例的功能是 把A，B，D列的第1行到100行的数据汇总在 第101行  ，你测试一下。

Private Sub Command1_Click()
   Set oExcel = CreateObject("Excel.Application")             'excel对象
   Set oFun = oExcel.WorksheetFunction                        'excel宏函数 对象
   Set oWk = oExcel.Workbooks.Open(App.Path & "\Book1.xls")   '工作簿 对象，完整路径
   With oWk.Sheets("Sheet1")
       .Range("a101") = oFun.Sum(.Range("a1:a100"))
       .Range("b101") = oFun.Sum(.Range("b1:b100"))
       .Range("d101") = oFun.Sum(.Range("d1:d100"))
   End With
   oWk.Close True
   Set oWk = Nothing
   Set oFun = Nothing
   Set oExcel = Nothing
End Sub
[解决办法]
改ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)"这句为以下这句
excelApp.ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)"