EXCELの関数値を取得するには？

質問

VB.NETでプログラミングしてます。

EXCELを起動してセルに関数を代入し、
セルから関数値を取得するのに、以下のようにしています。

Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet

xlSheet.Cells(1, 1) = "=AVERAGE(2,3,4,6,7)"
a(1, 1) = xlSheet.Cells(1, 1).value.ToString

これはこれで動作するのですが、
よく考えてみるとEXCELのセルに代入する必要はなく、
内部的にa(1,1)に関数値さえ取り込めればいいということに気付いたのです。
１行で記述したいのですが、関数値だけ取得する方法を知りません。
ご教示いただければ幸いです。

回答No.1

BLUEPIXY · ベストアンサー

Imports Microsoft.VisualBasic
して
Dim excel As Object = CreateObject("Excel.Application")
して
Dim ans as double = excel.WorksheetFunction.Average(2,3,4,6,7)
で求められます

お礼

回答ありがとうございます。
この方法で解決しました。
ありがとうございました。

回答No.2

BLUEPIXY

もし、平均値を求めるためだけにエクセルを利用しているんだったら、
平均値を求める関数を自前で書いても良いかと思います。
例えばこんな感じ
Public Function average (ByVal ParamArray nums() as double) as double
Dim sum as double = 0.0
Dim len as double = nums.Length
Dim i as integer

for i = 0 to len -1
sum += nums(i)
next
average = sum / len
End Function

お礼

回答ありがとうございます。

質問の意図をなかなか伝えにくいのですが、
averageの戻り値を求めるために使おうとしていたわけではありません。
あくまでもEXCELの関数値として得たかったということです。
でも回答ありがとうございました。