Tag: 互联网浏览器

由于互联网中断,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 […]

使用VBA操作IElogin和预订课程

我试图用VBA打开一个新的IE实例,进入一个网页,login,然后导航到一个页面,在那里我可以预订我的体育课,导航到正确的类,并按下“书”button。 我相当精通简单的VBA,我已经使用了一段时间来自动执行excel任务,但是我从来没有试图用IE来使用它,所以我对它的相当新颖。 我不太了解VBA如何与HTML集成,而我的HTML知识是相当基础的。 到目前为止,我已经设法创build的代码来打开IE,导航到正确的网页,并login我从那里变得复杂… 该网页有一系列的“块”,可以select为周体育课。 这些都是每天更新,所以代码将需要search正确的date,时间和类,然后按相应的书籍button。 在过去的几天里,我已经广泛地search了这个解决scheme,但是找不到类似于我正在寻找的东西。 我到目前为止的VBA如下。 这适用于我的要求的第一部分。 Sub Login_Test() ''This version successfully goes to puregym.com and logs into my account 'Outstanding'''''''''''''''''''''''''''''''''' 'Need to select class page 'Need to select correct date & class 'Need to book class '''''''''''''''''''''''''''''''''''''''''''''' ' open IE, navigate to the desired page and loop until fully loaded Set ie […]

VBA:在尝试自动从Excel中将file upload到Internet Exploer时遇到了上传框的问题

我有一个问题的麻烦,并想知道如果有人可以帮助,我已经search,但似乎找不到任何人已经成功完成这项任务。 我试图从Excel中使用vba上传一个xls文件到一个网站上。 我已经设法打开网站,并到达您点击“浏览…”select要上传的文件的阶段,但不断收到错误“块variables的对象variables未设置” 我一直在试图找出这两天没有成功。 任何人都可以指向正确的方向吗? 我使用的代码如下所示,因为html元素是有帮助的。 提前谢谢了 克莱尔 'input type =“file”name =“fileUpload”id =“fileUpload”style =“height:20px; width:450px;” Sub Upload() Dim IE As InternetExplorer Application.DisplayAlerts = False Set IE = New InternetExplorerMedium IE.Visible = 1 With IE .Navigate url Do While (IE.Busy Or IE.READYSTATE <> READYSTATE.READYSTATE_COMPLETE) DoEvents Loop ' Selects Create Report .Document.getElementById("ctl00_body_upload").Click .Document.getElementById("FileUpload").Click ' <<<This is where […]

总和innertextxt VBA IE

我得到了这几个数字,我想提出的总和,而不必总结起来之后 MsgBox ie.document.getElementsByClassName("post_click_or_post_view_revenue")(0).innertext MsgBox ie.document.getElementsByClassName("post_click_or_post_view_revenue")(1).innertext MsgBox ie.document.getElementsByClassName("post_click_or_post_view_revenue")(2).innertext MsgBox ie.document.getElementsByClassName("post_click_or_post_view_revenue")(3).innertext 我想做这样的事情,而不是 MsgBox Sum(ie.document.getElementsByClassName("post_click_or_post_view_revenue").innertext) 这可能吗?

PHP的Excel输出为IE提供空文件

我想用PHP生成一个excel文件。 这在Firefox中正常工作,但与IE浏览器我只是得到一个空的文件。 这就是我正在做的事情: header('Content-type: application/ms-excel'); header('Content-Disposition: inline; attachment; filename='.$filename); echo $data; 我已经尝试了各种标题设置,但没有成功。 我也试图输出内容作为文本文件,在这里相同的结果。 在IE中没有内容。 有任何想法吗? header("Cache-Control: no-stor,no-cache,must-revalidate"); header("Cache-Control: post-check=0,pre-check=0", false); header("Cache-control: private"); header("Content-Type: application/octet-stream"); header('Content-Disposition: inline; attachment; filename='.$filename); header("Content-Transfer-Encoding: binary"); header("Pragma: no-cache"); header("Expires: 0"); – header('Pragma: public'); header("Expires: Sat, 26 Jul 1997 05:00:00 GMT"); header('Last-Modified: '.gmdate('D, d MYH:i:s') . ' GMT'); header('Cache-Control: no-store, no-cache, must-revalidate'); […]

