用Visual basic 寫求Excel中數的平均值的方法

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