如何使用VBA单击网站上的图像链接？

我试图自动化一个过程，我需要从一个内部网站为多个帐户一次拉一些文件。我在Excel 2010中使用VBA。我已经能够创建代码来导航和登录到目前为止，直到我需要点击图像按钮。以下是相关的源代码。首先有一个函数：如何使用VBA单击网站上的图像链接？

<script language="javascript" type="text/javascript"> 
    <!-- 
     function __doPostBack(eventTarget, eventArgument) { 
       var theform; 
       if (window.navigator.appName.toLowerCase().indexOf("microsoft") > -1) { 
         theform = document.Form1; 
       } 
       else { 
         theform = document.forms["Form1"]; 
       } 
       theform.__EVENTTARGET.value = eventTarget.split("$").join(":"); 
       theform.__EVENTARGUMENT.value = eventArgument; 
       theform.submit(); 
     } 
    // --> 
    </script>

然后，蹦蹦跳跳地走有这个代码块，其中“Print.gif”是要点击的按钮：

 <LINK rel="stylesheet" type="text/css" 
href="/crystalreportviewers10/css/default.css"> 
<table id="CrystalReportViewer1" cellpadding="0" cellspacing="0" 
    style="height:1043px;width:901px;Z-INDEX: 101;LEFT: 8px; POSITION: absolute; TOP: 8px"> 
    <tr><td> 
    <div style="width: 901px; height: 1043px;position:relative"> 
    <div style="height:30px;width:901px;top:0px;left:0px;"> 
    <table class="crtoolbar" cellspacing=0 cellpadding=0><tr nowrap> 
    <td nowrap width=16>&nbsp;</td> 
    <td nowrap width=24px> 
    <input type="image" name="CrystalReportViewer1:_ctl2:_ctl0" 
     title="Show/Hide Group Tree" 
    onmouseover="this.src='/crystalreportviewers10/images/toolbar/grouptree_over.gif'" 
    onmouseout="this.src='/crystalreportviewers10/images/toolbar/grouptree.gif'" 
    src="/crystalreportviewers10/images/toolbar/grouptree.gif" alt="" border="0" 
     style="height:24px;width:24px;" /></td> 
    <td nowrap width=16>&nbsp;</td> 
    <td nowrap width=24px> 
    <img title="Print" 
     onclick="javascript:__doPostBack('CrystalReportViewer1:_ctl2:_ctl3','')" 
     onmouseover="this.src='/crystalreportviewers10/images/toolbar/print_over.gif'" 
     onmouseout="this.src='/crystalreportviewers10/images/toolbar/print.gif'" 
     src="/crystalreportviewers10/images/toolbar/print.gif" alt="" border="0" 
     style="height:24px;width:24px;" /></td>

我已经尝试了几种不同的方法发射“onclick”，但我有麻烦，因为它看起来像它传递到上述功能导航到正确的页面。到目前为止，我已经试过：

 For Each obj In IE.Document.all 
    '  MsgBox obj.innerHTML 
      If InStr(obj.innerHTML, "Print") > 0 Then 
      obj.Click 
    '   Exit For 
     End If 
     Next

或

 For Each obj In IE.Document.all 
      If obj.Name = "Print" Then 
      obj.Click 
      Exit For 
      End If 
     Next

，到目前为止已经失败了我一对夫妇的变化。任何对此的帮助都会很大。谢谢。

来源

2014-03-28 Crayyyg

请尝试下面的代码，并让我们知道结果。

For Each obj In ie.document.all 
     If InStr(obj.innerHTML, "Print") > 0 Then 
     obj.document.parentWindow.execScript "javascript:__doPostBack('CrystalReportViewer1:_ctl2:_ctl3','')" 
     End If 
Next

For Each obj In ie.document.all 
    If InStr(obj.innerHTML, "Print") > 0 Then 
     obj.Click 
     obj.FireEvent ("onclick") 
    End If 
Next

来源

2014-03-28 19:08:38 Santosh

如何使用VBA单击网站上的图像链接？

回答

相关问题