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

1234vba

附件下载：
0805.rar (6.5 KB, 下载次数: 10)

2018-8-5 10:51 上传

点击文件名下载附件

手动打开网页，
然后看源码，内容是这样子的

[{"ttery":"min","issue":"20130801-3391","code":"8,4,5,2,9","code1":"297734529","code2":null,"time":1013395466000},{"ttery":"min","issue":"20130801-3390","code":"7,8,2,1,2","code1":"298058212","code2":null,"time":1013395406000},{"ttery":"min","issue":"20130801-3389","code":"5,9,1,2,9","code1":"298329129","code2":null,"time":1013395346000},{"ttery":"min","issue":"20130801-3388","code":"3,8,7,3,3","code1":"298588733","code2":null,"time":1013395286000},{"ttery":"min","issue":"20130801-3387","code":"0,8,5,2,7","code1":"298818527","code2":null,"time":1013395226000}】

没有其他内容，连 HTML的 标签都没有。

（已把内容放到单元格n1，能处理n1的内容 即可）

要如何写代码，抽取想要的数据，得到如下结果：

如图：


即，只要这两列数据




要如何写VBA代码呢。

请各位老师帮忙
························
补充：找到一个类似的网址（这个站点每小时有访问次数的限制）

ht删除tp://ww中文w.pm25.in/api/querys/pm ... j1znBVAsnSf5xQyNQyq

源码也是这样子的： 带 [内容]

······························

huang1314wei

附件中给的网址打不开

1234vba

huang1314wei 发表于 2018-8-5 08:12
附件中给的网址打不开

老师好。。。

那直接 对 我贴上来的内容 处理即可

huang1314wei

1234vba 发表于 2018-8-5 08:20
老师好。。。

那直接 对 我贴上来的内容 处理即可

你贴上的数据是JSON数据，论坛搜索一下JSON数据解析有很多相关教程的，不会JSON的，完全用split嵌套也能提取到想要的内容只不过麻烦一点而以

1234vba

huang1314wei 发表于 2018-8-5 08:23
你贴上的数据是JSON数据，论坛搜索一下JSON数据解析有很多相关教程的，不会JSON的，完全用split嵌套也能 ...

好的。。。
老师
那我自己也尝试一下。。。
谢谢

1234vba

aa = "[{"lottery":"min","issue":"20130804-3391","code":"8,4,5,2,9","code1":"297734529","code2":null,"time":1533395466000},{"lottery":"min","issue":"20130804-3390","code":"7,8,2,1,2","code1":"298058212","code2":null,"time":1533395406000},{"lottery":"min","issue":"20130804-3389","code":"5,9,1,2,9","code1":"298329129","code2":null,"time":1533395346000},{"lottery":"min","issue":"20130804-3388","code":"3,8,7,3,3","code1":"298588733","code2":null,"time":1533395286000},{"lottery":"min","issue":"20130804-3387","code":"0,8,5,2,7","code1":"298818527","code2":null,"time":1533395226000}]"
   

定义一个aa 的值 也报错？

---------------------------
Microsoft Visual Basic
---------------------------
编译错误:

语法错误
---------------------------
确定   帮助   
---------------------------

Kaohsing

1234vba 发表于 2018-8-5 08:26
好的。。。
老师
那我自己也尝试一下。。。

如果是这吗简单的json嵌套，数据又不多，用两步split即可ok。如果正则熟悉，就用正则。其他参看http://club.excelhome.net/thread-1376856-1-1.html

Kaohsing

1234vba 发表于 2018-8-5 08:45
aa = "[{"lottery":"min","issue":"20130804-3391","code":"8,4,5,2,9","code1":"297734529","code2":null, ...

字符串中的双引号，要双份的

1234vba

这个网址有类似的，

http://www.pm25.in/api/querys/pm ... j1znBVAsnSf5xQyNQyq

源码 带 [内容]

1234vba

Kaohsing 发表于 2018-8-5 08:49
字符串中的双引号，要双份的

老师好   提示 标示太长