Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
ieの操作ができないです
投稿日時: 20/05/19 16:31:15
投稿者: kazu3054

サイト内のボタンで
<input type="image" name="root_GJFAGW001SubmitCsv" src="../common/image/new/button_breakdown_dl_csv.gif" style="cursor: pointer;" alt="CSVデータ保存" title="CSVデータ保存" width="240" height="45" class="inline" onclick="if(!checkFileUploadName()) return false;if(watool_check_repeated()){rz_submit(document.form1,'root_GJFAGW001SubmitCsv')}" tabindex="551">
 
というコードのボタンが有るのですが
 
For Each objtsugi In objIE.document.getElementsByTagName("p")
        If InStr(objtsugi.outerHTML, "CSVデータ保存") > 0 Then
            objtsugi.Click
            Call WaitFor(10)
            Exit For
        End If
    Next
  
という内容では反応もしません。
どのように書き込んだら押すことができるのでしょうか。

投稿日時: 20/05/19 16:41:52
投稿者: kazu3054

   Dim inputTags As IHTMLElementCollection
    Set inputTags = htmlDoc.getElementsByTagName("input")
      
    Dim inputTag As IHTMLElement
    For Each inputTag In inputTags
     
    If inputTag.alt = "CSVデータ保存" Then
        inputTag.Click
        Exit For
    End If
  
Next
 と変えてみたのですが、反応しません。どこが悪いのでしょうか

回答
投稿日時: 20/05/20 10:15:00
投稿者: 半平太

全貌が見えないですが、このオブジェクトは取得できているんですか?
           ↓
 >Set inputTags = htmlDoc.getElementsByTagName("input")
          ~~~~~~~
※取得できてなかったらエラーが発生しているハズなので、意味ない確認かも知れませんが。

投稿日時: 20/05/22 09:18:26
投稿者: kazu3054

難しい処理みたいなので、諦めます。
ありがとうございました。