VBAでWeb上のボタンをクリックしたい(javascript, onclick)

Question

VBA でWeb上のボタンをクリックするスクリプトが上手く書けません。
対象となるサイトは下記のソースの

<input type="button" name="btTimePunchEnd" value="終業打刻" onclick="execClose()">

この「終業打刻」ボタンをクリックするスクリプトが上手くかけません。

<table class="PS_dataLine table2" width="400">
<tbody><tr>
<th colspan="2" class="th_1" width="35%" id="today">2019年08月01日 (木) 13:43</th>
</tr>
<!-- 日付データ -->

</td>
</tr>
<tr height="50">
<!-- 打刻終了時間：ボタン -->
<th class="th_2" id="timeCloseButton">
<input type="button" name="btTimePunchEnd" value="終業打刻" onclick="execClose()">
</th>
<!-- 打刻終了時間：表示 -->
<td class="td_time_punch" id="timeClose">
 
 
</td>
</tr>
<tr height="30">
<td class="td_1_center" colspan="2" id="message">

</td>
</tr>
</tbody></table>

以下のコード1～4は↑のページにたどり着くためのコードで、
コード5として「終業打刻」をしたいと思っています。

Sub 終業打刻()
'
' 就業打刻 Macro
'---コード1｜インターネットに接続してブラウザを開く---
    Dim objIE As InternetExplorer
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True

'---コード2｜インターネットの特定のページを開く---
    objIE.navigate "https://jkap2.ffpri.go.jp/UPDSTMG/package/auth/view/Login.html"
    Call IEWait(objIE)   'IEを待機
    Call WaitFor(1) '1秒停止
    
    
    
'---コード3｜自動でログイン---

    Dim htmlDoc As HTMLDocument
    Set htmlDoc = objIE.document
        
    With htmlDoc
        .getElementById("txtAccount").Value = "******" 'ユーザー名を指定
        .getElementById("txtPassword").Value = "****" 'パスワードを指定
        .getElementById("fm:idLoginButton").Click
    End With
    
    Call WaitFor(1) '1秒停止



'---コード4｜ウェブ上のボタンを自動でクリックして次へ---
     objIE.document.Script.setTimeout "javascript:setPermaLink('/UPDSTMG/package/view/Site.html?psSite=TMG_INP')", 1

    Call WaitFor(3) '1秒停止

'---コード5｜終業打刻---

objIE.document.getElementsByName("btTimePunchEnd")(0).click


End Sub

試したこと

以下を試しましたが、ダメでした。

objIE.document.getElementsByName("btTimePunchEnd")(0).click

↑「オブジェクトはこのプロパティまたはメソッドをサポートしていません」と出てしまいます。

objIE.document.getElementById("timeCloseButton").getElementsByTagName("input")(0).click

↑「オブジェクト変数またはwithブロック変数が設定されていません」と出てしまいます。

objIE.navigate "javascript:execClose();"

objIE.document.Script.setTimeout "execClose();", 1

↑この2つはエラーメッセージは出ませんが、何も起きません。

ご教授のほど、よろしくお願いします。

コード4のところの遷移画面です。

<TABLE><TBODY>
<TR>
<TD onclick="javascript:setPermaLink('/UPDSTMG/package/view/Site.html?psSite=TMG_INP')" class=PS_siteLinkDesc style="CURSOR: pointer; BACKGROUND: url(/UPDSTMG/package/component/images/icon_personalSite.gif) no-repeat left 50%">
<DL>
<DT class=PS_siteLink><A href="javascript:setPermaLink('/UPDSTMG/package/view/Site.html?psSite=TMG_INP')">就業入力サイト</A>
<DT>あなたの就業実績情報を入力できます</DT></DL></TD>
<TD onclick="javascript:setPermaLink('/UPDSTMG/package/view/Site.html?psSite=TMG_PERM')" class=PS_siteLinkDesc style="CURSOR: pointer; BACKGROUND: url(/UPDSTMG/package/component/images/icon_talentManagement.gif) no-repeat left 50%">
<DL>
<DT class=PS_siteLink><A href="javascript:setPermaLink('/UPDSTMG/package/view/Site.html?psSite=TMG_PERM')">就業承認サイト</A>
<DT>承認者・代理承認者用サイトです</DT></DL></TD>
<TD class=PS_siteLinkDesc>&nbsp;</TD>
<TD class=PS_siteLinkDesc>&nbsp;</TD></TR></TBODY></TABLE>

Comments

