网页抓取分享

onlycxb

exceltovba 发表于 2015-9-19 00:31

网页有改版，新的代码如下：

1. Sub 天气2()
   
2.     Dim js, dy1, dy2, t$
   
3.        With CreateObject("WinHttp.WinHttpRequest.5.1")
   
4.         .Open "GET", "http://d1.weather.com.cn/dingzhi/101281801.html?_=" & Rnd(), False
   
5.         .SetRequestHeader "Referer", "http://www.weather.com.cn/weather1d/101281801.shtml"
   
6.         .send
   
7.         t = .ResponseText
   
8.         Debug.Print t
   
9.     End With
   
10.     Set js = CreateObject("MSScriptControl.ScriptControl")
    
11.     With js
    
12.         .Language = "javascript"
    
13.         .AddCode (t)
    
14. 
    
15.         Set dy2 = .Eval("cityDZ101281801.weatherinfo")
    
16.         MsgBox dy2.cityname & Chr(10) & "最低气温：" & dy2.tempn & Chr(10) & "最高气温：" & dy2.temp & Chr(10) & "风力：" & dy2.ws
    
17.     End With
    
18. End Sub
    

复制代码

pangz

敬仰并留一个小爪爪，mark{:soso_e100:}

liucqa

广告太露骨，另外从编程的原则上，尽量少用第三方脚本代码，早晚面临兼容性问题

mstzl3322

好东西要收藏

jpj123

老师您好!最近在学习网抓 ，看了您的代码受益匪浅，但是也有一些不理解的代码，还请老师给讲下，先谢谢了!
1、js.addcode ("dy= " & .responsetext)  ‘这句为什么要加：dy= ？
2、 .responsetext 为什么不用转码就可以写入js ?
3、什么时候要用js = CreateObject("scriptcontrol")才能得出数据？
基础知识差，不知道我表达清楚没？麻烦老师空了给讲一下!再次谢谢!!

w_cun

onlycxb 发表于 2015-9-19 10:26
网页有改版，新的代码如下：

您好，我有个VBA问题发帖至今没有网友答复，您能帮忙看看吗？谢谢！
http://club.excelhome.net/thread-1236637-1-1.html

onlycxb

jpj123 发表于 2015-10-25 15:00
老师您好!最近在学习网抓 ，看了您的代码受益匪浅，但是也有一些不理解的代码，还请老师给讲下，先谢谢了!
...

你提的问题是一个问题，均是json相关知识，你可百度一下学习，我一句两句也说不清啊。
.responsetext,返回的就是js数据，此时就要利用js来读取数据最方便，dy是定义一个js数据对象名，这个可以随意起，因为我的Q名是“冬雨”，所以我习惯用这两个字母来代替。

onlycxb

w_cun 发表于 2015-10-25 16:06
您好，我有个VBA问题发帖至今没有网友答复，您能帮忙看看吗？谢谢！
http://club.excelhome.net/thread- ...

你的问题我看了，并不是网抓问题。是纯VBA分类统计问题，涉及内容较多，等一等看是否有大量时间的人会帮你完成吧。

jpj123

onlycxb 发表于 2015-10-25 19:19
你提的问题是一个问题，均是json相关知识，你可百度一下学习，我一句两句也说不清啊。
.responsetext,返 ...

谢谢老师，下午在学习JSON，不知老师有这方面教材吗？谢谢分享一下!

onlycxb

jpj123 发表于 2015-10-25 19:30
谢谢老师，下午在学习JSON，不知老师有这方面教材吗？谢谢分享一下!

一切均在百度http://www.w3cschool.cn/js_reference.html