選択IEオブジェクト取得関数Option Explicit ' テスト用コード Dim Ret, ObjIE Ret = GetSelectedIEObject("IEを選択してください", ObjIE) If (Ret = RETURN_NO_IE) Then MsgBox "IEが見つかりませんでした" ElseIf (Ret = RETURN_CANCEL) Then MsgBox "選択がキャンセルされました" Else MsgBox TypeName(ObjIE) End If '########################################################### ' 選択されたIEオブジェクトを取得 ' 関数 ' GetSelectedIEObject(Caption As String, obj As Object) ' ' 引数 ' Caption：選択ダイアログに表
