常連

注目の的

下記のサイトに
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

```

エクセルマクロを使って、IEでクリックをしたい

PL/pgSQL

phpPgAdmin

MySQL Workbench

CSS3

A5:SQL Mk-2

float(CSS)

HTML5

MySQL

SQL Server

jQuery Mobile

jQuery UI

jQuery Validation Plugin

jQueryプラグイン

SQLite

LINQ to SQL

PostgreSQL

NoSQL

mysqli

phpMyAdmin

PL/SQL

SQL Server Reporting Services

SQLAlchemy

Transact-SQL

Webサイト

XHTML

CakePHP

PHPUnit

マクロ

JavaScript

レスポンシブWebデザイン

jQuery

FuelPHP

Sass

Alternative PHP Cache (APC)

PHPカンファレンス2014

HTML

PhpStorm

CSSフレームワーク