質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Q&A

解決済

2回答

502閲覧

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

rickey

総合スコア24

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

0グッド

2クリップ

投稿2018/10/14 00:51

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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ベストアンサー

こちらの環境Excel2016では、下記の変更でクリックできました。

VBA

1If instr(objLink.innerText, anchorText) > 0 Then 2 objIE.navigate objLink.href 3 Exit For 4End If 5 6'If objLink.innerText = anchorText Then 7' objIE.navigate objLink.href 8' Exit For 9'End If

投稿2018/10/14 01:31

編集2018/10/14 02:09
TanakaHiroaki

総合スコア1063

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

rickey

2018/10/14 09:10

私もこれでできました。ありがとうございました。 回答欄に、私の作成したコードも記載してくださり、とても比較しやすく助かりました。 ちなみにこれを作成するにあたって参考にされたHP等はありますか? 今後のためにもしっかり勉強しておきたいと思い、もしあれば 教えていただけたら幸いです。
TanakaHiroaki

2018/10/14 11:21

Debug.Print objLink.innerText を出力したところ、 「Googleアカウントでログイン 」の後ろにスペースが 入っており、完全一致しないことが確認できました。 ご参考まで。
rickey

2018/10/26 00:10

調べていただいてありがとうございます。エラーってこのようなミスでできないことも結構あるんですよね。気を付けないといけないところですね。
guest

0

dos攻撃は犯罪です

投稿2018/10/14 00:53

Yaiba184

総合スコア122

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

rickey

2018/10/14 00:55

もう少し詳しく教えてもらえますか?DOSとは?どういうのは犯罪か知りたく。ご教授ください。また法律のどこに違反するのは教えてもらえたら幸いです。無知で申し訳ありません。
rickey

2018/10/14 01:01

DOS攻撃を調べてみたのですが、過剰な負荷を与えた場合と書かれています。一度、クリックするマクロを組むのも犯罪に当たるのでしょうか?教えてください。
Yaiba184

2018/10/14 01:02

ごめんなさい多分あたらないです 適当言っちゃいました削除します
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問