longcielo の回答履歴

すいません、ここ10日間くらい悩んでいます。 VBAからIEを動かして所定の場所にログインをした後以降の作業でつまづいています。ソースコードを記載しております。その後のタブをクリックする以降の作業を以下に記載いたしました。 ⇒どうしてもタブが押せません。 ーーーーーーーーーーーーーーーーー Sub ＊＊＊() Dim objIE As InternetExplorer 'IEオブジェクトを準備 Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット objIE.Visible = True 'IEを表示 Dim strURL As String '次ページのURL strURL = "https://＊＊＊＊＊" objIE.navigate strURL 'IEでURLを開く Application.Wait [Now()+"00:00:03"] SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "＊＊＊"　　　’IDの入力 SendKeys "{Tab}" SendKeys "＊＊＊"　　　’パスワードの入力 SendKeys "{Tab}" SendKeys "{Enter}"　　　’ENTERの入力 Application.Wait [Now()+"00:00:05"] Dim objA As Object Dim i As Integer 'For Each objA In objIE.document.all.tags("a") 'Set objA = objIE.document.all.tags("a") 'Set objA = objIE.document.all.outerHTML Set objA = objIE.document.getElementsByTagName("a") 'If objA.outerHTML = "ドキュメント" Then Then '押したいタブの名称 objA.Click End If Next 'ここから先はまだ考えていない End Sub ーーーーーーーーーーーーーーー １．Javascriptの以下のような"javascript:void(null);"のタブの部分のを自動化でクリックしたい。 ここが上記のドキュメントの部分。 <a href="javascript:void(null);" onclick="return !1;" class="TabTitle" role="tab" title="ドキュメント" style="width: auto;">ドキュメント</a> ２．以下の”ZGBL_DLV_SOM_RP0442_SLS_ORD”のハイパーリンクをクリックする。 ここ以降はまだ考えていない。 <div id="ListingURE_detailView_listColumn_1_0_1" style="overflow: hidden; padding: 2px 0px 2px 4px;">ZGBL_DLV_SOM_RP0442_SLS_ORD</div> ３．以下の”Enter Value(s) for Sales Order Creation Date”をクリックする。 <span>* Enter Value(s) for Sales Order Creation Date (From):</span> ４．小さな小窓をクリックする。 <div id="IconImg_calendar_promptLovZone_RightZone_oneTextField_date0" class="imo" style="width: 15px; height: 20px; background-image: url(&quot;https://btblc-prdbobi.jnj.com/BOE/portal/1610160145/AnalyticalReporting/webiDHTML/viewer/../dhtmllib/images/skin_standard/menuelements.png&quot;); background-position: 0px -130px; margin-top: 0px; cursor: pointer;"></div> ５．以下のソースコードで今日というボタンをクリックしたい。 <nobr id="Btn_iconMenu_menu_calendar_promptLovZone_RightZone_oneTextField_date0_t" class="wizbutton">今日</nobr> ６．OKをクリックする。 <td width="64" id="BtnCImg_OK_BTN_promptsDlg" align="center" class="btnBase btnMidBase btnMFocus"><button style="overflow: visible; cursor: pointer;" class="wizbuttoninner" id="RealBtn_OK_BTN_promptsDlg" title="OK"><nobr id="Btn_OK_BTN_promptsDlg" class="wizbutton" title="O 仕事で使うので困っております。どうにかお礼をできればしたいとも思います。 何卒宜しくお願いします。