我用vba编写了一个脚本,我可以用它解析来自特定站点的“公司名称”、“电话”、“传真”和“电子邮件”,但是如果我刮掉了“地址”、"Web“和”名称“,我就被卡住了。我在vba中使用responsetext和拆分方法编写了脚本。希望有人能给我看看解决办法。
以下是我尝试过的:
str = Split(http.responseText, " class=""contact-details block dark"">")
y = UBound(str)
For i = 1 To y
Cells(x, 1) = S
我想要一个VBA代码来转换XE货币转换器站点上的货币,并给出结果。我不知道如何从列表中选择货币。下面是我的代码:
Dim ie As InternetExplorer
Dim html As HTMLDocument
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate "http://www.xe.com/currencyconverter/"
Do While ie.readyState <> READYSTATE_COMPLETE
Application.StatusBar = "lo
我正在尝试整理以下链接"www.tutorialspoint.com/ VBA /index.htm“右侧窗格中给出的vba课程项目列表。 但由于某些错误,我无法抓取列表: Sub tutorailpointsscrap()
Dim ie As InternetExplorer
Set ie = New InternetExplorer
With ie
.navigate "https://www.tutorialspoint.com//vba/index.htm"
.Visible = True
我想在vba中制作一个递归的web爬虫。由于我对vba编程不太了解,所以我花了一段时间才了解到模式可能是怎样的。最后,我创造了一个。我创造的爬虫做得太棒了。它从洪流站点的第一页开始,然后跟踪站点的下一页链接,然后在提取名称时继续移动,直到所有链接都用完为止。任何有关这方面的投入,以使其更加强大,将是一个很大的帮助。提前谢谢。
以下是我所写的:
Sub yify(dynamic_link As String)
Application.ScreenUpdating = False
Const main_link As String = "https://yts.ag
为了改进重复的工作,我尝试使用VBA访问公司使用的网站。
所以,我用VBA编写了代码。我检查过它可以访问像谷歌,youtube这样的普通网站.但是,我不知道为什么它不能访问公司的网站.
VBA停止了这一行Set HTMLDoc = IE_ctrl.document
谢谢你的进阶。
我检查了一个不同的东西(VBA本地值,类型)之间的正常和公司网站。请检查以下两张图片。
Sub a()
Dim IE_ctrl As InternetExplorer
Dim HTMLDoc As HTMLDocument
Dim input_Data As IHTMLElement
Dim URL As Stri
我试图获得一些数据从谷歌地图与VBA提取到excel。由于我不是VBA专家,所以面临一些问题。在谷歌地图旁边,如果我们向下滚动,脚本中会有一些web结果链接。如果可能的话,我想提取那个链接。在这里,我尝试了一下,但没有得到我想要的结果 这是google地图url网页结果的屏幕截图 ? 这里还有一些我尝试过但没有成功的代码 Public Sub GmapData()
'On Error Resume Next
Set ie = CreateObject("InternetExplorer.Applica
我正在尝试编写VBA代码,从网站上拉出产品的价格。为此,我打开了VBA参考中的"Microsoft HTML对象库“和"Microsoft Internet控件”。然而,当我开始搜索附加价格的项目时,代码失败了。如果有人能为它提供解决方案,我将不胜感激。
下面是我想复制价格的样本网页的链接。
以下是我的初始代码:
Sub Update()
Dim IE As New InternetExplorer
IE.Visible = False
IE.navigate "http://www.chemistwarehouse.com.au/buy/36985/Reac
我正在填充一个web表单,其中有一个内置的预加载程序动画(它不影响浏览器状态),我试图让我的脚本等待它消失,然后继续填充字段。
目前,我正在使用以下代码:
Do
Set el = Nothing
On Error Resume Next
Set el = objIE.document.getElementsByClassName("preloader__loader")(0)
On Error GoTo 0
DoEvents
Sleep 2000
Loop While Not (el
我试图通过excel中的vba绘制一个web表,但是这个表没有填充,如果有人帮忙,我会很感激的。谢谢。下面是我的代码:
Dim strdate As String
Dim eddate As String
Dim obj As Object
Set objie = New InternetExplorer
objie.Visible = True
objie.navigate "https://www.khistocks.com/company-information/company-profile/ABOT.html"
Do While objie.Busy = True
我是新手在vba编码从网站拉取数据,所以一般情况下,我使用这个代码连接和检查项目,从网站拉取数据,但这个代码不能检查数据通过手表在vba与我的公司webapp。当我将监视添加到类中时,它没有显示任何内容,所以我应该怎么办。
Sub Connect_web()
Dim ie As InternetExplorer
Dim doc As HTMLdocument
Dim ele As IHTMLElement
Dim col As IHTMLElementCollection
Dim ele_tmp As IHTMLElement
Set ie
我加载一个互联网页面,并使用myusername和mypassword登录使用VBA。
我想用VBA在网页的输入字段中写一个搜索项。
因为输入字段中没有名称和ID,所以我没有成功。
这是我的代码:
Sub MyLogin()
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.navigate "https://www.example.com"
Do Until .readyS
经过一些非常友好的帮助,我现在有了一小段代码,可以使用Excel中的VBA模块导航到网站。它在单元格A2中挑选出一匹马的名字,我有一匹马,Roll.This的代码是: Dim objIE As InternetExplorer
Set objIE = New InternetExplorer
'make web page visible
objIE.Visible = True
'navigate objIE to this web page
objIE.navigate "https://www.britishhorser
我试图编写一个简短的VBA代码来单击网站上的一个按钮,首先按其类名搜索,然后再按id搜索:
Sub Autoclick[enter image description here][1]()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://stackoverflow.com/"
IE.Visible = True
While IE.Busy
DoEvents
Wend
IE.Document.getElementsByClass
我不熟悉html,但我想点击一个按钮,并从vba做这件事。我读了一篇关于如何在vba的HTML网页上搜索信息的教程,然后我尝试了一下我的案例,但它有点不同。
下面是html代码中有趣的部分:
我所做的是首先确定一个我可以轻松访问的部分。我认为具有唯一名称结果的表单是一个很好的开始。
然后在这个表单中,类名"resultRow“只出现一次,所以我也使用了它作为我的优势。我现在位于正确的表中,并且看到无论我单击的是什么元素,onlcick结果都是相同的。所以我选择随机选择一个项目(数字4)并点击它。
不幸的是,我做错了一些事情。
以下是我的代码
Sub my_code (ByVal fa
我是VBA的新手。我一直试图将"3.2500“值输入单元格B1。到目前为止,我得到了运行时错误1004和错误91 -object变量,或者有时没有设置块变量。是什么原因造成的?这是一本干净的工作簿。
Sub extract()
Dim myIE As Object
Dim myIEDoc As Object
Dim element As IHTMLElement
Set myIE = CreateObject("InternetExplorer.Application")
myIE.Visible = False
myIE.navigate "http
我想使用VBA从NASDAQ下载历史数据。我已经设法将"FromDate“更改为适当的范围,但我没有设法让代码按下"Search”按钮(因为它没有ID)来提取数据。请帮帮我。
MY VBA:
Sub OMX_data()
Dim URL As String
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate ("http://www.nasdaqomxnordic.com/indexes/historical_prices?Instrument
我对VBA非常陌生,我一直在尝试获取列"Impuesto“下面的值。
我的错误是438。我仍然不太明白如何引用网页的某一部分。
Sub extract()
Dim myIE As Object
Dim myIEDoc As Object
Dim element As IHTMLElement
Set myIE = CreateObject("InternetExplorer.Application")
myIE.Visible = False
myIE.navigate "https://zonasegura1.bn.com.pe/TipoCambio/
我有一个非常大的Excel电子表格,其中包括地址。我想写一段代码自动打开,将地址逐个粘贴到搜索框中,获得这个地址的最佳学校名称,然后将它们粘贴到Excel文件中。
我使用这段代码来粘贴网页中的一个地址,但是当它粘贴并按下搜索按钮时,它不会显示任何结果。
Sub SearchBot()
'dimension (declare or set aside memory for) our variables
Dim objIE As InternetExplorer
'special object variable representing the IE browser
Dim a
我试着学习VBA来解析网站信息。目前,我试图从一个网站分析赔率,但给我一个错误,我不知道我做错了什么。有人能帮我吗?
这是我的代码:
Public Sub GetOddsInfo()
Dim IE As New InternetExplorer, URL As String
Dim i As Long, ws As Worksheet
Dim headers()
Dim linkgame, linkbtts, linkover As String
Dim teams, oddHome, oddDraw, oddAway, oddBtts, oddNbtt
我想从中提取数据,以获得特定商品的最新价格。
我有一个excel电子表格,其内容如下:
|A | B
1 |Item |Price
2 |bfd/garden-structures/arches/premier-arches-pergola
和VBA脚本:
Dim ie As New InternetExplorer
Dim item As String
item = Sheet1.Range("A2").Value
Dim doc As HTMLDocument
ie.Visible = True
ie.navigate "http://www.buyshedsdi