用Visual basic 写求Excel中数的平均值的方法

来源：百度知道 编辑：UC知道 时间：2024/04/30 14:05:59
用VB写个求给定的Excel表格中的某些数据的平均值
比如求第一列的所有数字的平均值
最好是有注释
初学VB，弱弱的问一句，是不是要先打开某个sheet，然后选中对应区域，再调用公式啊？
请老大们指教了

在vb中如何读取excel文件中的数据，参考下贴。
http://zhidao.baidu.com/question/64987050.html?fr=ala0

求平均值可以直接调用工作表函数
xlapp.worksheetfunction.average(xlsheet.range("a:a"))

Dim xls As Excel.Application
Dim xbook As Workbook
Dim xsheet As Worksheet
Private Sub Form_Load()
Set xls = New Excel.Application
xls.Visible = True
Set xbook = xls.Workbooks.Open("d:\test.xls") '打开xls文件
Set xsheet = xbook.ActiveSheet '找到表
xsheet.Range("E1").FormulaR1C1 = "=AVERAGE(C[-4])" '设置求平均值的公式

End Sub