小粋空間  -  a cheap joke and a play on words site

VBAでオブジェクトを関数の返却値に使う時に「オブジェクト変数またはWithブロック変数が設定されていません」というエラーになる場合の対処

VBAでオブジェクトを関数の返却値に使う時に「オブジェクト変数またはWithブロック変数が設定されていません」というエラーになる場合の対処方法を紹介します。

１．問題点

「Excel VBAで正規表現を使って文字列をマッチさせる方法」で、VBScript.RegExpを使った正規表現の文字列マッチ処理を紹介しました。

下記のコードはそのサンプルです。

Sub test()
    Dim str As String
    str = "foo Foo FOO"
    
    Dim regex
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "foo"
    regex.Global = True
    regex.IgnoreCase = True
    
    Dim result
    Set result = regex.Execute(str)
    If result.Count > 0 Then
        For i = 0 To result.Count - 1
            MsgBox result(i)
        Next
    End If
 
    Set regex = Nothing
End Sub

上のコードから文字列マッチの処理だけを汎用的に使えるよう、別関数に切り出してみました。

Function exec_regex(data As String, pattern As String) As Object
    Dim regex
    Set regex = CreateObject("VBScript.RegExp")
    regex.pattern = pattern
    regex.Global = True
    regex.IgnoreCase = True
    exec_regex = regex.Execute(data)
End Function

本題からそれますが、文字列マッチ結果はMatchesコレクションになりますが、返却値にするにはFunctionに「As Object」を設定します。

Function exec_regex(data As String, pattern As String) As Object

そして次のコードから切り出した関数を起動してみました。関数パラメータは、マッチ文字列とマッチさせたいパターンです。

Sub test()
    Dim result
    Set result = exec_regex("foo Foo FOO", "foo")
    If result.Count > 0 Then
        For i = 0 To result.Count - 1
            MsgBox result(i)
        Next
    End If
End Sub

がこのコードを実行すると、タイトルのように「オブジェクト変数またはWithブロック変数が設定されていません」というエラーになります。

２．原因と対処

エラーの原因は、返却値を設定するときに「Set」を行っていなかったためです。

ということで、関数の返却値を設定するときに「Set」を追加することでエラーは解消しました。

Function exec_regex(data As String, pattern As String) As Object
    Dim regex
    Set regex = CreateObject("VBScript.RegExp")
    regex.pattern = pattern
    regex.Global = True
    regex.IgnoreCase = True
    Set exec_regex = regex.Execute(data)
End Function

ここではExecuteの実行結果を例にとりあげましたが、オブジェクトを返却値に利用するときは「Set」が必要となります。

また、ここで紹介したサンプルには最初から設定していますが、オブジェクトを受け取る側にも「Set」が必要ですので気をつけましょう。

Sub test()
    Dim result
    Set result = exec_regex("foo Foo FOO", "foo")
    If result.Count > 0 Then
        For i = 0 To result.Count - 1
            MsgBox result(i)
        Next
    End If
End Sub