vb中怎么对Excel使用sum - VB / 控件

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

---

你现在的代码是什么，可以直接调用 EXCEL对象中的 worksheetfunction.sum

---

---

End_rbody_64373538//-->
该回复于2010-04-02 13:52:06被管理员删除



对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP








vbyes
(vbyes)

等　级：



#4楼 得分：5回复于：2010-04-02 08:54:29


做个简单示例，在你的程序的同一目录下做个 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

---

也可以把某个单元格的值设定为"=sum(A1:A100)"
然后再取它的值
以前用过这个懒方法,具