Tag: getelementbyid
GetElementByID从HTML到Excel失败
任何人都可以帮助我这个VBScript？ 尝试使用getelementbyID将值从IE拉到Excel，但脚本仅将[对象HTMLDivElement]传输到Excel。 Set objExplorer = CreateObject("InternetExplorer.Application") WebSite = "https://www.google.co.uk/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=abbott+stocks" Const READYSTATE_COMPLETE = 4 WScript.Sleep 1000 With objExplorer .Navigate2 WebSite .Left=5 .Top=5 .Height=1000 .Width=700 .AddressBar = 0 .Visible = 1 .ToolBar = 0 .StatusBar = 0 Do Until .ReadyState = READYSTATE_COMPLETE Loop End With Set xl = CreateObject("Excel.Application") xl.Visible = True Set wb = xl.Workbooks.Open("C:\Users\ukristense\Documents\CI\testauto.xlsx") Set […]
VBA Excel在HTMLObject中获取文本
我知道这对你们中的一些人来说非常简单。 但是我一直在深入互联网，我找不到答案。 我需要得到公司内部的名字 tbody tr td a eBay-tradera.com 和 td class="bS aR" 970,80 /td /tr /tbody <tbody id="matrix1_group0"> <tr class="oR" onmouseover="onMouseOver(this, false)" onmouseout="onMouseOut(this, false)" onclick="onClick(this, false)"> <td class="bS"> </td> <td> <a href="aProgramInfoApplyRead.action?programId=175&affiliateId=2014848" title="http://www.tradera.com/" target="_blank"> eBay-Tradera.com </a> </td> <td class="aR"> <a href="/pan/aProgramInfoApplyRead.action?programId=175&affiliateId=2014848" title="/pan/aProgramInfoApplyRead.action?programId=175&affiliateId=2014848">175</a></td> <td class="bS aR">0</td><td class="bS aR">0</td><td class="bS aR">187</td> <td class="aR">0,00%</td><td class="bS aR">124</td> <td class="aR">0,00%</td> <td […]
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？
我试图从雅虎财经页面拉一个非常具体的数字，但我陷入困境。 我试图从中提取这个信息的链接是： http://finance.yahoo.com/q/hp?s=AAPL+Historical+Prices 我有兴趣获得在该页面顶部附近列出的111.31号码以粗体显示。 我已经写了下面的代码来提取这个信息，但是每次运行它，它都会说“对象不支持这个属性或方法”。 我怀疑错误在于我使用getElementsByClass和getElementsById来提取数据。 Sub GetQuote() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = True .navigate "http://finance.yahoo.com/q/hp?s=AAPL+Historical+Prices" Do While .busy: DoEvents: Loop Do While .ReadyState <> 4: DoEvents: Loop With .document Application.Wait (Now + #12:00:05 AM#) Sheets("Sheet1").Range("A3") = .getElementsByClass("time_rtq_ticker").getElementsById("yfs_184_aapl").innerText End With End With Set IE = Nothing End Sub […]
Excel VBA为文本刮取HTML表格
好的， 我已经花了几个小时来search如何从桌子上抓文本，为了我的生活，我没有遇到一个方法，在我的情况下工作。 这里是我试图从中获取信息的HTML的一个示例 <table class="empDetailCard foldable unfolded"> <tr> <td colspan="4" class="title"> <span class="fold-control">full name</span> </td> </tr> <tr class="fold-row"> <td> <div class="badgePhoto reg"> <img class="photo " src="removed" /> </div> </td> <td> <span class="line"> <span class="section-title">Employee Info</span> </span> <div class="employeeInfo"> <div> <span class="line"> <span class="row-label">Login</span> mylogin</span> <span class="line"> <span class="row-label">Empl ID</span> 1234567</span> <span class="line"> <span class="row-label">Badge</span> 1234567</span> […]
如果元素存在，使用Excel VBA获取web元素，如果不存在则跳过
我在刷新网页方面比较陌生，但是我已经掌握了一些。 我用下面的命令成功地从网页获取数据： sht.Range("b" & RowCount).Value = .document.getElementById("PriceLabel").getElementsByTagName("span")(3).innerText sht.Range("c" & RowCount).Value = .document.getElementById("QuantityInput").Value 我的挑战是，不是我search的所有网页都有这些元素，所以脚本停止运行时错误424 – 对象所需。 我已经尝试了一个On Error GoTo命令，但是这只适用于第一个事件，然后停在第二个缺less元素的网页上。 该代码是： Next_sku: Do RowCount = RowCount + 1 SKU = sht.Range("a" & RowCount).Value With ie .Visible = False .navigate "http://www.staples.no/search?keywords=" & SKU Do While .Busy Or _ .readyState <> 4 DoEvents Loop sht.Range("b" & RowCount).Value = .document.getElementById("PriceLabel").getElementsByTagName("span")(3).innerText […]
Excel VBA脚本预填写在线表单使用IE浏览器？
我需要帮助。 我正在尝试编写一个VBA脚本，将A列中的值放在一个在线表单中的一个input元素，但没有ID，但名称（“OldUrl”）。 然后，VBA脚本将获取列B中的相邻单元格中的值，并将其放在名为（“NewUrl”）的input字段中的相同forms（“digiSHOP”）中。 窗体是在一个安全的服务器，但是我已经得到尽可能拉起窗口和select的forms。 我无法find一种方法来定位input字段，因为他们没有ID。 以下是我的代码，并感谢您的帮助。 Sub Redirect() Dim IE As Object Dim doc As Object Dim form As Object Dim OldURL As Object Dim NewURL As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = True .Navigate "https://…." Do Until .ReadyState = 4: DoEvents: Loop Set doc = IE.Document Set form = doc.forms("digiSHOP") Set […]
HTML到Excel +更改页面循环
错误说Object variable or With block variable are not set 。 但是，当我试图将doc定义为文档或word文档时，它不允许这样做。 提前致谢！！！ Sub HTMLtoExcel() Dim doc As Object Dim i As String i = 1 Do While i <= 1783 Set doc.getElementById("Pages").Value = CStr(i) With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http:/xxx.yyy" _ , Destination:=Range("$A$1")) .Name = _ "its_details_value_node.html?nsc=true&listId=www_s201_b9233&tsId=BBK01.ED0439" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting […]
在excel vba中获取html“id”标签
我正在研究一个UPS跟踪macros，我基本上使用的代码： UPS自动跟踪点击一个button 。 但是，我似乎无法提取我的操作代码后，我的喜好装运的状态。 以下是我所拥有的和我目前遇到的错误。 运行时错误“91”：对象variables或块variables未设置 码： Sub test() ' open IE, navigate to the website of interest and loop until fully loaded Set ie = CreateObject("InternetExplorer.Application") my_url = "http://wwwapps.ups.com/WebTracking/track?loc=en_US" With ie .Visible = False .navigate my_url .Top = 50 .Left = 530 .Height = 400 .Width = 400 Do Until Not ie.Busy And ie.readyState […]
Excel VBA按ID获取元素
我试图将股价的最后价格复制到Excel工作表中。 Internet Explorer将打开并导航到该网站，但最后一个价格未复制到我的工作表中。 我已经添加了Debug.Print element.innertext来查看是否有任何东西被复制，但没有出现在直接框中。 这是我迄今为止： Dim element As IHTMLElement Dim elements As IHTMLElementCollection Dim ie As New InternetExplorer Dim html As HTMLDocument my_page = "http://www.morningstar.com/stocks/XASX/COH/quote.html" With ie .Visible = TRUE .Navigate my_page Do While ie.readyState <> READYSTATE_COMPLETE Loop Set html = ie.document Set element = html.getElementById("last-price-value") Debug.Print element.innertext Sheets("Sheet 1").Range("A2").Value = element.innertext End With
