作者：绿色风
分类：
时间：2022-08-18
浏览：152
楼主
xmyjk |
Q:举例说明，下载
需从链接页面提取各个子页面的链接
A:- Option Explicit
- Sub chaxun()
- Dim xmlhttp1 As Object, xmlhttp2 As Object
- Dim i As Long, j As Long
- Dim tmp1() As String, tmp2() As String
- Dim getpage As String
- Set xmlhttp1 = CreateObject("Microsoft.XMLHTTP")
- xmlhttp1.Open "get", "http://data.book.163.com/book/home/009200010013/000BELPQ.html", False
- xmlhttp1.send ""
- tmp1() = Filter(Split(xmlhttp1.responsetext, "href="""), "/book/section/")
- For i = 1 To UBound(tmp1())
- tmp1(i) = "http://data.book.163.com" & Split(tmp1(i), """>")(0)
- Set xmlhttp2 = CreateObject("Microsoft.XMLHTTP")
- xmlhttp2.Open "get", tmp1(i), False
- xmlhttp2.send ""
- tmp2() = Split(StrConv(xmlhttp2.responsebody, vbUnicode), "<p style='text-indent: 2em'>")
- For j = 1 To UBound(tmp2)
- getpage = getpage & vbCrLf & " " & Split(tmp2(j), "</p>")(0)
- Next
- Dim lFileNum As Integer
- lFileNum = FreeFile
- Open ThisWorkbook.Path & Application.PathSeparator & "xiazai.txt" For Append As #lFileNum
- Print #lFileNum, getpage
- Close #lFileNum
- Set xmlhttp2 = Nothing
- getpage = ""
- Erase tmp2
- Next
- Set xmlhttp1 = Nothing
- Erase tmp1
- End Sub
 bookdw.rar
|
2楼
悠悠雨 |
小说呀，我喜欢
 |
3楼
xyf2210 |
小说，我喜欢，哈哈
 |
4楼
蓝空天末 |
灰常棒 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一