Excel VBA IEで操作 (class属性の要素) クリックし

Writer: admin Type: schwart Date: 2019-01-18 00:00
Excel VBA IEで操作 (class属性の要素) クリックしたいです。●移動方法 ①電車 ②車 ③徒歩 と選択が出来ます。クリックすると画面が切り替わります。 他のボタンは下記のサンプルで クリックした状態になるのですが ボタンが見つけられないので困っております。 ※いつも、いろんな方に親切に教えて頂いているのですが、質問の説明・仕方についてもあまり解っていない為、ご迷惑かけますが、よろしくお願いいたします。Sub sample1() Dim objIE As InternetExplorer 'IE(InternetExplorer)のオブジェクトを作成する Set objIE = CreateObject("InternetExplorer.Application") 'IE(InternetExplorer)を表示する objIE.Visible = True '指定したURLのページを表示する objIE.Navigate "http://www.vba-ie.net/" '完全にページが表示されるまで待機する Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop 'クリックしたいボタン名objIE.document.getElementById(" ボタン名 ").ClickEnd Subページのソースになります。<div class="l-main" id="so-content-main"> <div class="l-header head-box" id="jss-header-box"> <div class="head-inner-box"> <div class="head-search-box head-section-box"> <form id="jss-head-search-form" action="/room/search"> <div class="head-section-heading">Search</div> <div id="jss-head-search-select-box" class="head-search-select-box"> <span class="jss-head-search-select-label">すべて</span> <input type="hidden" name="ggenre_id" id="jss-head-search-select-ggenre" class="jss-head-search-select-label" value="0"> <ul id="jss-head-search-select-list" class="head-select-list head-search-select-list"> <li class="head-list-selected jss-head-search-select-label">すべて</li> <li data-value="0" class="selected">すべて</li> <li data-value="11">電車</li> <li data-value="12">車</li> <li data-value="13">徒歩</li> </ul>共感した0###質問のhtmlにはボタンはありません。考えられるのは、ボタンのタグがあるのは質問にあるソース以外の場所か、JavaScriptなどで動的にタグを追加しているのか、どちらかだと思います。実際のURLを教えてもらわないと、質問の情報だけでは、それ以上わからないと思います。ナイス0

 

TAG