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)"
然后再取它的值
以前用过这个懒方法,具
相关问答：
本人使用的是VB6.0版本
假设有一个对象A，A内有类型为B的对象属性。现在的问题是，需要添加若干个B对象作为A对象的属性。如，
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
刚建了一个群:中山VB编程(105787219)
有在中山及中山周边的程序员请加入.大家一起探讨问题.合作项目.
尽管俺不是中山的，也进来蹭分……
佛山的行吗,广州的行吗?
友情支持
回复内容太短了！
帮顶 ......
