VBA點擊一個鏈接使用href

-1

我正在進行一個登錄程序到一個Intranet站點的自動化，我已經編寫了進入該網站的代碼。發佈有一堆選項，其中有java查詢運行onclick。我無法這樣做，我檢查了多個帖子並嘗試了吹碼但沒有運氣。VBA點擊一個鏈接使用href

Do While IE.Busy 
Loop 
' click a text link on the page after that 
Call objIE.document.frames(1).document.parentWindow.execScript("javascript:void(0)", "JavaScript") 
End Sub

也是我一直在使用getelementbyclassname試過了，那也沒有工作。

有人可以幫助這個。

下面

是基於web

class="appLaunch">Full Screen Desktop</a></p></td><td></td></tr></table></td></tr><tr><td class="appsCell" colspan="5"><table class="appsTable" border="0" cellpadding="0"><tr><td width="12" align="left" valign="top">&nbsp;</td><td><span class="navareaSessionGif"><a href="javascript:void(0);" onclick="OnAppKeyPress(event, '../../../applicationLaunch/appLaunch.jsp?launchobject=...%2F_ens%2Fo%3Dapplications%2Fou%3DCDM%2Fou%3Dswi7%2Fcn%3DFull+Screen+Desktop+Drive+Map&SGD_Token=avFjUXXu5v_704onY8odrN2dW8IuTwBB', 'ResponseFrame', '.../_ens/o=applications/ou=CDM/ou=swi7/cn=Full Screen Desktop Drive Map')" target="ResponseFrame" title="Always resumable, displays full-screen (1 session(s))"><img src="/sgd/cust_resources/images/icons/windows.gif" alt="Full Screen Desktop Drive Map" border="0" class="icon" /></a></span></td><td width="18" align="left"><span class="navareaSessionGif"></span></td><td nowrap><p class="navareaApp"><a href="javascript:void(0);" onclick="OnAppKeyPress(event, '../../../applicationLaunch/appLaunch.jsp?launchobject=...%2F_ens%2Fo%3Dapplications%2Fou%3DCDM%2Fou%3Dswi7%2Fcn%3DFull+Screen+Desktop+Drive+Map&SGD_Token=avFjUXXu5v_704onY8odrN2dW8IuTwBB', 'ResponseFrame', '.../_ens/o=applications/ou=CDM/ou=swi7/cn=Full Screen Desktop Drive Map')" target="ResponseFrame" title="Always resumable, displays full-screen (1 session(s))"

來源

2016-07-11 Jogi Singh

您可以編輯和嘗試下面的代碼的源代碼：

Dim ElementCol, txt As Object 
Set ElementCol = objIE.Document.frames(1).Document.getElementsByTagName("a") 
    For Each txt In ElementCol 
     If txt.innerText = "Full Screen Desktop" Then 
      txt.Click 
      Exit For 
     End If 
    Next

來源

2016-07-11 09:43:34

感謝您快速輸入，但它仍然沒有工作，示值誤差不能找到對象和調試停止在 - 設置ElementCol = objIE.document.frames（1）.document.getElementsByTagName（「a」） –

@ JB我也嘗試了這一點，當IE完成加載 - Dim LinkFound作爲布爾昏暗linkCollection 設置linkCollection = IE.document.getElementsByTagName（「A」）爲每個鏈接在linkCollection 如果link.innerText = 「全屏桌面驅動器映射」然後 LinkFound =真 link.Click 退出對於結束如果接下來如果沒有鏈接然後 MsgBox「未找到鏈接！」退出小組結束如果做，直到IE.readyState = 4 的DoEvents 循環結束小組 ----------和它說沒有找到的鏈接。所以這不是一個按鈕或鏈接....以下是該頁面的完整代碼------ –

請按照框架編輯代碼。您可以用框架（「框架名稱」）替換框架（1）。如果幀內存在幀，則必須通過給出兩個名稱來編寫適當的幀路徑。 –

VBA點擊一個鏈接使用href

回答

相關問題