🌞Shawn
lishg0902
言寡，体勤，心静
关注数: 31
粉丝数: 118
发帖数: 491
关注贴吧数: 9
分享VBA+Selenium网抓方法 使用VBA+Selenium可以很便利地在浏览器上进行操作, 以及抓取一些需要的信息. 先分享一个例子, 抓取VBA贴吧的首页所有标题, 以及相应的每个链接, 效果图如下.代码如下: Option Explicit '安装 Selenium 2.0.9 '配置当前版本的Chrome Driver '参照Tools->Reference->Selenium Type Library Public cd As Selenium.ChromeDriver Sub TiebaList_Selenium() Dim titles As Selenium.WebElements Dim title As Selenium.WebElement Dim url As String, row As Long url = "https://tieba.baidu.com/f?kw=vba&ie=utf-8" Set cd = New Selenium.ChromeDriver With cd .AddArgument "start-maximized" '窗口最大化 .Start .Get url '访问网址 .FindElementById("head").WaitDisplayed '等待head显示 Set titles = .FindElementsByXPath("//*[@id='thread_list']//div/div[2]/div[1]/div[1]/a") '抓取首页 row = 1 For Each title In titles ''Debug.Print title.Text Range("A" & row + 1) = title.Text Range("B" & row + 1).Hyperlinks.Add Range("B" & row + 1), title.Attribute("href") row = row + 1 Next title .Quit '退出 End With End Sub
开帖解答VBA的各类问题 一起研究，共同进步
ExcelVBA求助，根据指定内容整理数据 VBA菜鸟求助。 根据指定字段，进行数据整理。 详情如图，盼高手解答。 级数略低，尚不能上传附件。
1
下一页
