Tag: xmlhttprequest

我试图从网站的Excel中获得实时天气，但在VBA中不断得到不同的运行时错误？

所以我从（ https://developer.worldweatheronline.com/page/explorer-free ）提取信息，然后按照YouTube上的教程（ https://www.youtube.com/watch?v=uo5TvtXuzJQ ）怎么做。 不幸的是，当我在VBA中运行我的代码时，它会说运行时错误，我的命令button（ActiveX控件）也不会在Excel中响应，当我点击它。 我很新的VBA所以请裸露我请任何帮助，真的很感激…这是我的代码： Private Sub btnRefresh_Click() Dim WS As Worksheet: Set WS = ActiveSheet WS.Range("theDate").Value = "" WS.Range("highTemps").Value = "" WS.Range("lowTemps").Value = "" Dim delShape As Shape For Each delShape In WS.Shapes If delShape.Type = msoAutoShape Then delShape.Delete Next delShape Dim Req As New XMLHTTP60 Req.Open "GET", "http://api.worldweatheronline.com/free/v2/weather.ashx?q=Hong%20Kong&format=XML&num_of_days=5&key=d3e0463dc48afecc7815bbf8ffb92", False Req.send Dim […]

使用XMLHTTP运输预编译的Excel VBA

我有一个Excelmacros使用Web服务来validation，如果Excel的用户是一个有效的用户或没有。 我宣布我所需的对象如下： Dim ObjHTTP As New XMLHTTP Dim xml As New MSXML2.DOMDocument 当我把这个文件发送给我的最终用户时，他们中的一些人得到一个错误，说XMLHTTP是未定义的。 使用XMLHTTP60和MSXML2.DOMDocument60适用于他们 有没有办法自动检测最终用户机器上可用的正确的方法？ 谢谢

如何VBAcachingxmlhttp请求返回值？

我想cachingxmlhttp请求的返回值，以免在调用数百个这样的请求时等待太久。 我曾尝试在Array / Collection中caching值，但是当Excelclosures并稍后重新打开时，所有caching都将丢失！ 更新 我在100个单元格中调用myDemo() 100次。 这是它的VBA代码 Function myDemo (text) url = "http://demo.namgivu.com/FIP/index.php?r=excelFunction/onSO00&text=" & text url = url & "&currentTime=" & Now 'Call service Set xmlHttp = CreateObject("MSXML2.xmlhttp") xmlHttp.Open "GET", url, False xmlHttp.Send result = (xmlHttp.responseText) myDemo = result End Function 这里是我的Excel文件 。 Excel打开时必须等很久…

使用xmlHttp，如何将getelementsbytagname（“A”）直接设置为无html文档的对象

使用下面的方法，即将所有myLink以它在网页中的方式放入我的excel单元格中 – result = ie.document.body.innerHTML Set html = CreateObject("htmlfile") html.body.innerHTML = result Set myLinks = html.getElementsByTagName("A") For Each myLink In myLinks Sheet1.Cells(i, "A").Value = myLink 因此，我必须编写一些有条件的replace语句来将一些myLink中的一些左侧字符replace为http://www. 但是，当我使用下面的方法，即带来每个myLink到我的Excel单元格与http://www. 。 我不必处理任何Replace语句 – Set myLinks = ie.document.getElementsByTagName("A") For Each myLink In myLinks Sheet1.Cells(i, "A").Value = myLink 现在xmlHttp快了很多，我想用它，但它也带来了myLink在这个方法的网页 – Set html = CreateObject("htmlfile") html.body.innerHTML = xmlHttp.ResponseText Set myLinks = […]

XMLHTTP POST没有足够的存储

我在VBA（Excel）中编写了一个函数来处理一个API请求。 对于小的（<150MB左右）请求，它工作得很好，但是对于大的请求（> 150 MB到300-400MB的返回数据），我得到： 错误：2147024882（8007000e）没有足够的存储空间来完成此操作。 以下是代码（删除不适用的部分）： Function SendHTTPRequest(sURL As String, Optional sGETorPOST As String = "POST", Optional sHeaders2DArray As Variant, Optional sGetBodyOrPostArgs As String) As msxml2.ServerXMLHTTP60 Dim aheaders() As Variant, i As Long If sGETorPOST <> "GET" And sGETorPOST <> "POST" Then Exit Function If IsMissing(sHeaders2DArray) Then ReDim aheaders(0 To 0, 0 To 1) aheaders(0, […]

无法从XML节点获取文本

这可能是一个简单的问题，但使用xmlhttp，我怎样才能得到这个XML中的令牌节点的文本？ 必须有比这更好的方法： XML.FirstChild.NextSibling.FirstChild.FirstChild.FirstChild.FirstChild.NextSibling.Text <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"> <soap:Body> <GetToken2Response xmlns="webservice"> <GetToken2Result> <ResponseStatus> <ResponseCd>Fail or Success or Warning</ResponseCd> <ResponseMsg>string</ResponseMsg> <Version>string</Version> </ResponseStatus> <Token>string</Token> <Expiration>double</Expiration> <Valid>boolean</Valid> </GetToken2Result> </GetToken2Response> </soap:Body> </soap:Envelope>

非常奇怪的行为createobject（“HTMLFILE”）！

我不明白为什么我会得到这种奇怪的行为！ 在创build和分配htmlfile对象时，函数会返回一个空白对象（“nothing”），并且当我逐行运行代码时，即使不按F8运行下一行，它也会自动运行。没有任何错误！ 任何想法可能会发生什么？ 奇怪行为开始的行： Set htmlObj = CreateObject("HTMLFILE") Public Function XMLHTTP_Request(Method As String, URL As String, Optional PostData As String, Optional StrCookie As String) As HTMLDocument Dim oXMLHTTP As Object, htmlObj as object Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") oXMLHTTP.Open Method, URL, False oXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" oXMLHTTP.setRequestHeader "Cookies", StrCookie On Error GoTo ErrorHandler oXMLHTTP.send (PostData) On Error […]

VBA XML V6.0如何使它等待页面加载？

我一直在拉我的头发，试图find这个答案，我似乎无法find任何有用的东西。 基本上，我是从一个网站，加载更多的项目，当你在网页上拉。 我希望我的代码在完成加载之后提取最终数据，但不知道如何使XML httprequest等待。 编辑： Sub pullsomesite() Dim httpRequest As XMLHTTP Dim DataObj As New MSForms.DataObject Set httpRequest = New XMLHTTP Dim URL As String URL = "somesite" With httpRequest .Open "GET", URL, True .setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT" .setRequestHeader "Content-Type", "application/x-www-form-urlencoded" Application.Wait Now + TimeValue("0:02:00") .send ' … after the .send […]

xmlhttp请求打开Excel（xlsx）使用javascript

嗨，是可以打开一个Excel文件，并使用xmlhttprequest或jQuery与JavaScript操作数据…这是一个Web应用程序。 谢谢。

在Excel中使用VBA在Google上search关键字并返回索引页面

这个问题与在Excel中使用VBA到Googlesearch中的IE非常相似， 并返回第一个结果的超链接 只有而不是第一个链接 – 有没有办法插入索引页面的数量？ 例：