VBAでIEのボタンクリックを教えてください

実現したいこと

VBAでIEのボタンクリックで行き詰っています。
下記ソースがクリック出来ません。
ご教授お願い致します。

該当のソースコード

試したこと（クリック出来ない）

Call IEButtonClick(objIE, "ダウンロード開始")
Public Function IEButtonClick(ByRef objIE As Object, buttonValue As String)
Dim objInput As Object
For Each objInput In objIE.document.getElementsByTagName("INPUT")
If objInput.Value = buttonValue Then
objInput.Click
Exit For
End If
Next
End Function

ちなみに、このソースコードは下記でクリック出来ました。input nameとinput classで処理方法が違うのでしょうか？
<input class="Cm02_Menu" onclick="js_SetCookie('BCODE003', '2101');js_Goto('Ij00_Frame?txtMsgCd=2');" type="BUTTON" value="発注データ一括受信">

Call IEButtonClick(objIE, "発注データ一括受信")
Public Function IEButtonClick(ByRef objIE As Object, buttonValue As String)
Dim objInput As Object
For Each objInput In objIE.document.getElementsByTagName("INPUT")
If objInput.Value = buttonValue Then
objInput.Click
Exit For
End If
Next
End Function

m.ts10806

2019/03/23 13:04

コードはマークダウンのcode機能を利用してご提示ください。 https://teratail.com/help#about-markdown また、「できない」方のコードを実行したときに何が起きるのでしょうか。現象を具体的に記載してください。

行動規範の内容に同意します

回答1件

ベストアンサー

ごめんなさい。
間違えて回答してしまいました。

当方もよくわかってないのですみませんが、こちらで同じようなHTMLを書いてテストしてみましたら、最初にご提示されてたコード（Click）で普通に動きました。
（Excel側は「Microsoft Internet Controls」と、「Microsoft HTML Object Library」を参照設定してから）

ただ、HTMLを表示した時に、「ブロックされているコンテンツを許可」というボタンを押せ、みたいなメッセージが出たのでそれを押しましたが・・・。

テストに使ったHTMLの中身は次の通りです。
「="js_DownLoad();" 」の部分の「;」は付けてもつけなくても動きました。

HTML
1<input name="btnDownLoad" style="width: 200px; padding-right: 0px; padding-left: 0px;" onclick="js_DownLoad();" type="BUTTON" value="ダウンロード開始"> 
2
3<script>
4function js_DownLoad() {
5alert('aaaaaaa')
6}
7</script>

ExcelVBAのほうでは、すでに開いているIEの画面を取得する形でCallしてみました。

VBA
1Sub test111()
2    Dim objIE As InternetExplorer
3    Dim objShell  As Object
4    Dim objWin As Object
5    
6    'Shellオブジェクトを作成する
7    Set objShell = CreateObject("Shell.Application")
8      
9      For Each objWin In objShell.Windows
10
11        If objWin.Name = "Internet Explorer" Then
12
13            'InternetExplorerオブジェクトをセット
14            Set objIE = objWin
15
16            Exit For
17
18        End If
19
20    Next
21    
22    Call IEButtonClick(objIE, "ダウンロード開始")
23
24End Sub
25
26Public Function IEButtonClick(ByRef objIE As Object, buttonValue As String)
27 Dim objInput As Object
28 For Each objInput In objIE.document.getElementsByTagName("INPUT")
29 If objInput.Value = buttonValue Then
30 objInput.Click
31 Exit For
32 End If
33 Next
34End Function
35