VBAからIEを動かしてタブをクリックする方法

質問

すいません、ここ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"); 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

仕事で使うので困っております。どうにかお礼をできればしたいとも思います。
何卒宜しくお願いします。

回答No.3

SI299792 · ベストアンサー

私の経験では、IEはなぜか、起動直後はSendKeysを受け入れてくれません。
一度、IEの何もないところをクリックする 又は、Navigateを２回行う、で解決しました。
Navigate２回は時間がかかるので、IEの何もないところをクリックするのがいいと思います。そのためには、IEを左上（好きな場所でいいが、左上が一番楽）に固定する必要があります。

気になるのか、３秒止めていることです。やはり、BusyとRadeyState を見て止めないとうまく行かないと思います。
それと、SendKeysはTrueにした方がいいです。
当然下のプログラムはテストをしていません。
サブルーチンは私が使っているものを流用しました。Esc で止まるようにしてあります。
SleepStop は1 で0.1 秒止まります。
' マウス操作
Declare Function SetCursorPos Lib "user32" ( _
　　ByVal x As Long, _
　　ByVal y As Long) As Long
Declare Sub mouse_event Lib "user32" ( _
　　ByVal dwFlags As Long, ByVal dx As Long, _
　　ByVal dy As Long, ByVal cButtons As Long, _
　　ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN As Integer = &H2　　 '左ボタンDown
Const MOUSEEVENTF_LEFTUP As Integer = &H4　　　 '左ボタンUP
Const MOUSEEVENTF_RIGHTDOWN As Integer = &H8　　'右ボタンDown
Const MOUSEEVENTF_RIGHTUP As Integer = &H10　　 '右ボタンUP
' キー入力
Declare Function GetAsyncKeyState Lib "USER32.DLL" ( _
　　ByVal vKey As Long) As Long
' 一時停止
Declare Sub Sleep Lib "kernel32.dll" ( _
　　ByVal vKey As Long)
'
Sub ＊＊＊()
'
　　Dim objIE As InternetExplorer 'IEオブジェクトを準備
　　Dim strURL As String '次ページのURL
'
　　Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット
　　objIE.Visible = True 'IEを表示
　　objIE.Top = 0
　　objIE.Left = -7
　　strURL = "https://＊＊＊＊＊"
　　objIE.navigate strURL 'IEでURLを開く
　　BusyWait objIE
　　SleepStop 10
　　SetCursorPos 1, 121　　　　　'何もにないところ
　　mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
　　mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
’
　　SendKeys "{Tab 8}", True
　　SendKeys "＊＊＊", True　　　'IDの入力
　　SendKeys "{Tab}", True
　　SendKeys "＊＊＊", True　　　'パスワードの入力
　　SendKeys "{Tab}", True
　　SendKeys "{Enter}", True　　　'ENTERの入力
　　BusyWait objIE
　　SleepStop 10
　　　　︙
End Sub
'
Sub BusyWait(IE As Object)
'
　　While IE.Busy Or IE.ReadyState < 4
　　　　SleepStop 1
　　Wend
End Sub
'
Sub SleepStop(vKey)
'
　　For i1 = 1 To vKey
　　　　DoEvents
'
　　　　If GetAsyncKeyState(27) <> 0 Then
　　　　　　Stop
　　　　End If
　　　　Sleep 100
　　Next i1
End Sub

しかし、Sendkeysは失敗する可能性が高いコマンドです。
　　Set objA = objIE.document.getElementsByTagName("input")
　　objA(7).Value = "＊＊＊"　　　'IDの入力
　　objA(8).Value = "＊＊＊"　　　'パスワードの入力
　　objA(9).Click
という形にできませんか。私はこうしています。
（Type=File になっている項目はSendKeysを使わないと入力できませんが）

(7)(8)(9) は想像です。実際は、ホームページを見なければ判りません。
　　For Each objA in objIE.document.getElementsByTagName("input")
　　　　Debug.Print No, objA.Name, objA.Type
　　　　No = No + 1
　　Next objA
のようなプログラムで、input エリアの情報が得られます。
"input" は"textarea"かもしれません。両方調べてください。

関係ないことですが、
.Document.getElementsByTagName("a")
.Document.Links
は同じです。私は短いので下の方を使っています。

そのような仕事をしているのは羨ましいです。
どうすればそのような仕事に就けるのですが？（私は現在無職です）

回答No.2

chayamati

VBAは初歩程度で、的外れの回答ならゴメン。
テーブルのフィールドのデータ型をハイパーリングにしてここへURLを登録する方法はダメですか

回答No.1

longcielo

サイトのURLを提示しないと回答のしようが無いと思いますよ。
また、どのタブなのか、画像で指し示すなどされたらいかがですか？

お礼

すいません、会社の専用線を使用していましてさらに企業秘密からURLを提示することができませんでした。アドバイスありがとうございます！