Question

<a tabindex="-1" role="menuitem" onclick="window.location.pathname='/users/7206/normal_reponses.xls'" href="javascript:void(0)">XLS</a>

此代码来自网页一键代码。

如何在VBA中调用上述代码或如何使用VBA代码自动执行上述步骤。我想从网页打开excel文件作为XLS？

Answer 1

我假设您的代码已使用Internet Explorer对象打开网站，在下面名为“ie”，并且网页上只有一个元素，标签名称为“a”：

function Ajax_LoadAPList()
    {
        var $http;
        if (window.XMLHttpRequest) {
            $http = new XMLHttpRequest();
        } 
        else
        if (window.ActiveXObject) {
            try {
                $http = new ActiveXObject("Msxml2.XMLHTTP");
            } catch(e) {
                $http = new ActiveXObject("Microsoft.XMLHTTP");
            }
        }
        if ($http) {
            $http.onreadystatechange = function() {
                if (/4|^complete$/.test($http.readyState))  {
                    document.getElementById("WiFiNetwork").outerHTML  = "<select size=\"6\" name=\"WiFiNetwork\" id =\"WiFiNetwork\" style=\"width: 255px;\" onclick=\"javascript: Ajax_Show_WiFiInfo();\"/>" +  $http.responseText + "</select>";
                }
            };
            document.getElementById("WiFiNetwork").outerHTML  = "<select size=\"6\" name=\"WiFiNetwork\" id =\"WiFiNetwork\" style=\"width: 255px;\" onclick=\"javascript: Ajax_Show_WiFiInfo();\"/><option>Loading...</option></select>";
            $http.open('GET', '/getnetworks.cgi', true);
            setTimeout(function(){ $http.send();}, 0);
        }
    }

我想从网页打开excel文件作为XLS？

1 个答案: