Excel 不懂html也来学网抓（xmlhttp/winhttp fiddler）-ExcelVBA程序开发-ExcelHome技术论坛 - 手机版

学网抓对vba的要求：
1、了解对象及对象属性方法的基本概念；
2、熟练使用循环、判断及vba数组；
3、掌握一种以上提取文本的方法，可以在各种有规律的文本里提取所需数据；
4、会调试代码，会用立即窗口、本地窗口。（很重要，请务必学会）
5、有录制宏的经验。

可以这样说，只要你具备上述vba知识，再对网抓有点兴趣，有点耐心，那你就能学会网抓。

我本人开始用xmlhttp和fiddler的时候，对html和javascript是一窍不通的，对get、post也不懂，全是依样画葫芦。画成功后，有了兴趣，才慢慢去寻找它的原理和相关知识去学习。我想我这样的学习方法或许可以给一些像我一样的小白一个借鉴。但愿没有误导新人才好。

学习html强力推荐此网站：http://www.w3school.com.cn/ ,绝对权威

==================================================
如果发觉楼主有写错的地方，或是用错术语，或是概念模糊，或是运行出错、运行效果与楼主不同，或是有看不懂、不理解的地方，请大家及时提出来。
希望在大家的帮助和建议下完善本帖，让不会网抓的朋友由此贴学会写一些基础的网抓代码，同时感受到网抓的乐趣。
谢谢大家！

补充内容 (2014-11-5 19:37):
交流QQ群：310731499

分享到新浪微博

推荐wcymiss
2014-10-25 10:43

本帖最后由 wcymiss 于 2014-10-27 13:07 编辑

处理table
table数据处理，除了之前的两种通用方法外，还有以下几种方法：

1、html法
将table数据写入htmldocument对象，然后循环取出表格的各个元素。
优点：可以利用htmldocument对象整理表格。
缺点：需要学习html相关知识。
以17楼作业二为例：

Sub Main()
Dim strText As String
Dim arrData(1 To 1000, 1 To 3)
Dim i As Long, j As Long
Dim TR As Object, TD As Object
With CreateObject('MSXML2.XMLHTTP')
.Open 'POST', 'http://www.pinble.com/Template/WebService1.asmx/Present3DList', False
.setRequestHeader 'Content-Type', 'application/json'
.Send '{pageindex:'1',lottory:'TC7XCData_jiangS',pl3:'',name:'江苏七星彩',isgp: '0'}'
strText = Split(JSEval(.responsetext), '<script')(0) '本例的script运行会提示错误，所以去除这部分script代码
End With
With CreateObject('htmlfile')
.write strText
i = 0
For Each TR In .all.tags('table')(2).Rows
i = i + 1
j = 0
For Each TD In TR.Cells
j = j + 1
arrData(i, j) = TD.innerText
Next
Next
End With
Set TR = Nothing
Set TD = Nothing
Cells.Clear
Range('C:C').NumberFormat = '@' '设置文本格式以显示数字前面的0
Range('a1').Resize(i, 3).Value = arrData
End Sub
Function JSEval(s As String) As String
With CreateObject('MSScriptControl.ScriptControl')
.Language = 'javascript'
JSEval = .Eval(s)
End With
End Function

2、QueryTable法：
这个是excel自带的网抓利器。个人觉得它最大的优势就是处理table很方便。
优点：处理table方便，代码简短。
缺点：会产生定义名称。多页循环时每页都会产生行字段名称，需要后续处理删除。
仍以作业一的第1题为例：

Sub Main()
Cells.Delete
With ActiveSheet.QueryTables.Add('url;http://data.bank.hexun.com/lccp/jrxp.aspx', Range('a1'))
.WebFormatting = xlWebFormattingNone '不包含格式
.WebSelectionType = xlSpecifiedTables '指定table模式
.WebTables = '2' '第2张table
.Refresh False
End With
End Sub

代码相当简短。

3、复制粘贴法：
table部分的文字可以直接复制到单元格内，且保留数据原格式。
优点：只需取出table部分，不需分析数据内部结构。代码编写简便。
缺点：有时格式反而是累赘。

Sub Main()
Dim strText As String
With CreateObject('MSXML2.XMLHTTP')
.Open 'GET', 'http://data.bank.hexun.com/lccp/jrxp.aspx', False
.Send
strText = .responsetext
End With
strText = '<table' & Split(Split(strText, '<table')(2), '</table>')(0) & '</table>'
CopyToClipbox strText
Cells.Clear
Range('a1').Select
ActiveSheet.Paste
End Sub
Sub CopyToClipbox(strText As String)
'文本拷贝到剪贴板
With CreateObject('new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}')
.SetText strText
.PutInClipboard
End With
End Sub

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。