Tag: 互联网浏览器

IE11框架通知栏保存button: 在使用MS Excel 2010和IE11的64位系统上，我使用此代码从网站自动执行下载过程： hWnd = FindWindowEx(IE.hWnd, 0, "Frame Notification Bar", vbNullString) If hWnd Then hWnd = FindWindowEx(hWnd, 0&, "Button", "Save") End If If hWnd Then SetForegroundWindow (hWnd) Sleep 600 SendMessage hWnd, BM_CLICK, 0, 0 End If 一切正常，直到框架通知栏出现。我得到这个窗口的HWND，但不能得到“保存”button的HWND，所以我可以发送点击它。

从Internet Explorer中导出HTML数据以实现卓越？: 所以我试图导出HTML数据到Excel使用Internet Explorer（见这个小提琴）。它似乎没有工作，因为据我所知，由于安全原因，IE阻止了下载。有一个更好的方法吗？

VBA来操纵IE浏览器：正确使用SendKeys不能等待: 你好，StackOverflow社区，我有一个关于使用VBA操纵IE的问题。代码是关于在网站的字段中写文本。在字段中写入的唯一方法似乎是通过SendKeys（一切都失败了）。这个问题是，我必须改变之间的格式（你可以看到用“点击”命令使其为粗体）： Application.SendKeys "Here is the first text", True IEApp.document.forms(0).elements(1).Click Application.SendKeys "Here is the second text", True 令人遗憾的是，代码无法按计划运行：尽pipe我添加了“True”以确保它等待执行第二个命令，但它开始在第一个文本中间的某个位置写入粗体。所以我有这个想法，等待使用 Application.Wait (Now + TimeValue("0:00:01")) 但它失去了应用程序的重点，我无法发送我填写的表格。我的下一个想法是通过在不使用最后一个命令的情况下计算一些内容来延迟它： c = 1000000 For i = 1 To 100 c = c / 7 Next i 这导致写出第一个文本的一部分，然后格式改变，下一个文本从中断第一个文本开始。有人有一个想法？

导航到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 […]

Excel VBA – 从网页中提取数据: 我试图通过自动化网页浏览器从价格低廉的亚马逊页面中提取卖家信息。我试图运行下面的代码，但是我得到的错误是：对象variables或未设置块variables。有人可以指导我哪里错了。 Option Explicit Sub RunNewModule() Dim ie As InternetExplorer Dim html As HTMLDocument Set ie = CreateObject("InternetExplorer.Application") ie.Visible = False ie.Navigate "http://rads.stackoverflow.com/amzn/click/B00SVA81Z2" Dim priceData As Variant Dim sellerdata As Variant Dim item As Variant Dim cntr As Integer priceData = html.getElementsByClassName("olpOfferPrice").getElementsByTagName("span")(0).innerText cntr = 1 For Each item In priceData Range("B" & cntr) […]

Excel Internet Explorer自动导致IE环境崩溃: 我已经成功地自动化了一个VBA Excelmacros来遍历一个循环，然后点击一系列的URL来触发一个服务器端脚本 – 这只需要完成： myIE.Navigate ("http://someURL.php?VARIABLE=" & var_string) var_string在循环中被赋值。在此之前，我已经清除了caching，Cookie和历史logging： Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess # 我已经尝试了许多＃包括8,2,16等，看看这些是否有效果（和＃的组合）。我遇到的问题是，尽pipe整个脚本SOMETIMES都起作用，但是如果我要再次运行该脚本，则导航到该URL的行将无法调用URL，即使该域/ URL是完全有效且function正常的。任何其他的URL我手动input到IE窗口工作得很好 – 只是不是我在循环内呼叫。 IE正在locking我暂时离开该域名。如果我从上次运行数小时后回到脚本，它通常工作。这个域又是function性的，脚本很好 – 我用另外一台机器来validation它。就好像我正在设置一些环境并打破VBA内的Internet Explorer，即使脚本非常简单。我已经尝试过CreateObject() ， GetObject以及InternetExplorerMedium for myIE对象。

