VBAでのExecuteExcel4Macroの値取得でエラー
こんにちは。
Excel VBAより、ExecuteExcel4Macroを実行して、
外部のExcelファイルの、名前（店名、月度）を定義したセルの値を取得したいと思っています。
店名：文字列型
月度：Date型
そこで、ExecuteExcel4Macro()を実行し、以下のような処理を加えました。
------------------------------------------------------------------------------------
dim 店名 as Variant, 月度 as Variant
If 外部マクロ実行("'c:\[test.xls]出勤簿'!店名", 店名) = False Or _
外部マクロ実行("'c:\[test.xls]出勤簿'!月度", 月度) = False Then
MsgBox "取得失敗", vbExclamation
End
End If
Public Function 外部マクロ実行(com As String, ByRef result As Variant) As Boolean
On Error GoTo erron3
result = ExecuteExcel4Macro(com)
On Error GoTo 0
外部マクロ実行 = True
Exit Function
erron3:
外部マクロ実行 = False
End Function
------------------------------------------------------------------------------------
これを実行したところ、「月度」の値は取得できるのですが、
「店名」の値には「エラー 2042」という値が入ります。
※dirname, filenameは正しい値が入っています。
※シート「出勤簿」および「月度」「店名」のセル名の定義も存在します。
test.xlsを開いてるときは、上記の現象は起こらず、
「店名」の値は正常に取得できます。
また、試しに、test.xlsを開き、
Worksheets("出勤簿").Range("店名")を実行すると、正常な値が取得できました。
まとめると、
・閉じたブックの、あるシートにある、セルに定義された名前を指定して
・ExecuteExcel4Macroで、文字列が入っている値を取得しようとした時、
・正常に値が取得できない
という現象に遭遇しています。
3日ほど調べているのですが、どうしても原因が分かりません。
解決策をお持ちの方、いらっしゃいましたらアドバイスを頂けると助かります。
環境：WindowsXP Pro SP3
Excel 2003 (11.5612.5606)
以上、よろしくお願いいたします。
