VB.NETでExcelの数式バーの処理をさせたい

質問

Excelのセルにいろいろな数式が入っていて、
この数式を書き出したテキストファイルを読み込ませて、
VB.NETで処理をしたいのですが、
VB.NETで、Excelの文字列関数を含んだ式を処理するには
どのように記述すればよいでしょうか。

単なる計算式であれば
　Dim xlApp As New Excel.Application
　Dim str1 As String
　Dim x As Integer
　a = "3600 / 60 + 5000"
　x = xlApp.Evaluate(a)
でできるのですが文字列だとうまくいきません。

例えば、ExcelのシートのA1セルを選択して
数式バーに　=MID("ABCDE",2,3) と入力すると
その結果のBCDがA1セルに得られますが
VB.NETで、
=MID("ABCDE",2,3)
から
BCD
を得るにはどのようにすればよいでしょうか。

なお、=MID("ABCDE",2,3)　の式は一例であって、
以下のように、この式をVB.NETで記述する
仕方を知りたいのではありません。
　Dim str1, str2 As String
　str1 = "ABCDE"
　str2 = str1.Substring(2, 3)

よろしくお願いします。
(VisualStudio2010 , Excel2003 , WindowsXP SP3)

回答No.2

todo36 · ベストアンサー

Dim xlApp As New Microsoft.Office.Interop.Excel.Application
Dim q As String = "MID(""ABCDE"",2,3)"
Dim a As String = xlApp.Evaluate(q)
MsgBox(a)

普通に動くけど。
質問のポイントが分からぬ。

お礼

分かりました。引用符のところで躓いていました。
変数を使った場合にも引用符で誤りやすいので記しておきます。
ありがとうござました。

---------------------------------
Imports Microsoft.Office.Interop

Module Module1

　Sub Main()

　　Dim xlApp As New Microsoft.Office.Interop.Excel.Application

　　Dim q As String = "MID(""ABCDE"",2,3)"
　　Dim a As String = xlApp.Evaluate(q)
　　MsgBox(a)

　　Dim str1 = "ABCDE"
　　q = "MID(""" & str1 & """,2,3)"
　　a = xlApp.Evaluate(q)
　　MsgBox(a)

　　Dim str2 = """ABCDE"""
　　q = "MID(" & str2 & ",2,3)"
　　a = xlApp.Evaluate(q)
　　MsgBox(a)

　End Sub

End Module
---------------------------------

回答No.1

KURUMITO

Dim str1, str2 As String
　str1 = "ABCDE"
　str2 = str1.Substring(2, 3)
を次のようにすればよいでしょう。
Dim str1, str2 As String
　str1 = "ABCDE"
　str2 = Mid(str1,2,3)

お礼

ANo.2の回答で解決しました。
ありがとうございました。