VBAでIEのボタンクリックできない

Question

VBAでIEを操作し、以下サイトを操作したいのですが、ボタンクリックできず、エラーで困っています。
http://yoyaku02.city.sumida.lg.jp/Web/

オブジェクト型の変数は設定されていません (エラー 91)

該当のソースコード

Sub openweb()
Dim objIE As InternetExplorer
Dim button As HTMLInputElement

Set objIE = New InternetExplorer
objIE.Visible = True
 
objIE.navigate "http://yoyaku02.city.sumida.lg.jp/Web/"
Call IEWait(objIE)   'IEを待機
Call WaitFor(2) '2秒停止

Set button = objIE.document.getElementById("dlSSCategory_ctl02_btnSSCategory")
button.Click　’ここでエラー

End Sub

'IEを待機する関数---
Function IEWait(ByRef objIE As Object)
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
End Function

'指定した秒だけ停止する関数---
Function WaitFor(ByVal second As Integer)
Dim futureTime As Date
futureTime = DateAdd("s", second, Now)
While Now < futureTime
DoEvents
Wend
End Function

Answer 1

エラーメッセージの直接の原因は、直前の set button=～ でオブジェクトが採取
できていないからだと思います。

で、何で採取できないかというと、ページがIFRAMEで分割されているためです。
getElementByIdのスコープはフレーム単位らしくボタンを含むIFRAMEまでは
陽に指定する必要があります。

具体的には以下のように修正してみてください。

修正前 : Set button = objIE.document.getElementById("dlSSCategory_ctl02_btnSSCategory")
↓
修正後 : Set button = objIE.document.frames(0).document.getElementById("dlSSCategory_ctl02_btnSSCategory")