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

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

新規登録して質問してみよう
ただいま回答率
85.35%
スクレイピング

スクレイピングとは、公開されているWebサイトからページ内の情報を抽出する技術です。

VBA

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

Internet Explorer

Internet Explorer(IE;MSIE)はマイクロソフトが開発したウェブブラウザです。Microsoft Windowsに組み込まれています。

HTML

HTMLとは、ウェブ上の文書を記述・作成するためのマークアップ言語のことです。文章の中に記述することで、文書の論理構造などを設定することができます。ハイパーリンクを設定できるハイパーテキストであり、画像・リスト・表などのデータファイルをリンクする情報に結びつけて情報を整理します。現在あるネットワーク上のほとんどのウェブページはHTMLで作成されています。

Q&A

解決済

2回答

2433閲覧

VBA IEのボタンをクリックしたい

ikedayuuki

総合スコア24

スクレイピング

スクレイピングとは、公開されているWebサイトからページ内の情報を抽出する技術です。

VBA

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

Internet Explorer

Internet Explorer(IE;MSIE)はマイクロソフトが開発したウェブブラウザです。Microsoft Windowsに組み込まれています。

HTML

HTMLとは、ウェブ上の文書を記述・作成するためのマークアップ言語のことです。文章の中に記述することで、文書の論理構造などを設定することができます。ハイパーリンクを設定できるハイパーテキストであり、画像・リスト・表などのデータファイルをリンクする情報に結びつけて情報を整理します。現在あるネットワーク上のほとんどのウェブページはHTMLで作成されています。

0グッド

1クリップ

投稿2021/08/21 07:05

前提・実現したいこと

VBAで"メール作成"のボタンをクリックしたいのですが、
クリックされる場合と、されない場合があり原因がわかりません。

該当のソースコード

vba

1Sub MailClick() 2 3 Set objIE = New InternetExplorerMedium 4 5 6 objIE.Visible = True 7 objIE.navigate "***URL***" 8 9 Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE 10 DoEvents 11 Loop 12 13 14 'メール作成をクリック 15 objIE.document.getElementById("smail").Click 16 Debug.Print objIE.document.getElementById("smail").outerHTML 17 18 19End Sub
<TABLE onclick="amtop.changeContents('smail')" id=smail class=unselected_tab cellSpacing=0 cellPadding=0 border=0><TBODY> <TR> <TD> <H2 class="am6 menu_compose">メール作成</H2></TD></TR></TBODY></TABLE>

html

1 2<td class="tab_menu"> 3 <div class="top_menu" id="header10-10_am"> 4  <table id="smail" class="unselected_tab" border="0" onclick="amtop.changeContents('smail')" cellspacing="0" cellpadding="0"> 5  <tbody><tr> 6  <td> 7 <h2 class="am6 menu_compose">メール作成</h2> 8 </td> 9 </tr> 10 </tbody></table> 11 </div> 12</td>

試したこと

objIE.document.getElementById("smail").Click

Dim btn temp = amtop.changeContents("smail").Click objIE.navigat "JavaScript:" & temp
Dim btn For Each btn In objIE.document.getElementById("smail")   If btn.className = "unselected_tab" Then btn.Click Exit For  End If Next
objIE.document.getElementsByTagName("h2")(2).Click

の3パターン試しましたが、うまくいきません。
よろしくお願いします。

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

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

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

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

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

guest

回答2

0

自己解決

objIE.document.getElementById("smail").Clickの前に3秒待つように記述したら解決しました!

投稿2021/08/22 04:28

ikedayuuki

総合スコア24

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

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

0

VBA

1 Dim btn 2 temp = amtop.changeContents("smail").Click 3 objIE.navigat "JavaScript:" & temp

JavaScriptには詳しくないので正解はお伝えできませんが、試したことで上記のことを試されたとのことですが、btnはVariant型なので、ちゃんとしたJavaScriptが入っていません。
デバッグして、内容をご確認ください。

投稿2021/08/22 04:02

sobue

総合スコア329

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

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.35%

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

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

質問する

関連した質問