Tag: Excel VB的

VBA来检查URL的状态

我已经创build了macros，我可以从任何网页获取每个url。 现在，我在列中有每个URL。 任何人都可以帮忙写macros来检查这个URL是否工作。 如果这个URL中的任何一个不工作，那么我应该在下一列的URL旁边错误地工作。 下面是我写的代码，但似乎这是行不通的： Sub CommandButton1_Click() Dim ie As Object Dim html As Object Dim j As Integer j = 1 Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True url = "www.mini.co.uk" ie.navigate url Do While ie.READYSTATE <> READYSTATE_COMPLETE Application.StatusBar = "Trying to go to website …" Loop Application.StatusBar = " " Set html = […]

VBA – Internet Explorer 11 – 从网页获取文本

我有一个网页： https : //www.brcdirectory.com/InternalSite/Site.aspx? BrcSiteCode =1832583 我想从这个页面中检索一些文本，从一个HTML <Span ID> 。 <span id="ctl00_ContentPlaceHolder1_FormView1_GridView1_ctl02_lb_ExpiryDate">Expiry Date : 07/12/2017</span> 我有IE 11.0.9600.18639 通过Excel，我使用下面的代码打开IE 11，导航到页面，并且想要尝试在<SPAN>中显示文本的消息框。 码： Option Explicit Sub GoToWebsiteTest() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim appIE As Object Dim objElement As Object Dim objCollection As Object Dim i As Long, LastRow As Long, sFolder As String Dim sURL As […]

使用VBA和Internet Explorer分析HTML

我正在尝试使用VBA代码来单击网站上的“Go”button。 这是源代码。 <div class="actions"> <a id="go" href="javascript:void(null);" title="Go"><img src="/images/button-go-smaller.png"></a> <a id="reset" href="javascript:void(null);" title="Reset All Fields"><img src="/images/button-reset_all.png"></a> </div> 这是我的VBA代码： For Each obj In objCollection If objCollection(i).ID = "go" Then Set objElement = obj Exit For End If Next obj objElement.Click 但是，在objElement.Click行，我得到一个错误91，这意味着“去”行动无法find。 为什么是这样，我怎样才能访问button？

从Internet Explorer下拉列表中select选项

我正在打开一个网页并填写一些字段。 我设法填写文本框，但我有麻烦从下拉列表中select检查/select单选button的选项。 这是引用下拉列表的HTML代码： 下拉列表的HTML代码 这是一个单选button的代码 ：单选button的HTML代码 这是我的代码到目前为止： Sub w() ' ' w Macro ' ' Keyboard Shortcut: Ctrl+w ' 'pick ups cell b2 value Dim cellvalue As String cellvalue = ActiveSheet.Cells(1, 2) Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer ''Sub Login_2_Website() Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL […]

导航到VBA中的页面后无法重置HTML文档

我正在使用VBA导航IE，并无法重置文档对象，以便可以导航多个页面。 我用这个问题的答案来帮助创build原始脚本，但却遇到了一个类似海报的问题。 不幸的是，列出的答案没有帮助或指导我解决scheme。 我正在使用下面的代码来拉动页面并导航。 Sub UpdatesalesNotes() Dim ie As Object, ieDoc As HTMLDocument Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True strHTML = ActiveSheet.Range("A31").Value ie.navigate strHTML 'wait for browser While ie.ReadyState <> READYSTATE_COMPLETE DoEvents Wend Set ieDoc = ie.Document Call ClickButton(ieDoc, "New Service Note") 'wait for browser While ie.ReadyState <> READYSTATE_COMPLETE DoEvents Wend ieDoc.getElementById("00Nj0000009FpF9").Value = "Placeholder […]

由于互联网中断，VBA随机停止执行循环。 互联网恢复时如何恢复？

我已经写了VBA代码来从雅虎财经提取数据。 大部分代码正在做它的工作，并提取我想要的。 然而，每当它循环通过不同的公司，整个代码就停止工作，它就会经常卡住。 我怀疑这可能是由于互联网连接在特定公司循环时暂时中断而发生的。 具体来说，我认为这是发生在我的代码的以下块： For i = 1 To 14 .navigate "http://finance.yahoo.com/q/hp?s=" & Arrays(i) & "+Historical+Prices" Do While .busy: DoEvents: Loop Do While .ReadyState <> 4: DoEvents: Loop here 互联网最有可能因为试图导航第i家公司（Arrays（i）） Do While .ReadyState <> 4: DoEvents: Loop.ReadyState <>4并导致代码无限循环在Do While .ReadyState <> 4: DoEvents: Loop.ReadyState <>4 。 出于某种原因，即使互联网切换回来，代码也不能正常工作，只是试图执行导航到这个ith数组。 为什么会这样？ 有没有办法纠正这一点？ 注意：如果我结束macros的执行并重新启动它，它完美的工作。 以下是供您参考的完整代码块。 Sub GetYahooFinanceTable() Dim […]