下記のサイトに
https://accounts.dmm.com/service/login/password/=/path=DRVESVwZTldRDlBRRFdIUwwIGFVfVEtVCxFDSQ__
「googleアカウントでログイン」というボタンがあり、
これをクリックしたいです。
検索するとよく出てくる下記の方法を試したのですができませんでした。
どのようにやればクリックできるのか教えてください。
エクセルは2016です。
HPでF12をクリックして出てきたコードは以下の点です。 <a class="sns-links google" href="https://www.dmm.com/my/-/social-login/=/sns_type=google/cancel_back_url=SgxJFksZDV1fDF8XDhkWVhUNC3JibyFqNBVtMl4BZXQJI2JrIFIoZ08SeH91YABhJBFgdUh,IGozPWhJ/back_url=DRVESVwZTldRDlBRRFdIUwwIGFVfVEtVCxFDSQ__/"> <span>Googleアカウントでログイン</span> </a>
自分が試したことは以下です。
コード Sub testIE() Dim objIE As InternetExplorer 'IEオブジェクトを準備 Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット objIE.Visible = True 'IEを表示 objIE.navigate "https://accounts.dmm.com/service/login/password/=/path=DRVESVwZTldRDlBRRFdIUwwIGFVfVEtVCxFDSQ__" 'IEでURLを開く Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE '読み込み待ち DoEvents Loop Call IELinkClick(objIE, "Googleアカウントでログイン") Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE '読み込み待ち DoEvents Loop End Sub 'リンクをクリックするマクロ Function IELinkClick(ByRef objIE As Object, ByVal anchorText As String) Dim objLink As Object For Each objLink In objIE.document.getElementsByTagName("A") If objLink.innerText = anchorText Then objIE.navigate objLink.href Exit For End If Next End Function
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/10/14 09:10
2018/10/14 11:21
2018/10/26 00:10