很奇怪的一个网页内容，如何爬取到想要的数据，XML？

1234vba

duquancai 发表于 2018-8-5 14:29
按照1楼 提供附件  ，代码如下：

老师好。。。


我复制代码 。放进表格。。

执行 报错。。

这个是字体错误吗？

要如何解决。。我设置字体为  宋体 也不行呀。

1234vba

fxl447098457 发表于 2018-8-5 17:05

老师好
所有的 段的内容，比如   "issue"," 还要 倒序呢

1234vba

duquancai 发表于 2018-8-5 14:29
按照1楼 提供附件  ，代码如下：

老师好。。我把代码直接加 进去，
获取不到数据哦。。
什么原因呢？

Sub GetData1()
    Dim tt As String, winhttp, js As Object, s$, json$
    Set winhttp = CreateObject("Microsoft.XMLHTTP")
    With winhttp
        .Open "GET", "http://www.pm25.in/api/querys/pm2_5.json?city=%E5%8C%97%E4%BA%AC&token=5j1znBVAsnSf5xQyNQyq", False
        .Send
        s = .responsetext
        Debug.Print s
        Set js = CreateObject("MSScriptControl.ScriptControl")
        js.Language = "JavaScript": js.AddObject "g", Range("a1")
        json = "a=" & s & ";for(i=0;i<a.length;i++){g(i+1,1)=a.issue;b=a.code.split(',');for(j=0;j<b.length;j++)g(i+1,j+2)=b[j]};"
        js.eval json
    End With
End Sub

Kaohsing

1234vba 发表于 2018-8-8 08:18
老师好。。我把代码直接加 进去，
获取不到数据哦。。
什么原因呢？

这个网址http://www.pm25.in/api/querys/pm2_5.json?city=%E5%8C%97%E4%BA%AC&token=5j1znBVAsnSf5xQyNQyq返回的数据如下
[{"aqi":49,"area":"北京","pm2_5":0,"pm2_5_24h":26,"position_name":"万寿西宫","primary_pollutant":null,"quality":"优","station_code":"1001A","time_point":"2018-08-09T16:00:00Z"},
{"aqi":92,"area":"北京","pm2_5":21,"pm2_5_24h":14,"position_name":"定陵",
"primary_pollutant":"臭氧1小时","quality":"良","station_code":"1002A","time_point":"2018-08-09T16:00:00Z"},
{"aqi":87,"area":"北京","pm2_5":0,"pm2_5_24h":20,"position_name":"东四","primary_pollutant":"臭氧1小时","quality":"良","station_code":"1003A","time_point":"2018-08-09T16:00:00Z"},{"aqi":70,"area":"北京","pm2_5":19,"pm2_5_24h":26,"position_name":"天坛","primary_pollutant":"臭氧1小时","quality":"良","station_code":"1004A","time_point":"2018-08-09T16:00:00Z"},{"aqi":113,"area":"北京","pm2_5":24,"pm2_5_24h":26,"position_name":"农展馆","primary_pollutant":"臭氧1小时","quality":"轻度污染","station_code":"1005A","time_point":"2018-08-09T16:00:00Z"},{"aqi":93,"area":"北京","pm2_5":24,"pm2_5_24h":26,"position_name":"官园","primary_pollutant":"臭氧1小时","quality":"良
","station_code":"1006A","time_point":"2018-08-09T16:00:00Z"},{"aqi":78,"area":"北京","pm2_5":21,"pm2_5_24h":23,"position_name":"海淀区万柳","primary_pollutant":"臭氧1小时","quality":"良","station_code":"1007A","time_point":"2018-08-09T16:00:00Z"},{"aqi":130,"area":"北京","pm2_5":47,"pm2_5_24h":31,"position_name":"顺义新城","primary_pollutant":"臭氧1小时","quality":"轻度污染","station_code":"1008A","time_point":"2018-08-09T16:00:00Z"},{"aqi":45,"area":"北京","pm2_5":0,"pm2_5_24h":4,"position_name":"怀柔镇","primary_pollutant":null,"quality":"优","station_code":"1009A","time_point":"2018-08-09T16:00:00Z"},{"aqi":93,"area":"北京","pm2_5":17,"pm2_5_24h":17,"position_name":"昌平镇","primary_pollutant":"臭氧1小时","quality":"良","station_code":"1010A","time_point":"2018-08-09T16:00:00Z"},{"aqi":94,"area":"北京","pm2_5":0,"pm2_5_24h":13,"position_name":"奥体中心","primary_pollutant":"臭氧1小时","quality":"良","station_code":"1011A","time_point":"2018-08-09T16:00:00Z"},{"aqi":85,"area":"北京","pm2_5":22,"pm2_5_24h"
:21,"position_name":"古城","primary_pollutant":"臭氧1小时","quality":"良","station_code":"1012A","time_point":"2018-08-09T16:00:00Z"},{"aqi":90,"area":"北京","pm2_5":24,"pm2_5_24h":20,"position_name":null,"primary_pollutant":"臭氧1小时","quality":"良","station_code":null,"time_point":"2018-08-09T16:00:00Z"}]
这里面没有叫“code”的键，所以这一句通不过b=a.code.split(',');就出错

