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)"
然后再取它的值
以前用过这个懒方法,具
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
