前提・実現したいこと
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パターン試しましたが、うまくいきません。
よろしくお願いします。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。