ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 620|回复: 1

[分享] 调用网页接口示例

[复制链接]

TA的精华主题

TA的得分主题

发表于 2022-6-15 23:34 | 显示全部楼层 |阅读模式
DataClient.part1.rar (2 MB, 下载次数: 12) DataClient.part2.rar (2 MB, 下载次数: 13) DataClient.part3.rar (2 MB, 下载次数: 13) DataClient.part4.rar (1.41 MB, 下载次数: 12)

无标题111.jpg
通过 WebGet(celltext("url"))获取指定接口(网站地址)返回值
WebGet 是通过Get方式请求数据
celltext("url") 获取单元格ID为[URL]的单元格的文本
var json=JsonParse(text); 这一步是将获取到的文档值转为JSON对象

var data=json(json,"data");
var count=JsonArrayCount(data);//获取JSON数组无素的数量


var cel=cell("currencyType"); //获取单元格,当起始单元格用
for index=0;index<count;index=index+1;  //根据数据元素数循环 for与endfor成对出现
        var obj=json(data,index);  //获取数组的第一个对象
        var value=json(obj,"currencyType");//获取对象属性为currencyType的值
        cel=celldown(cel); //获取单元格的下面的单元格,相对定位,避免了添加列,行的情况
        celltext(cel,value);//将值附值给单元格
        value=json(obj,"currencyCHName");
        var cel2=cellRight(cel);//获取单元格的右单元格
        celltext(cel2,value);
        value=json(obj,"currencyENName");
        cel2=cellRight(cel2);
        celltext(cel2,value);
        value=json(obj,"reference");
        value=StrTrim(value,"\"")
        cel2=cellRight(cel2);
        celltext(cel2,value);

        value=json(obj,"foreignBuy");
        value=StrTrim(value,"\"")
        cel2=cellRight(cel2);
        celltext(cel2,value);
endfor
GridRefresh(); //刷新单元格


欢迎大家提意见

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-6-16 22:00 | 显示全部楼层
如何查看一个网站的接口
比如:http://www.icbc.com.cn/ICBC/%E9%87%91%E8%9E%8D%E4%BF%A1%E6%81%AF/%E8%A1%8C%E6%83%85%E6%95%B0%E6%8D%AE/%e4%ba%ba%e6%b0%91%e5%b8%81%e5%8d%b3%e6%9c%9f%e5%a4%96%e6%b1%87%e7%89%8c%e4%bb%b7/default.htm

打开这个网址按F12键
image.jpg
找调用接口的方法 多数只用到了Get和Post
image.jpg

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-4-27 16:35 , Processed in 0.035207 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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