VBA IE javascript要素をクリックしたい

Question

前提・実現したいこと

VBAでjavascript要素をクリックしようとしていろいろ調べたのすが、うまくできなくて投稿しました。
ご教授宜しくお願い致します。

#発生している問題・エラーメッセージ
該当箇所に

該当箇所
<a href="#" onclick="return execproc('Main.jsp');"

試したコード
objIE.navigate "JavaScipt:return execproc('Main.jsp');"

selecter
body>form>table:nth-child(2)>tbody>tr:nth-child(2)>td:nth-child(1)>a

xpath
/html/body/form/table[1]/tr[2]/td[1]/a

Answer 1

onclickの処理なので、.navigateでは無理でしょう。
「execproc('Main.jsp')」 というプロシージャを動かしたいなら、直接
その関数を呼んだほうがてっとり早いです。具体的には

objIE.document.parentWindow.execScript ("execproc('Main.jsp')")

でよいかと。

【参考】

Webページのスクリプトを実行するVBAコード
https://officevba.info/vbaexecscript/

Comments

[tracky]

ご返事ありがとうございます。
試したところ、「エラー 80020101のため操作を完了できませんでした」となり実行できませんでした。エラーについて調べて月曜に再度試してみたいと思います。

[tracky]

このエラーについてネットで出ているコメントアウトは使われておらず、対応できずにいます。もう少し調べてみようと思います。

Answer 2

アドバイスありがとうございました。
UWSCを使って処理をすることにしました。

Answer 3

MSXML2.DOMDocumentなりでXMLパースしても、
それを生のObjectと結びつける手段がないとClickできないんですよね。
とりあえず自力でXPathのElementを取り出すFunctionを作ってみました。
これでどうでしょう？　(ただしエラー処理など一切なしです テストでGoogle検索は成功)

Sub ボタン1_Click()
    Dim objIE As Object
    Dim elemTarget As Object
    Dim sURL As String
    Dim sXPath As String
    
    sURL = "http://..."
    sXPath = "/html/body/form/table[1]/tbody/tr[2]/td[1]/a" '※ tbodyが必要
    
    'テスト用 Googleで検索ワード'teratail'をいれるまでのURL
    sURL = "https://www.google.com/?q=teratail"
    '         Googleの検索ボタンXPath
    sXPath = "/html/body/div[1]/div[3]/form/div[1]/div[1]/div[3]/center/input[1]"
    
    'ページ読込
    Set objIE = CreateObject("Internetexplorer.Application")
    objIE.Visible = True
    objIE.navigate sURL
    
    '読込待機
    Do
        If Not objIE.Busy Then Exit Do
        If objIE.readyState = tagREADYSTATE.READYSTATE_COMPLETE Then Exit Do
        Application.Wait Now() + TimeValue("00:00:01")
    Loop
    
    'XPathでElementを取得
    Set elemTarget = getElementByXPath(objIE.document.body, sXPath)
    If Not elemTarget Is Nothing Then
        elemTarget.Click
    End If
End Sub

'注意！ Body配下限定:信頼性＆汎用性=おそろしく低い(テストゼロ同然で不明)
Function getElementByXPath(elemParent As Object, sXPath As String, Optional sHerePath As String = "") As Object
    Dim sSibling As String
    Dim sTag As String
    Dim sNewPath As String
    Dim elem As Object

    If sHerePath = "" Then
        sHerePath = "/html/body"
        sXPath = Replace(sXPath, "[1]", "")
    End If
    For Each elem In elemParent.Children
        sTag = LCase(elem.tagName)
        sSibling = sSibling & "<" & sTag & ">"
        sNewPath = sHerePath & "/" & sTag & getSiblingIdxStr(sSibling, sTag)
        If sNewPath = sXPath Then
            Set getElementByXPath = elem
            Exit Function
        End If
        Set getElementByXPath = getElementByXPath(elem, sXPath, sNewPath)
        If Not getElementByXPath Is Nothing Then Exit Function
    Next
    Set getElementByXPath = Nothing
End Function

Function getSiblingIdxStr(sSibling As String, sSelfTag As String) As String
    Dim iCount As Integer
    iCount = (Len(sSibling) - Len(Replace(sSibling, sSelfTag, ""))) / Len(sSelfTag)
    If iCount > 1 Then getSiblingIdxStr = "[" & CStr(iCount) & "]"
End Function

Comments

[tracky]

ご回答ありがとうございます。
あいにく、本日確認することができませんしたので月曜に確認致します。

[tracky]

残念ながらクリックできませんでした。他のサイトでは動作しておりますので特有の問題かと思います。
コードを拝見しもう少し勉強してみようと思います。