哪个.dll包含HTMLElement类?

我正在使用Excel中的VBA(Office 2010)浏览Internet Explorer中的网页。 我的问题是我不能声明一个HtmlElement的实例,例如 Dim myHtmlEl As HtmlElement 返回错误“未定义用户定义的types”。 之前我曾经见过这个问题,当时我想声明一个InternetExplorer对象的实例。 解决scheme是通过VBA编辑器中的工具>>参考… >> Microsoft Internet控件创build参考。 我的理解是, Microsoft Internet Controls是一个具有InternetExplorer类定义的.dll 。 因此,要创build一个HtmlElement对象的实例,我需要引用定义该类的.dll 。 MSDNbuild议该.dll是系统Windows窗体 。 我链接了,但类仍然是未定义的。 我怎么知道哪个.dll包含HtmlElement类?

点击IE表格中的一个button

我试图单击IE中的网页上的一个表中的button,button的来源显示: <input type="image" src="img/testimg.png" onclick="picture_return(this,'92b84574a336a090618f151b6fc821cf:5','http://testwebpage.com/in/834');" value="Test Web Button"> 这是一个在源文件中有多个<td>的大表的一部分,这是在另一个表中,然后在下面的类中: <div class="section_client_dnBox"> 我试图通过使用下面的VBA代码通过课堂上的一些项目: IE.Document.getElementsByClassName("section_client_dnBox")(0).Click 然而,没有运气,因为(0)没有按任何东西和更大的东西,即(1)给了我一个错误。 所以我现在的问题是基本上,是否有任何方式点击button使用一些简单的方法,例如重写它的表内的值(值=​​“testingWebbutton”)?

Excel VBA中的HTML页面标题

给定一个url,我怎样才能得到在Excel中的VBA的HTML页面的标题? 例如,假设我有三个url: http://url1.com/somepage.html http://url2.com/page.html http://url3.com/page.html 现在我需要在另一列中获得这些html页面的标题。 我该怎么做?

springAbstractExcelView和IE

我正在使用Spring的ContentNegotiatingViewResolver为了将数据导出到Excel文件。 这在Chrome和FireFox中是完美的,但是在IE浏览器中而不是下载文件浏览器显示乱码。 这是我的configuration片段: <bean class="org.springframework.web.servlet.view.ContentNegotiatingViewResolver" p:order="1"> <property name="mediaTypes"> <map> <entry key="xml" value="application/xml" /> <entry key="txt" value="text/plain" /> <entry key="xls" value="application/vnd.ms-excel" /> <entry key="bin" value="multipart/form-data" /> </map> </property> <property name="defaultViews"> <list> <bean class="org.springframework.web.servlet.view.xml.MarshallingView"> <property name="marshaller" ref="oxmMarshaller" /> <property name="modelKey" value="response" /> </bean> <bean name="excel" class="myclass.MyExcelViewResolver" /> </list> </property> </bean> 有任何想法吗?

如何使用VBA从Internet Explorer下载文件

我试图从Internet Explorer 11下载一个Excel工作簿,当我点击这个链接时,出现这个popup消息: 我试图使用sendkeys“%s”,它不起作用。 我不能使用代码从互联网上下载文件,而不使用IE浏览器,因为URL是我公司的内部网站点。 Sub Site() Dim IE As Object Set IE = CreateObject("InternetExplorer.application") With IE .Visible = True .Navigate "http://asint010/IntegradorProfit/Pages/Relatorios/FluxoSolicitacao.aspx" While .Busy Or .ReadyState <> 4 DoEvents Wend .document.All("ctl00_ContentPlaceHolder1_btnexportar").Click While .Busy Or .ReadyState <> 4 DoEvents Wend 'here I don't know what to do End With End Sub