ボタンをクリックする

Question

「Catálogo」ボタンをクリックするコードを書くにはどうすればいいですか？

ボタンとHTMLコードの画像：これまで

マイコード：私は物事の多くを試してみましたが、それらのどれも働いていないので

'This will load a webpage in IE 
Dim i As Long 
Dim URL As String 
Dim IE As Object 
Dim objElement As Object 
Dim objCollection As Object 

'Create InternetExplorer Object 
Set IE = CreateObject("InternetExplorer.Application") 

'Set IE.Visible = True to make IE visible, or False for IE to run in the background 
IE.Visible = True 

'Define URL 
URL = "https://www.wix.com/my-account/sites/0761466b-a270-4ab2-a3b3-e7498df11329/app/1380b703-ce81-ff05-f115-39571d94dfcd?referralInfo=DA_Wix%20Stores" 

'Navigate to URL 
IE.navigate URL 

' Statusbar let's user know website is loading 
Application.StatusBar = URL & " is loading. Please wait..." 

' Wait while IE loading... 
'IE ReadyState = 4 signifies the webpage has loaded (the first loop is set to avoid inadvertently skipping over the second loop) 
Do While IE.readyState = 4: DoEvents: Loop 'Do While 
Do Until IE.readyState = 4: DoEvents: Loop 'Do Until 

'Webpage Loaded 
Application.StatusBar = URL & " Loaded" 

'Unload IE 
Set objElement = Nothing 
Set objCollection = Nothing 

'Click on desired button 
With IE.document 
    Set elems = .getElementsByTagName(" ") 
      elems.Click 
End With 

タグ名が空白です。

Answer 1

関連する要素は、実際にbuttonまたは<input type=button/>ではなくa要素、またはアンカー要素ではありません。

getElementsByTagNameは、ページ内のすべてのa要素を返します。おそらく特定の要素だけが必要です。

あなたはIE11をインストールしている場合は、CSSセレクタを渡し、querySelectorを呼び出すことができます。

With IE.document 
    Dim elem As Object 
    Set elem = .querySelector("#etpa-iframe > html > body > store-manager > div > side-bar > div > navigation > ul") 
    elem.click 
End With 

---

あなたはnavigation下二liを選択したい場合は、あなたが:nth-childセレクタを使用することができます。

Set elem = .querySelector("#etpa-iframe > html > body > store-manager > div > side-bar > div > navigation > ul > li:nth-child(2) > a")