1234vba

duquancai 发表于 2018-8-5 14:29
按照1楼 提供附件  ，代码如下：

老师早上好。。。

老师的代码
现在换成 这个格式的。代码运行后报错、、

之前的是112个字符

现在的是119个字符，要如何改进代码呢，谢谢

{"ttery":"b10","issue":"1702084","code":"01,05,02,07,10,09,06,08,04,03","code1":null,"code2":null,"time":1536046966000}

1234vba

Kaohsing 发表于 2018-8-9 17:26
这个网址http://www.pm25.in/api/querys/pm2_5.json?city=%E5%8C%97%E4%BA%AC&token=5j1znBVAsnSf5xQyNQy ...

谢谢老师的解答、、

这段代码 对下面这段字符串处理 出错。。出错在哪里呢？

1. Sub main()
   
2. 
   
3.     Dim js As Object, s$, json$
   
4. 
   
5.    s = [n1] '假设数据在N1
   
6. 
   
7.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
8. 
   
9.     js.Language = "JavaScript": js.AddObject "g", Range("a1")
   
10. 
    
11.     json = "a=" & s & ";for(i=0;i<a.length;i++){g(i+1,1)=a[i].issue;b=a[i].code.split(',');for(j=0;j<b.length;j++)g(i+1,j+2)=b[j]};"
    
12. 
    
13.     js.eval json
    
14. 
    
15. End Sub
    
16. 
    

复制代码

[{"ttery":"b10","issue":"1702084","code":"01,05,02,07,10,09,06,08,04,03","code1":null,"code2":null,"time":1536046966000}]

Kaohsing

1234vba 发表于 2018-9-5 07:41
谢谢老师的解答、、

这段代码 对下面这段字符串处理 出错。。出错在哪里呢？

1. Sub main()
   
2. 
   
3.     Dim js As Object, s$, json$
   
4. 
   
5.     s = "[{""ttery"":""b10"",""issue"":""1702084"",""code"":""01,05,02,07,10,09,06,08,04,03"",""code1"":null,""code2"":null,""time"":1536046966000}]"
   
6. 
   
7.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
8. 
   
9.     js.Language = "JavaScript": js.AddObject "g", Range("a27")
   
10. 
    
11.     json = "a=" & s & ";for(i=0;i<a.length;i++){g(i+1,1)=a[i].issue;b=a[i].code.split(',');for(j=0;j<b.length;j++)g(i+1,j+2)=b[j]};"
    
12. 
    
13.    js.eval (json)
    
14. 
    
15. End Sub

复制代码

1234vba

Kaohsing 发表于 2018-9-5 10:05

老师晚上好。。代码似乎没改，代码ok的吗

1234vba

Kaohsing 发表于 2018-9-5 10:05

老师晚上好。。
再次打扰一下。。。

原先代码是对code字段的数据做分割处理
我的目的是。不做split处理。
issue段数据写在A列
code段数据写在B列 即可

1. b=a[i].code.split(',');

复制代码

我删除 后面的 split代码。。

直接改成

1. 
   
2. json = "a=" & ss & ";for(i=0;i<a.length;i++){g(i+1,1)=a[i].issue;b=a[i].code;for(j=0;j<b.length;j++)g(i+1,j+2)=b[j]};"
   

复制代码

代码 只能获得 issue段的。code段的数据 并没有获得。。

这个代码又要如何修改呢。？
谢谢

xyxcc177

解析不难，网址是什么？