VBA网页取数据的若干问题总结

new4w

十、webbrowser方法升级版---http方法

关于直接从目标网址获取信息的知识，有个大神已经写得很完善了，本人也从中学到了很多，在此写个链接目录，供朋友们参考;

第一课：用XMLHTTP获取数据并用Adodb.Stream转换编码提取信息
http://club.excelhome.net/thread-893760-1-1.html

这里主要讲解了如何找到目标网址，并通过什么方法将网页代码中的信息提取出来,抓包知识等，内容比较多，一些特别的内容后面课程中有说明


第二课：用WinHTTP提交Post，viewstate获取和URLEncode编码方法
http://club.excelhome.net/thread-894527-1-1.html
主要讲解post方法得到的网页代码相关问题还有url编码的知识

第三课-获取网络图片四种方法,如何判断WebBrowser控件导航结束
http://club.excelhome.net/thread-896608-1-1.html

第四课-验证码图片处理欣赏及使用tessdata-OCR进行训练和识别
http://club.excelhome.net/thread-897117-1-1.html


第五课-如何伪造Cookie及处理Referer防盗链
http://club.excelhome.net/thread-899268-1-1.html

【高级篇】第一课-使用XMLHTTP异步获取网络文件的方法
http://club.excelhome.net/thread-902266-1-1.html

【高级篇】第二课-使用VBA解析JSON格式的网页
http://club.excelhome.net/thread-939881-1-1.html

李姨

{:soso_e100:}我基础还没学好，不过还是谢谢！

jinsha2002

做过记号{:soso_e181:}

leoparddi

收藏学习，，，，，，

jeanwa

很好，谢谢分享。

鄂龙蒙

学习资料，收藏了。谢谢！

zh_ping0

待学习，谢谢！

tchru

大师，求教：http://quote.eastmoney.com/center/list.html#285002_4这个网页的数据如何导入到EXCLE中，如果能帮我写出代码，万分感谢！

billzhaopa

不错，感谢，学习。

vivianleung

想请教一下：我用WEB取数，以下代码在总数量不多的时候运行还算正常，一但超过40以上就会卡死，出现以下错误代码：运行时错误-2147417848 80010108  方法Refresh作用于对象Querytable时失效，请问这是什么原因造成的呀？
Option Explicit

Sub NTPS²éѯ()

Dim intnum As Integer
Dim i, m, p, q As Integer
Dim strdaima As String
Dim strhaoma As String
Application.ScreenUpdating = False    '¹Ø±ÕÆÁĻˢÐÂ

intnum = Application.WorksheetFunction.CountA([A:A]) - 1
For i = 1 To intnum
Cells(2, 2).Value = "ÕýÔÚ²éѯµÚ" & i & "ÕÅ"
Application.ScreenUpdating = False
strdaima = Cells(i + 1, 1).Value

Sheet2.Cells.ClearContents

With Sheet2.QueryTables.Add(Connection:= _
        "URL;http://npts2.apis.dhl.com:6010/npts/ShipmentDataFetchServlet?action=14&querycriteria=QUERY_BY_AWB&duplicatedCheckpoints=yes&queryData=" & strdaima, _
        Destination:=Sheet2.Range("$A$1"))
        .Name = "µÚ" & i & "ÕÅ"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "1,2,3,4,5,6,7,8,9,10,11,12"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With