Tag: web scraping

VBA Web Scrape（getelementsbyclassname）

我正在试图抓取下列链接的右侧窗格给出的VBA课程列表“www.tutorialspoint.com/vba/index.htm” 但是由于一些错误，我无法清除这个列表： Sub tutorailpointsscrap() Dim ie As InternetExplorer Set ie = New InternetExplorer With ie .navigate "https://www.tutorialspoint.com//vba/index.htm" .Visible = True Do While ie.readyState <> READYSTATE_COMPLETE DoEvents Loop End With Dim html As HTMLDocument Set html = ie.document Dim ele As IHTMLElement Dim lists As IHTMLElementCollection Dim row As Long Set ele = html.getElementsByClassName("nav nav-list primary […]

Excel亚马逊卖家Web Scraper问题

我一直在试图让这个代码工作效率的工作stream程，但我似乎无法使其正常工作。 步骤：1.login到亚马逊卖家 使用列A中的订单号码，并将其放在search框中进行search search“Estimated Delivery：”的元素innerText，并将信息刮到与订单号相邻的列B中 移至下一个订单编号并重复处理，直至订单编号栏为空。 网页代码（我试图获得的是突出显示的）： Option Explicit Dim HTMLDoc As HTMLDocument Dim MyBrowser As InternetExplorer Sub MyAmazonSellereEDD() Dim MyHTML_Element As IHTMLElement Dim MyURL As String Dim oSignInLink As HTMLLinkElement Dim oInputEmail As HTMLInputElement Dim oInputPassword As HTMLInputElement Dim oInputSignInButton As HTMLInputButtonElement 'InputSearchOrder will be the destination for order numbers taken from the workbook […]

在Excel中导入CSV NBA统计信息

所以经过很长一段时间的努力，我find了一种方法，从逗号分隔值的nba.com获取数据 这是结果http://stats.nba.com/stats/leaguedashplayerstats?DateFrom=&DateTo=&GameScope=&GameSegment=&LastNGames=15&LeagueID=00&Location=&MeasureType=Advanced&Month=0&OpponentTeamID=0&Outcome=&PaceAdjust=N&PerMode=Totals&Period=0&PlayerExperience=&PlayerPosition= ＆PlusMinus = N＆排名= N＆季节= 2015-16＆SeasonSegment =＆SeasonType =普通+季＆StarterBench =＆VsConference =＆VsDivision = 我怎么把它变成一个很好的CSV或Excel文件？ 或者甚至更好，如果可能的话，我怎么能自动查询这个数据，如Web查询表通过Excel Web查询？

Excel VBA忽略错误

我想从网站souq获取数据。 我用来获取数据的代码是： des = Trim(Doc.getElementById("description-full").innerText) 但有时候只能在网站上提供简短的描述而不是完整的描述，也就是说 des = Trim(Doc.getElementById("description-short").innerText) 只有当“完整描述”不可用时，我才需要“简短”的产品描述

运行时错误“424”：与webscrape所需的对象

我试图从VBA的网站上刮掉37.59％： – <span id="dgCompShare_Label23_5">37.59%</span> 我设法导航到网站，并进行各种select。 以下是我的相关VBA代码。 Dim appIE As Object Dim f As Object Dim ws As Worksheet Dim wb As Workbook Set wb = Application.Workbooks("Macro2") Set ws = wb.Worksheets("Sheet1") Set appIE = CreateObject("internetexplorer.application") With appIE .Navigate "https://website.com/" .Visible = True Do While appIE.Busy DoEvents Loop Set f = appIE.document.getElementbyid("dgCompShare_Label23_5") If Not f Is Nothing […]

如何使用vba从img获取alt值

我正试图从这个页面获取价格表 为此，我有以下代码： 一切正常，只有最后一列的img alt标签没有显示在。 这段代码完全没问题，只有最后一列的类没有被提取。 Sub TableExample() Dim IE As Object Dim doc As Object Dim strURL As String If Range("B2").Value <> "NA" Then strURL = "http://www.idealo.co.uk/compare/351072/canon-500d-77mm-close-up-lens.html" Set IE = CreateObject("InternetExplorer.Application") With IE '.Visible = True .navigate strURL Do Until .readyState = 4: DoEvents: Loop Do While .Busy: DoEvents: Loop Set doc = IE.document GetAllTables […]

从excel中提取数据用于VBA抓取中的input循环

我是VBA的一名完全新手，我认为我的头脑已经过时了，但是研究是必要的。 我遵循了一个伟大的在线教程系列 ，很遗憾，我没有帮助我解决一个大问题：数据input。 我的目标是从谷歌专利刮取专利数据。 为此，Google专利网站的专利号码是唯一标识的。 所以我想达到的是以下几点： 从excel的列表中提取专利号码 使用该号码访问特定的网页 提取申请和专利发表年份，以及专利号（如支票） 全部保存在一张Excel表格中 现在，我可以让2,3和4工作，但是这个循环允许我从excel中提取专利号码，并将其放入我缺less的代码中。 这是当前的代码： Private Sub CommandButton4_Click() Dim obMF As Object Dim patent As String Dim grant_date As String Dim app_date As String Dim patent_number As String patent_number = insert.Text ' insert.Text refers to a textbox in my interface Call gotopat(patent_number, patent, app_date, grant_date) found.Text = patent […]

Excel Web扫描

我遇到了networking报废Excel问题。 我想从这个网站的数据：charitynavigator.org 我正在这个链接列表上进行testing运行： http : //www.charitynavigator.org/index.cfm?bay= search.results& cgid=7&cuid=30 我通过第一个链接（The Aims Project）logging了一个macros。 然后，我添加了一个在YouTubevideo中使用的“循环”（？）。 video制作者解释了代码的逻辑，所以循环似乎是有道理的，并适用于我的问题。 但是，抓取第一页后，程序无法进入下一个网页。 这是我的代码 Sub adds() 'For i = 1 to 5 For x = 1 To 5 Worksheets("IntlHum").Select Worksheets("IntlHum").Activate mystr = "URL;http://www.charitynavigator.org/index.cfm?bay=search.summary&orgid=3803" mystr = Cells(x, 1) Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = x With ActiveSheet.QueryTables.Add(Connection:= _ mystr, _ Destination:=Range("$A$1")) '.CommandType = 0 .Name = "index.cfm?bay=search.summary&orgid=3803_1" .FieldNames = […]

用Excel下载表格

我想下载这张关于Libor费率的表格： http://online.wsj.com/mdc/public/page/2_3020-libor.html （特定的，其中约USD） 通过使用数据/从网站导入，如果我select一次表，我按导入它不会出现表，但是如果我导入整个页面 有没有办法，使用VBA可能，我可以在哪里获得该表？

Excel Web Scraping – ul列表项上的fireEvent

提前感谢您提供任何帮助。 我正在尝试激活与Excel VBA的链接来更改仪表板呈现的数据的视图。 我已经设法执行login和导航过程，并相信在这一步之后，抓取元素将会顺利运行。 我不相信我的目标是正确的，或者没有正确地构buildVBA序列。 我试图在下面的HTML中触发“顾问视图”： <div style="width:100%; clear:both"> <ul class="tab_menu clearfix" style="padding-top:5px;"> <li id="site_ti" class="table_tab_item"> <a href="#" onclick="update_table_tab('site'); return false;">By Site</a> </li> <li id="director_ti" class="table_tab_item"> <a href="#" onclick="update_table_tab('director'); return false;">By Director</a> </li> <li id="team_lead_ti" class="table_tab_item"> <a href="#" onclick="update_table_tab('team_lead'); return false;">By Team Manager</a> </li> <li id="consultant_ti" class="table_tab_item"> <a href="#" onclick="update_table_tab('consultant'); return false;">By Consultant</a> </li> </ul> […]