VBA与网站互动

时间:2017-10-31 20:34:13

标签: javascript vba

我正在为Excel编写VBA宏来从网站中提取和打印一些数据,这项工作几乎已经完成。然而,javascript函数有一个可扩展的“链接”,我需要在很多页面中进行扩展,但到目前为止我所做的一切都失败了。

该功能的代码是:

<script type="text/javascript" id="show"><!--/*--><![CDATA[/*><!--*/
function show(link, idTable, prefIdRows) {
  var image = link.getElementsByTagName('img')[0];
  image.src = (image.src.indexOf('/plus-p.gif') >= 0) ? 'images/minus-p.gif' : 'images/plus-p.gif';
  var table = document.getElementById(idTable);
  var elements = table.getElementsByTagName('tr');
  for (var i = 0; i < elements.length; i++) {
    var element = elements[i];
    if (element.id.indexOf(prefIdRows, 0) == 0) {
      if (element.style.display == 'none') {
         element.style.display = '';
      } else {
        element.style.display = 'none';
      }
    }
  }
}

链接代码为:

<a href="#" onClick="show(this, 'result','m0-'); return false;">
<img align="left" src="images/plus-p.gif" alt="Show" style="cursor:pointer;">
</a>

我已经通过标签,类名,调用execscript尝试了getelements,似乎没有任何工作(我刮掉了所有不起作用的东西,所以我没有任何代码来揭示我做错了什么,我的坏)。

有一种简单的方法吗?我几乎不知道任何JavaScript,所以我可能会尝试错误的元素。

0 个答案:

没有答案
相关问题