[m.ts10806]

そもそもgetElementsByName()で指定のElementはとれていますか？

[m.ts10806]

あとコードはマークダウンのcode機能を利用してご提示ください。
https://teratail.com/help#about-markdown

[x_x]

1番目2番目のパターンで正常に動きました。
問題点を明らかにするため、該当コード全体を載せることはできるでしょうか？

[BW70]

コメントありがとうございます。
修正、追記いたしました。
よろしくお願いします。

[x_x]

setPermaLink() では画面遷移が発生しているのでしょうか？

[BW70]

出張につき返信が遅れました。
setPermaLink() では画面遷移があります。
コード3でログイン画面でログインをして現れる画面で、コード5で終業ボタンを押すための画面の間に1画面あるため、終業ボタンを押す画面へ移行するボタンをクリックしています。

[x_x]

画面遷移があるのであれば、
Call IEWait(objIE) 'IEを待機
をそのあとにも追加してみたらどうなるでしょうか？

[BW70]

x_x様
ありがとうございます。
特に変化はありませんでした。これまでも Call WaitFor(3)で3秒おいてみていました。

[x_x]

その後これも追加で
Set htmlDoc = objIE.document

[BW70]

何度もコメントありがとうございます。
確認ですが、コード4の　Call WaitFor(3)　を
Call IEWait(objIE) 'IEを待機
Set htmlDoc = objIE.document
に置き換える、ということでよろしいでしょうか？
しかし、残念ながら当初と同様のエラーが出てしまいます。

[x_x]

setPermaLink の内容を提示できるでしょうか？

[BW70]

コメントありがとうございます。
すいません、「setPermaLink の内容を提示」とはどういうことでしょう？
画面遷移のところのHTMLを載せておきます。
コード4で就業入力サイトをクリックして、コード5のページに移行します。

[x_x]

すみません、htmlDoc は使ってなくて関係なかったですね。
現状、setPermaLink() で画面遷移している方法が不明なので、どのように待ったらいいかわかりません。
最初に提示されている HTML が Site.html ですか？

[BW70]

コメントありがとうございます。
はい、最初に提示しているHTMLが打刻するサイトの打刻ボタンがある周辺のHTMLです。

Answer 1

もしかして
こういうやつですか？

'打刻ボタンを押す
Dim btn
For Each btn In objIE.document.GetElementsByTagName("input")
    If btn.Value = "終業打刻" Then
        btn.Click
        Exit For
    End If
Next

あと
頭にお約束のこういうやつは書いてますか？
withなんとかっていうエラーが出るときは、ここを忘れてたとか間違えてたとか、あと参照設定足りなかったとかの場合が多かったような気がします。

Dim objIE As Object  
Set objIE = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")
objIE.Visible = True

Comments

[BW70]

コメントありがとうございます。
1つめは　'---コード5｜終業打刻---　にそのままコピペしましたが
特にエラーは出ないものの、何も起きませんでした。

2つめは、コードの冒頭で
Dim objIE As InternetExplorer
と書いております。
コードの全文を転載しましたので、よろしくお願いします。

[sumire_cl]

そのままコピペするのは…これVBScriptなので…

[sumire_cl]

あと、ちゃんと動かないってときによくあるのが
IEのセキュリティ設定（保護モード）がどうなってるかとかはいかがでしょうか？

[BW70]

sumire_cl様
コメントありがとうございます。
ご教授いただいたもののうち
GetElementsByTagName("input")　を
GetElementsByTagName("btTimePunchEnd") としたり
GetElementsByName("btTimePunchEnd")　とすると、エラーはおきないものの、何も起きませんでした。
また、
GetElementsByTagTagID("timeCloseButton") とすると
「オブジェクトはこのプロパティまたはメソッドをサポートしていません」
と出てしまいます。

2つめの方ですが、すいません
"new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}"
をどのように変更すれば良いかわかりません。

セキュリティ設定についてですが、このサイトを「信頼済みサイト」として保護モードを有効にする のチェックを外したところ、コード2でエラーが発生してしましました。

[sumire_cl]

保護モードは
「Excel　VBA　IE　保護モード」
とかでググったほうが、どうしたらいいかわかるかも……。
とりえあず https://qiita.com/3mc/items/da045e86d25ef697ec43
「"new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}"」もこれを検索ワードにしたら出てきます。

[sumire_cl]

その「コード4」というところまではちゃんと動いて、「↑のページ」と書いてあるページが表示されるところまでは行けているのですよね？