前回、前々回はサイトへ自動的にログインする方法を調べて成功しました。
今度はサイト内の特定の場所を自動的にクリックする方法を調べていきます。
①
objIE.Navigate "クリックしたいURL"
Call IEWait(objIE)
Call WaitFor(3)
これでいけそうな感じがする。
②
Dim objtsugi As Object
For Each objtsugi In objIE.Document.getElementsByTagName("a")
If InStr(objtsugi.outerHTML, "次のページ") > 0 Then
objtsugi.Click
Call WaitFor(3)
Exit For
End If
Next
これも近い気がしますね。
しかし、、、、
最初、①をログイン操作のプログラムの後に付け加えるとログインが出来なくなってしまった。
①の前にSet objIE = CreateObject("InternetExplorer.Application")
を追加し解決。