如何从网页中提取文本？: 我有一个填充专利号码的专栏表格。我需要提取每个相应专利的标题，并将其放置在专利号旁边的单元格中。所以，代码应该执行以下操作：访问espacenet.com并打开需要标题的专利号码。取得标题。将其放置在所需单元格的Excel表单中。这是第一个专利号完美工作的代码，但之后立即出现错误。错误说：“运行时错误'-2147417848（80010108）'：自动化错误被调用的对象已从其客户端断开连接。 “ 代码： Sub tryextraction() Dim ie As New InternetExplorer Dim num1 As Integer Dim num0 As Integer Dim sdd As String Dim doc As HTMLDocument num1 = ActiveSheet.UsedRange.Rows.Count 'ie.Visible = True For num0 = 2 To num1 ie.navigate "http://worldwide.espacenet.com/searchResults?compact=false&PN=" & Range("A" & num0).Value & "&ST=advanced&locale=en_EP&DB=EPODOC" Do […]

表要优于onclick: 我工作在IE9，我有以下代码下载一个Excel表格作为Excel电子表格： <a id="toExcel" onclick="window.open('data:application/vnd.ms-excel,' + document.getElementById('resultsTable').outerHTML.replace(/ /g, '%20'));e.preventDefault();" href="javascript:void(0);">Excel</a> 这适用于其他浏览器，如chrome，但不适用于IE9。它只是打开一个新的选项卡与url栏中的代码。我如何得到这个工作在IE9？我已经尝试把onclick事件放在另一个元素，比如它没有工作的button。用数据表的库似乎是添加了很多其他的东西到表中，我只想要这个function。赏金脚注：必须在IE9上工作。请不要build议https://datatables.net 。由于内部原因，我们不能使用这个build议。我很高兴从我已经尝试过的东西（请参阅前面的代码片断），只要它工作必须下载为xlsx，并且必须在Excel 2010中正确打开。该项目使用Sharepoint 2013和自定义js / jquery webpart。我们已经dynamic地生成了一个html表格，需要能够像上面那样导出到excel。谢谢你的帮助

VBA HTML不能在所有的计算机上运行: 所以我有这个代码我正在为我的deptarment去到一个网站input数据，点击运行并下载CSV文件到工作表。它在我的个人电脑上工作得很好，在其他部门使用的电脑上也能正常工作。我们都使用相同版本的Windows，Excel和IE。当我有其他部门的人运行macros，它打开网站，但从来没有input数据到字段，尽pipe网站是完全相同的编码，当我login。 Sub testmetric() Dim appIE As Object Dim Obj As Object On Error Resume Next Sheets("Audit").Select Selection.AutoFilter Sheets("Audit").Cells.Clear Application.ScreenUpdating = False Application.ScreenUpdating = True Set appIE = CreateObject("InternetExplorer.Application") sURL = "http://cctools/rportal/main.php?p=agentavaya" ' Instructes the macro to open IE and navigate to sURL. With appIE .Navigate sURL .Visible = True Application.Wait Now + […]

types不匹配错误13将值从Javascript复制到Excel工作表时: 我试图编写一个vba脚本来打开一个网站，导航到一个特定的logging，采取协议号码的值，并将其作为variables存储，然后将variables值粘贴到工作表中。目前我有以下几点，除了粘贴到excel之外，它完成了所有必需的步骤。我也尝试在插入到excel行之前插入“msgbox AGR”来检查值，并popup正确的值。在代码的最后一行，我收到“错误不匹配”对话框。任何帮助是极大的赞赏。 Sub ReturnAgrNumber() Dim IE As Object Set IE = CreateObject("internetexplorer.application") Dim AGR As Variant IE.Visible = True IE.navigate "http://*************************************.aspx" While IE.busy DoEvents Wend IE.Document.getElementByID("txtUsername").Value = "*****" IE.Document.getElementByID("txtPassword").Value = "*****" While IE.busy DoEvents Wend IE.Document.all("btnLogin").Click While IE.busy DoEvents Wend IE.Document.getElementByID("ctl00$GotoControl$txtJumpToRecord_Header").Value = "A213010" While IE.busy DoEvents Wend IE.Document.getElementByID("ctl00$GotoControl$ddJumpToRecord_Header").selectedIndex = 3 IE.Document.getElementByID("ctl00$GotoControl$ddJumpToRecord_Header").FireEvent […]