VBA Match関数

Question

VBAのMatch関数を使って、他ブックのセルを参照して条件に合うデータがあればTrueを、なければFalseを返す関数を作っています。Match関数は、Workbooks.openで他ブックを開かなければ参照できないのでしょうか？
調べてみると、VBAでなくExcelでの方法(Index関数と組み合わせる)しか出てきませんでした。
3行目を消すと、インデックスの有効範囲のエラーが出ます。
よろしくお願いします。

Function IsContained(target, Filename) As Boolean

path = Sheet_path(c)

Set open_file = Workbooks.Open(Filename:=path & "\" & Filename, UpdateLinks:=False)

On Error Resume Next
num = WorksheetFunction.Match("テスト", Workbooks(Filename).Worksheets("シート").Range("CC10:CC900"), 0)
On Error GoTo 0

If num = 0 Then
   kekka = False

Else
   kekka = True
End If

Workbooks(Filename).Close

End Function

Comments

[mdj]

参照するのは他のブックなのに、他のブックを開かないで参照したいんでしょうか？（意味が分からない日本語になっているんですが、そうしたいと読めるのですが。）

[yakumo02]

そういうことです。
ExecuteExcel4Macroはファイルを開かずに参照できますよね。
Match関数でもファイルを開かずに参照する方法は存在するかということです。

[mdj]

「ExecuteExcel4Macro」について教えていただいてありがとうございます。
では、VBAのQueryTableオブジェクト、もしくはADOで接続して、取得した値をMatch関数で処理する、というのはいかがでしょうか。

[yureighost]

動作確認はまだやってませんが、
MATCHはExcel関数なので
ExecuteExcel4Macroで使える可能性はあります。
他に回答される方がいないようでしたら調べてみます。

[Zuishin]

開くのが簡単なら開けばいいんじゃないかと思いますが。どのみちデータを読み込まなければいけないので内部では開いています。表示されるのがいやなら非表示にしたらいいと思います。

Answer 1

本題ではないですが、
有無の確認ならcountif関数で良いかと思います。

dim flg as Boolean
flg = worksheetfunction.countif(セル範囲,キーワード）

処理速度はMatch関数とどっちが速いかは知りません。
（最近のバージョンだとMatch関数が速い気がするけど、試してみてください）

インデックスの有効範囲のエラーが出ます。

あぁ、
オブジェクトを指定するときにブックを開いてないと、
エクセル君としては、「ワークブック」として認識しないです。

「ブックを開かいないで」がテーマならそれで調べた方がよさそうです。

Evaluateメソッドを使えばできそうな気がしますが、調べてみる元気がないので、
ヒントだけ。

あと、ブックを開かないことが、どれくらい処理速度的に有利なのかは、
どうなんでしょう。。。。？
個人的には大差ないと思ってますが、、、、、

Answer 2

本題ではないですが、ユーザー定義関数の戻り値がおかしいような気がします・・。

Function プロシージャ名(引数 As データ型) As 戻り値のデータ型
    プロシージャ名 = 戻り値
End Function

・・・略
If num = 0 Then
   IsContained= False

Else
   IsContained= True
End If

などとしないとおかしいような気がします。