Tag: 互联网浏览器

VBA代码调出打开或保存选项的对话框，但我卡在那里: 首先在这里发表，所以对我很好。我正试图从网站上下载一个excel文件。该网站有一个button，可以按下来下载Excel文件。我看了代码，并能够想出一个URL，如果进入IE直接带我下载“打开/保存”对话框。然后，我在Excel中使用该url在VBA中，打开下载框要求打开或保存该文件。我想每次保存文件到相同的名称，因为我将有另一个工作簿查看数据并返回结果。我知道这个问题已经被问了一百万次，因为我已经search，但没有代码，我已经尝试将工作。这是我的代码到目前为止 Sub TESTING() 'Need to reference to Microsoft Internet Controls Dim URL As String 'URL = Worksheets("References & Resources").Range("URLMSL") URL = "http://cts/Tacs/OperationDrillExport/76" Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True IE.Navigate URL Do While IE.ReadyState <> 4 DoEvents Loop End Sub 该网站是一个内部网站，所以它不会从外面工作，但我会认为代码是相同的任何方式。

使用JavaScript将表导出到Excel文件: 我能够使用Active X控件使用JavaScript创buildXLS文件。对于IE我做了以下几点： var objExcel = new ActiveXObject("Excel.Application"); objExcel.visible = false; var objWorkbook = objExcel.Workbooks.Add; var objWorksheet = objWorkbook.Worksheets(1); objWorksheet.Paste; objExcel.visible = true; 但要使用ActiveX控件，我需要去Internet选项 – >安全 – >自定义级别 – >启用初始化和脚本的ActiveX控件没有标记为安全的脚本。启用后，只有我能够创buildXLS文件。有没有其他的方式来创buildIE-11的XLS文件，除了活动的X我试图使用以下 var vDiv = document.getElementById('dvData'); vDiv.innerHTML = vTable; var url='data:application/vnd.ms-excel,' + encodeURIComponent($('#dvData').html()) ; 但它不能在IE-11中工作。我需要使用纯JavaScript。提前致谢

用PHP生成的.xls文件将保存但不能从IE打开: 我正在使用PHPdynamic生成一个表，用户可以下载一个.xls文件。当使用IE时，点击链接后，popup“您要打开还是保存文件…”对话框。如果用户保存文件并打开它，则没有问题。但是，如果用户select“打开”，Excel启动，但它是空的。没有电子表格。一切工作正常在Chrome和FF。这是我正在使用的代码。 <?PHP // filename for download $filename = "filename" . date('M_j_Y') . ".xls"; //create the output $output = //<table> code goes here. //set the header to treat this as an excel file header("Content-Disposition: attachment; filename=\"$filename\""); header("Content-Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"); header("Expires: 0"); header("Cache-Control: must-revalidate, post-check=0, pre-check=0"); header("Cache-Control: private",false); echo $output; exit; ?> […]

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

点击下拉菜单中的子DIV: 我已经成功通过Internet Explorer中的Excel VBA启用下拉菜单，但是我无法设法单击第二个子DIV 。虽然我可以debug.print的下拉菜单的内容，我不能设法fireevent 。这是我正在处理的源代码，到目前为止我做了什么。 <div style="border-width: 1px; z-index: 1018; visibility: visible; height: 238px; width: 304px; left: 1566px; top: 144px;" role="presentation" id="x-auto-1048" class="x-combo-list x-ignore x-component x-border "><div tabindex="0" hidefocus="true" id="x-auto-318" class=" x-view x-combo-list-inner x-component x-unselectable" style="overflow-x: hidden; padding: 0px; border-width: 0px; height: 238px; width: 304px;" unselectable="on"> <div class="x-combo-list-item x-panel-header "> Actions</div><div class="x-combo-list-item ">Add Lead […]

Excel VBA从下载对话框打开文件: 在这里需要帮助，试图使用VBA与下载对话框进行交互。不幸的是无法发布的图像，因为我没有要求的声誉这样做。但它只是一个简单的对话框，只有3个选项。 1）打开2）另存为3）保存我想要做的是，而不是窗口/ Excel提示对话框，Excel VBA将直接打开它。任何人都知道？（SendKeys“{TAB}”，True / SendKeys“{ENTER}”，True），但没有发生任何事情。

自动化Internet Explorer：input一个没有“ID”的值: 我正在尝试使用excel VBA来自动化在我公司的Intranet网页上input的数据。我知道如何与网页的值进行交互的字段有像下面的HTML代码中的“ID” <input name="txtUserName" tabindex="1" id="txtUserName" type="text"> 有了这样的HTML代码，我会使用类似的东西 IE.Document.getElementbyId("txtUserName").Value = "UserName" 我面临的问题是与我试图互动的领域相关的代码是 <HTML><HEAD><META content="IE=5.0000" http-equiv="X-UA-Compatible"> <SCRIPT type=text/javascript> function ajusterFrames() { var iLargeurGauche = 217; var iLargeurDroite = 850; var iLargeurFenetre = window.innerWidth || document.documentElement.clientWidth || document.body.clientWidth; var iMarge = 0; var sCols = ""; if (iLargeurFenetre > (iLargeurGauche + iLargeurDroite)) { iMarge = (iLargeurFenetre […]

使用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？

如何parsingHTML，而无需在vba中创buildInternet Explorer的对象？: 我没有在任何工作的计算机上的Internet Explorer，因此创buildInternet Explorer的对象，并使用ie.navigateparsingHTML和search标签是不可能的。我的问题是，我怎样才能使用标签自动从框架源到我的电子表格不使用IE浏览器的某些数据？答案中的代码示例将非常有用:)谢谢