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

Question

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

Option Explicit

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.frames(0).document.getElementById("dlSSCategory_ctl02_btnSSCategory")
button.Click
Call IEWait(objIE)   'IEを待機
Call WaitFor(2) '2秒停止
    
'公園運動場
Set button = objIE.document.frames(0).document.getElementById("dgShisetsuList_ctl02_chkSelectRight")
button.Click
'次へ
      
Set button = objIE.document.frames(0).document.getElementById("ucPCFooter_btnForward hideFocus")
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

指定しているIDを確認してください。

"ucPCFooter_btnForward hideFocus"

というIDは存在しません。

前回の質問の回答で、直前でオブジェクトが採取できていない。という説明を
したと思います。今回も同じ状況ですが、採取成否の確認はされていますか?

---

★このままの認識で続けられると困りますので一言。

質問される場合はまずご自身で十分な調査と確認をお願いいたします。

ここは技術的な問題の解決を共有する場所です。もし、「コードだけ載せて
動かないと言えばデバグしてくれる。」というような認識がありましたら、
それはお改めくださるようお願いいたします。

※どう質問していいのかすらわからないような時もありますけどね…
丸投げと思われるような質問だと回答の期待率はかなり低下して
しまいますのでご注意を。

Comments

[aaiaui]

ご回答ありがとうございました。コードを再確認し、先に進むことができました。