ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 1234vba

[求助] 很奇怪的一个网页内容,如何爬取到想要的数据,XML?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-8-5 14:09 来自手机 | 显示全部楼层
1234vba 发表于 2018-8-5 14:04
老师好。。我装了个 python2.7  
还装了 需要的 模块。
执行后 能得到 你的链接的 效果了。

用JS解析json的同时安照你的格式输出就行了。

TA的精华主题

TA的得分主题

发表于 2018-8-5 14:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
1234vba 发表于 2018-8-5 14:04
老师好。。我装了个 python2.7  
还装了 需要的 模块。
执行后 能得到 你的链接的 效果了。

按照1楼 提供附件  ,代码如下:
  1. Sub main()
  2.     Dim js As Object, s$, json$
  3.     s = [n1] '假设数据在N1
  4.     Set js = CreateObject("MSScriptControl.ScriptControl")
  5.     js.Language = "JavaScript": js.AddObject "g", Range("a1")
  6.     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]};"
  7.     js.eval json
  8. End Sub
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-8-5 14:57 来自手机 | 显示全部楼层
<?php

/*$get=file_get_contents("http://www.pm25.in/api/querys/pm2_5.json?city=珠海&token=5j1znBVAsnSf5xQyNQyq");
print_r($get);
file_put_contents("json.txt",$get);*/

$get=file_get_contents("json.txt");

$json=json_decode($get);
//print_r($json);
$out="";
echo "<textarea style=\"width:100%;height:600px;\">";
for($i=0;$i<sizeof($json);$i++){
$code=str_replace(",","\t",$json[$i]->code);
$out.=($json[$i]->issue."\t".$code."\r\n");
}
echo $out;

echo "</textarea>";

?>
这个php网页的,需要复制粘贴到excel

TA的精华主题

TA的得分主题

发表于 2018-8-5 17:05 | 显示全部楼层
1234vba 发表于 2018-8-5 14:04
老师好。。我装了个 python2.7  
还装了 需要的 模块。
执行后 能得到 你的链接的 效果了。
  1. import pandas as pd
  2. strtext='[{"ttery":"min","issue":"20130801-3391","code":"8,4,5,2,9","code1":"297734529","code2":null,"time":1013395466000},\
  3. {"ttery":"min","issue":"20130801-3390","code":"7,8,2,1,2","code1":"298058212","code2":null,"time":1013395406000},\
  4. {"ttery":"min","issue":"20130801-3389","code":"5,9,1,2,9","code1":"298329129","code2":null,"time":1013395346000},\
  5. {"ttery":"min","issue":"20130801-3388","code":"3,8,7,3,3","code1":"298588733","code2":null,"time":1013395286000},\
  6. {"ttery":"min","issue":"20130801-3387","code":"0,8,5,2,7","code1":"298818527","code2":null,"time":1013395226000}]'

  7. df=pd.read_json(strtext,orient='records')
  8. df1=df['code'].str.split(',',expand=True)
  9. df1.columns=['code.%d'%(i+1) for i in range(5)]
  10. df2=pd.concat([df,df1],axis=1)
  11. df2.to_excel('pandas处理json.xlsx',index=False,columns=
  12. ["ttery","issue","code.1","code.2","code.3","code.4","code.5","code1","code2","time"])
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-5 22:02 来自手机 | 显示全部楼层
duquancai 发表于 2018-8-5 14:29
按照1楼 提供附件  ,代码如下:

谢谢老师的回复。。

现在在外面无法测试代码效果

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-5 22:03 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
zpy2 发表于 2018-8-5 14:57
这个php网页的,需要复制粘贴到excel

谢谢老师,只是我更加不懂php

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-5 22:04 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
fxl447098457 发表于 2018-8-5 17:05

再次感谢老师的解答。

明天回去才能测试效果了

TA的精华主题

TA的得分主题

发表于 2018-8-6 09:45 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-6 19:19 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

老师好
那 另外一组的 正则呢?

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-6 19:24 | 显示全部楼层

再次感谢老师。

测试过了。。能分别输出了。

·····
我好好研究一下python
·····
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-13 15:37 , Processed in 0.041024 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表