我对使用XMLHTTP和尝试使用Excel VBA从我们公司的网站上下载报告是完全陌生的。我似乎遇到的问题是,这个网站是由Siteminder保护的。我认为我需要在GET中使用XMLHTTP.Open,但不管怎样,我尝试得到的似乎只是Siteminder代码。因此,我首先尝试使用帖子将我的用户名和密码发送给Siteminder,如下所示:
Function PostXmlData(vUrl As String, UserName As String, Password As String, xmlText
As String
Dim XMLHttp As Object
Set XML
使用VBA编程的第一周。我正在创建一个excel插件,并将发出一些HTTP请求来获取json数据。我需要使它跨平台,但我真的很困惑,在不同的品种,VBA必须作出/接收http请求。他们的文档不清楚它将在哪个平台上工作。我只需要在64位Office & windows上进行测试,但这需要在32位和Mac上工作。我使用以下方法,它对我有效,但即使在googling之后,我也不知道它是否会在其他地方奏效:
Dim myURL As String: myURL = "https://blah.com"
Dim req As MSXML2.XMLHTTP60: Set req =
我目前正在尝试使用VBA中的XMLHTTP从下面详细介绍的网站url中检索一个json字符串。加载第一个url将创建一个会话,我将从HTML主体中检索该会话。使用从可见的会话ID和其他请求头调用第二个url将导致403错误。我尝试过多个标题组合,但没有效果。为了部署目的,需要一个VBA解决方案。如有任何意见或意见,将不胜感激。
Sub test()
Dim wbk_TB As Workbook
Dim var_array As Variant
Dim url As String
Dim data As Variant
Dim XMLHTTP As MSXML2.XMLHTTP
Dim hd
我有一个包含我想在google新闻中搜索的内容的单元格。我希望代码返回搜索结果的数量。目前,我在网站的其他地方找到了这段代码,并且不使用google新闻,但即使这样,我有时也会得到一个
运行时错误-2147024891 (80070005)
经过大约70次搜查,我再也跑不了了。
Sub HawkishSearch()
Dim url As String, lastRow As Long
Dim XMLHTTP As Object, html As Object
Dim start_time As Date
Dim end_time As Date
lastRow = Range(&
我将从HTML中获取元素的值。HTML代码在下面。
它可以显示在屏幕上。
Dim xmlhttp As Object
Dim url As String
Dim toTranslate As String
Dim htmldoc As HTMLDocument
toTranslate = TextBox1.Value
url = "http://dict.youdao.com/search?q=" & toTranslate & "&keyfrom=dict.index"
Set xmlhttp = CreateObject(
我有一个关于excel VBA HTTP请求和JavaScript的问题。我想通过"POST“在内部网站点上进行搜索,但是提交按钮似乎确实运行了一个JavaScript来重新加载站点,但我不知道怎么做。
Public Function XmlHttpTutorial()
Dim xmlhttp As New MSXML2.XMLHTTP60
Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")
Dim HTMLDoc As New HTMLDocument
Dim myurl As String
myurl =
喂!
因此,我的目标是获得youtube用户上传的三个最新视频,在本例中为“aosjeff.”。我知道我可以向youtube发送一个"get“请求,然后使用xml解析器解析那个XML文档(我不能使用php,我正在使用的网站建设网站不让我使用),我正在尝试使用这里的一些代码将"get”请求的结果存储在javascript中的字符串中,这样我就可以解析它们。但是每当我运行这段代码并调用"alert(txt)“时,只返回字符串"object document”,而不返回xml数据。代码如下:
function getVideoHTML()
{
if (wind
我正在尝试用xmlhttp和VBA刮一个网站。
Url有一个散列(#)符号,被VBA误解了.
这与这里解释的问题相同:
守则如下:
Sub webscraping()
Dim x As String
Dim req As MSXML2.XMLHTTP60
Dim doc As HTMLDocument
x = "https://search.gleif.org/#/search/"
Set req = New MSXML2.XMLHTTP60
With req
.Open &
我在vba中创建了一个非常小的脚本来解析几乎所有网站的标题。我用很少的网站检查过它,它提供了准确的结果。我使用了对响应文本的拆分功能来实现这个结果。网站应放置在A栏中,结果将显示在每个网站旁边的B栏中。我试着让它完美无缺。
Sub Title_Data()
Dim http As New MSXML2.XMLHTTP60
For Each cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).row)
With http
.Open "GET", cel.Value, Fals
我找到了台词
Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
Set html = CreateObject("htmlfile")
并希望在我的代码中使用它们。只有我喜欢智能感知和选项显式,所以我很快将第一个修改为
'needs tools>references>microsoft xml, v5.0
Dim xmlHttp As MSXML2.xmlHttp: Set xmlHttp = New MSXML2.xmlHttp
我的问题是:我如何对第二行做同样的事情?我需要引用什么才能编写
dim
我正在设计一个在线调查,其中一个主要功能是将问题存储在外部的XML文件中,每次都会加载随机问题。虽然我的代码在Firefox中运行良好,但当我尝试在Internet Explorer 8中加载页面时,我得到了“访问被拒绝”错误。我已经将问题隔离到以下代码部分:
//Import the XML File
if (window.XMLHttpRequest)
{// code for IE7+, Firefox, Chrome, Opera, Safari
xmlhttp=new XMLHttpRequest();
}
else
{// code for IE6, IE5*/
x
我是在Excel中使用VBA的新手。我想查询一些数据以填充到我的excel工作表(表)中。
然而,在我在网上找到的许多教程(代码示例)中,我错过了so库/依赖项。下面是一个代码示例,其中我在运行Dim req As New MSXML2.XMLHTTP60错误时设置了Can't find project or library。
Sub BasicGETRequest()
Dim req As New MSXML2.XMLHTTP60
Dim reqURL As String
reqURL = "https://www.wiseowl.co.u
我正在尝试使用下面的代码来对这个网站上的一些城市进行地理编码: mygeoposition.com,但是似乎有一些问题,下面代码中的变量'Lat‘总是返回空的:
Sub Code()
Dim IE As MSXML2.XMLHTTP60
Set IE = New MSXML2.XMLHTTP60
IE.Open "GET", "http://mygeoposition.com/?q=Chuo-ku, Osaka", False
IE.send
While IE.ReadyState <> 4
DoEvents
Wend
Dim
我的目标是搜索一些数据,并将结果返回到excel表中。我正在使用服务newsapi.org并使用VBA来完成此操作。 我正在向newsapi.org发送一个XMLHttpRequest,并成功地接收到一个(JSON)响应,我可以将它保存到我的桌面上的一个文件中。但是,我无法将响应导入到excel中,因为我收到运行时错误13:类型不匹配。 奇怪的是,当我将源代码更改为不同的JSON文件时,它可以正常工作。例如http://jsonplaceholder.typicode.com/users 因此,我假设这个问题与我收到的JSON响应的类型有关。 Public Sub xmlhttptutori
这是我为使用AJAX从数据库中获取数据而编写的脚本。
<!DOCTYPE html>
<html>
<head>
<script type="text/javascript">
function loadJSON()
{
var data_file = "http://www.idesigns.com.pk/comingsoon/test/connect.php";
var xmlhttp;
if (window.XMLHttpRequest)
{// code for IE7+, Fire
我试图从一个网站获得一个Xmlhttp.response,特别是这部分代码:
var apiUrl = "http://somesite/someapicall/correctapiKey";
var xmlHttp = new XMLHttpRequest();
xmlHttp.open("POST", apiUrl, false);
xmlHttp.setRequestHeader("Content-Type", "application/json");
var data {
"username": u
我已经了解了一些主题,并能够使用以下代码在vb6中调用服务:
Dim sUrl As String
Dim response As String
Dim xmlHttp
Private Sub Form_Load()
sUrl = "http://abc.com/services/abc.svc"
Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlHttp.Open "POST", sUrl, False
xmlHttp.setRequestHeader "Content-
新来这里的社区。我已经完成了相当多的编程,但我对VBA完全陌生。以前从未使用过它,我的任务是从Jira API中将JSON数据提取到Excel电子表格中。我一直得到错误“运行时错误'13':类型错配”,我不知道为什么。我知道错误与传入不正确的类型有关,但我尝试将Json变量更改为字符串,但没有成功。有人有什么想法吗?谢谢!
顺便说一下,这只是一个用于测试API功能的试用Jira实例。
Sub test()
'Authenticate the user
Dim response As String
With CreateObject("Microsoft.XM
我试图从一个网站中提取数据,并使用VBA解析它。但是,在执行代码时,代码工作得非常好,但是,当运行它时会出现“对象所需”的运行时错误。以下是代码:
Function AuthToken()
Dim XMLHTTP
Dim result As String
Dim csrf As String
Dim token As Object
Dim objHTML As Object
Set objHTML = CreateObject("htmlfile")
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
Wit
我打算从下面的网站(网站是马来语)中提取信息,其中包含有关投标中标的信息。
我的代码如下所示,但是“tenders”对象看起来并不会导致我无法继续下一步。希望你能分享一些关于我做错了什么的指导。
Worksheets("Data").Cells.Clear
Dim xhr As Object
Dim html As New HTMLDocument
Dim tenders As Object, item As Object, item2 As Object
Dim tender As Object
Dim i As Integer
Set xhr = CreateObjec
我在excel 2010中通过vba使用xmlhttp。我需要以编程方式向网站上的购物车添加一个项目。到目前为止,我有下面的代码,它使用了POST方法
我认为我的代码有一些问题,但不确定如何修复-它没有显示提交的表单所在的位置。下面是该url:
我输入的url作为处理表单的url是" form“的"action=”部分中的url。
我如何验证发布的表单?
Sub post_frm()
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
' Indicate t
我试图在VBA环境(Excel)上使用MSXML2.XMLHTTP对象从网站中删除数据,但我不知道如何解决这个问题!该网站如下:
你们可以使用下列测试数据填写表格:
普拉卡: oon5868
雷纳万: 1021783231
我想检索像"chassi“这样的数据,上面的数据是”9BD374121F5068077“。
我在解析html文档时没有问题,困难的实际上是获取信息作为响应!代码如下:
Sub SearchVehicle()
Dim strPlaca As String
Dim strRenavam As String
strPlaca = &
我的目标是剥离所有的谷歌搜索结果从第1页的VBA到Excel。到目前为止,我设法剥离了第一个结果。head、link和date存储在单元格4、5、6中。我现在必须为其他li创建一个循环,但我不能直接执行。另外,我认为存储日期的函数的编码也不是很理想。有谁知道答案吗?
Sub XMLHTTP()
Dim url As String, lastRow As Long
Dim XMLHTTP As Object, html As Object, objResultDiv As Object, objH3 As Object, link As Object, Objdatum As Object,
我有大约12,000行数据,我需要网站。这个VBA代码可以正常工作大约800,然后停止。现在,由于这个错误,我无法让它再次运行。我想不出怎么让它重新运转起来。
运行时错误'91‘对象变量或块变量未设置
Sub XMLHTTP()
Dim url As String, lastRow As Long
Dim XMLHTTP As Object, html As Object, objResultDiv As Object, objH3 As Object, link As Object
Dim start_time As Date
Dim end
我制作了这个方便的VBA函数,它使用MSXML2.serverXMLHTTP对象返回给定URL的HTTP状态。此函数将同步执行,其余代码将冻结,直到请求被解析为止。如何将其转换为异步调用?
电流工作功能:
Function page_http_status(url) As String
Dim XMLHTTP As Object
Set XMLHTTP = CreateObject("MSXML2.serverXMLHTTP")
XMLHTTP.Open "GET", url, Fals
我刚开始为VBA开发代码,我正在处理从Excel文档中运行的函数,目的是将文件上传到sharepoint以传递用户凭据,当我在SysCmd上编译它时,我会出错(Sub或函数未定义),请注意……提前谢谢。
该函数是从Excel触发的,
Public Sub CopyToSharePoint()
On Error GoTo err_Copy
Dim xmlhttp
Dim sharepointUrl
Dim sharepointFileName
Dim tsIn
Dim sBody
Dim LobjXML As Object
Dim UserName As String
Dim pw
我在使用VBA从网站获取数据时遇到了问题...此方法会生成错误,因为html对象不支持getelementbyclassname。我可以知道有没有其他方法可以获得我想要的数据?
Option Explicit
Public Sub getlist()
[a:b].ClearContents 'clear all contents
Dim strurl As String
strurl = "https://www.bloomberg.com/quote/HSB22A2:LX"
Dim html As Object: Set html =
我使用对象发送请求到webservice;使用该对象,我可以通过异步方法加快数据加载速度,并避免锁定Excel屏幕(没有响应)。但是,当webservice响应很长一段时间,超出ServerXMLHTTP60超时设置时,请求函数是静默的,我无法捕获超时错误。在,@os明知建议使用xmlhttp status = 408来捕获超时错误,但它对我不起作用。
我准备了一个测试文件,你可以下载。通过按Atl + F8打开VBA源代码,您将看到我从复制的类模块CXMLHTTPHandler。
If m_xmlHttp.readyState = 4 Then
If m_xmlHtt
我正在尝试使用下面的vba代码从另一个网站获取数据,但我不知道如何标识"With htm.getelementbyid(“comps”)语句中括号内的字符串。
如果有人能在这件事上帮助我,我将非常感激。
提前谢谢你。
Sub GetData()
Dim x As Long, y As Long
Dim htm As Object
Set htm = CreateObject("htmlFile")
With CreateObject("msxml2.xmlhttp")
.Open "GET
我想刮谷歌搜索结果右边的数据使用VBA。我能够抓取结果,但不是我需要的确切结果。下面是屏幕截图,我用红色标记了我需要刮掉的东西。
我在VBA中尝试了下面的代码,但总是有运行时错误。如何解析到每个部分并获取span标记中的值。
VBA:
Set html = CreateObject("htmlfile")
html.body.innerHTML = XMLHTTP.ResponseText
Set objResultDiv = html.getElementById("rhs_block")
Set objH3 = objResultDiv.getEl
我通过restfulwebservice发送Json作为来自Javascript的post请求,但是在Java文件中,断点从未中断,Java文件是post类型,它消耗了application/json
HTML:
var url = "http://localhost:8080/RestfulInEMS/user/admin";
empJson = {Username:x[1],IdentityNo:x[2]};
var xmlhttp = new XMLHttpRequest();
xmlhttp.open(&