Tag: getelementsbytagname

Excel VBA getElementsByTagName – 运行时错误 – 424

我正在使用下列引用:Visual Basic for Applications,Microsoft Excel 16.0对象库,OLE自动化,Microsoft Office 16.0对象库,Microsoft Internet控件。 我已经单独列出了我遇到这个错误的地方。 我试过使用innerText和textContent没有任何成功。 我也尝试了下面这个方法: http : //automatetheweb.net/vba-getelementsbytagname-method/没有任何成功,因为我遇到了运行时错误70。 我试图getElementsByClassName.getElementsByTagName没有任何成功。 我已经尝试在Microsoft社区的答案张贴这个问题,但我一直在使用该网站在过去一般很less成功。 Sub ZipCodeRetrieve() Dim ZipCodeRange As Range Dim PopDensity As IHTMLElementCollection Dim PopChange As IHTMLElementCollection Dim IE As Object Dim HTMLdoc As HTMLDocument 'Creates ie instance With ThisWorkbook.Sheets("ZipCodes") Set IE = New InternetExplorer IE.Navigate "http://mcdc.missouri.edu/websas/caps10c.html" IE.Visible = True Set […]

你可以通过VBA获取元素(GetElementBySrc)

在VBA中,是否可以有一个GetElementBySrc命令? 我的macros正在input数据到网页文本框,然后点击search。 我有一个循环的function,直到Internet Explorer处于就绪状态,但Internet Explorer在search完成/结果页加载之前处于就绪状态。 在search页面上出现一个图像“processing.gif”,等待结果显示。 我想我可能会有更多的运气,如果我可以写一个“If … Then”命令,将等待,直到图像不再在search页面上。 我试图find的标签会说 <img alt="search" src"images/processing.gif" /> 额外的思考 我在想这样的事情 Do If IE.Document.GetElementsByTagName("img").Attributes("src").Value = "images/processing.gif" Is Nothing Then Exit Do Else DoEvents End If Loop

Excel VB – getelementsbytagname – 返回运行时错误'438'

我是一名高尔夫爱好者和爱好程序员。 我试图写VB代码,如果传递一个特定的值(会员号码),将从网站抓住障碍。 我使用了一段我发现的代码,看起来对于他们的特定应用程序来说工作得很好,但我需要使用的网站似乎稍微复杂一点。 网页结构的摘录如下所示: <div id="exactHandicap"> <h3>GA Handicap</h3> <div id="handicapType"> (Men's) </div> <br> <span> <span id="ContentPage_lblExactHandicap">26.9</span></span> <span id="AnchoredPanel"> </span> </div> 我试图简单地抓住26.9的价值 我一直在寻找几天,如何正确引用getelementsbytagname或getelementbyId,但每个返回一个错误,最新的错误'438' 我是一个HTML新手,这个项目已经明确指出,但我相信这个社区有人有答案。 我的代码(从在线教程中借用)是: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = Range("GolfLinkNumber").Row And _ Target.Column = Range("GolfLinkNumber").Column Then Dim IE As New InternetExplorer IE.Visible = True IE.navigate "http://handicap.golflink.com.au/handicaphistory.asp?framed=1&golflink_No=" & Range("GolfLinkNumber").Value Do DoEvents Loop […]

Excel VBA查找网页图像并将其导入到excel中

目前,我正在尝试search一个打开的网页上的一些PNG图像,并将其导入到我的Excel工作簿的选项卡中的不同单元格中。 我现有的macros浏览一个网页,指定什么图片将显示,有多less。 我正在试图写一个macros,在这一点上search打开的网页,并将图像导入excel。 每次程序运行时,图像的数量都是不可知的。 但是每个图像都在下面的html代码中: img src="/files/exercises/31a_3 – trunk stability rotation kneex flexed.still002.194×146.png" title="Step 2" 而文件名称将会改变。 我正在寻找标题=“第2步”的所有图像 并将所有这些图像导入到excel中。 目前,我可以通过以下代码成功findurl: max = 100 For i = 0 To max For Each Elem In ie.Document.getElementsByTagName("img") If ie.Document.getElementsByTagName("img").Item(i).getAttribute("title") = "Step 2" Then Worksheets("Sheet4").Range("A1") = "http://functionalmovement.com" & ie.Document.getElementsByTagName("img").Item(i).getAttribute("src") Exit For Exit For End If Next Next End Sub 问题: […]

循环刮,直到数字VBA Excel Getelementby

我在工作中抓取这个页面,这是在login后,但我会尽我所能地解释情况 我有一个页面,我想要得到的数字出现后,随机时间已经过去了(取决于我们的服务器,计算机等的统计)它不是刮到IE.readystat <> 4,但数字仍然不总是出现,直到稍晚一点 Sent = ie.document.getElementsByTagName("span")(25).innertext Sheet4.Range("D" & i).Value = Sent 有三件事我回来是: 1运行时间错误:91 2文本“正在加载…” 3 12,403(我正在寻找的号码) 我想知道是否有人知道我是否能循环抓取,直到我真的得到一个数字,然后继续下一个任务? 没有停止在“运行时错误:91”(只要得到excel忽略该消息。