请老师们解答：JSA能否从这个网址取数据240319

一江春水1688

金牌1 发表于 2024-5-31 16:43
老师太优秀了，高手！！！

不用客气，19行的代码改一下
点击第1列股票代码时，会自动打开网页链接，调试时没注意，打开的网页链接没数据，改过后可以了

1. async function 股票人气榜(){
   
2.     async function getRes(argm1, gpdm){
   
3.         let p = await fetch(`https://emappdata.eastmoney.com/stockrank/${argm1}`, {
   
4.           method: 'POST',
   
5.           headers: {'content-type': 'application/json'},
   
6.           body: JSON.stringify({'srcSecurityCode': `${gpdm}`})
   
7.         });
   
8.         let res = await p.json();
   
9.         return res;
   
10.     };
    
11.     let t1 = Date.now()
    
12.     const gpdms = Range('表1[代码]').Value2.flat().map((x, i) => {
    
13.         if (typeof x == 'number') x = String(x);
    
14.         if (x.length < 6) x = '0'.repeat(6 - x.length) + x;
    
15.         x = '03'.includes(x[0]) ? 'SZ' + x : 'SH' + x;
    
16.         return x;
    
17.     });
    
18.     Range('表1[代码]').Value2 = gpdms.map(x =>
    
19.         [`=HYPERLINK("http://guba.eastmoney.com/rank/stock?code=${x.slice(2)}", "${x.slice(2)}")`])
    
20.     let res1 = await Promise.all(gpdms.map((x, i) => getRes('getCurrentLatest', x)));
    
21.     let res2 = await Promise.all(gpdms.map((x, i) => getRes('getProfileStockRank', x)));
    
22.     let res = res1.map((x, i) =>
    
23.         [x.data.rank, x.data.rankChange, res2[i].data.oldUidRate, res2[i].data.newUidRate]
    
24.     );
    
25.     Range('表1[[实时排名]:[铁杆粉丝]]').Value2 = res;
    
26.     console.log(`${res.length}只股票，用时：${(Date.now()-t1)*0.001}秒`)
    
27. }

复制代码

金牌1

一江春水1688 发表于 2024-5-31 19:30
不用客气，19行的代码改一下
点击第1列股票代码时，会自动打开网页链接，调试时没注意，打开的网页链接 ...

感谢高手老师的细致解答！！！
还有个问题不理解：老师A列更新数据将6位文本格式换成6位数字格式还是不能执行？

一江春水1688

金牌1 发表于 2024-6-1 09:38
感谢高手老师的细致解答！！！
还有个问题不理解：老师A列更新数据将6位文本格式换成6位数字格式还是 ...

把不能运行的附件传上来，我看一下

金牌1

一江春水1688 发表于 2024-6-1 11:16
把不能运行的附件传上来，我看一下

换代码测试不行240601；A列6位数字的格式设置难度太大！

一江春水1688

金牌1 发表于 2024-6-1 11:30
换代码测试不行240601；A列6位数字的格式设置难度太大！

我明白了，你清除了原【表1】表格下半部分的内容，但【表1】还是原来的大小，只是后半部分的内容都是空白，股票代码也全是空，导致第14行代码中的 x.length 出错，程序就此中止，没有运行下去。
解决办法：
①选中【表1】第1个空白股票代码，按Ctrl + ↓ ，即选中了【表1】全部空白股票代码区域
②点鼠标右键→【删除】→【表行】，这样，【表1】的大小跟真实数据的大小相同了，【表1】中也不再有空白股票代码了
③运行程序，应该就正常了。
说明：将来，在【表1】中添加新的股票代码，【表1】会自动扩充，不用担心其大小

一江春水1688

1  2024-6-1 11:30

已解决，回复内容还在审核中

一江春水1688

一江春水1688 发表于 2024-6-1 13:25
已解决，回复内容还在审核中

不想动【表1】的话，代码修改如下：

1. async function 股票人气榜(){
   
2.     async function getRes(argm1, gpdm){
   
3.         let p = await fetch(`https://emappdata.eastmoney.com/stockrank/${argm1}`, {
   
4.           method: 'POST',
   
5.           headers: {'content-type': 'application/json'},
   
6.           body: JSON.stringify({'srcSecurityCode': `${gpdm}`})
   
7.         });
   
8.         let res = await p.json();
   
9.         return res;
   
10.     };
    
11.     const gpdms = [];
    
12.     Range('表1[代码]').Value2.flat().some((x, i) => {
    
13.         if (!x) return !x;
    
14.         if (typeof x == 'number') x = String(x);
    
15.         if (x.length < 6) x = '0'.repeat(6 - x.length) + x;
    
16.         x = '03'.includes(x[0]) ? 'SZ' + x : 'SH' + x;
    
17.         gpdms.push(x);
    
18.     });
    
19.     if (!gpdms) return;
    
20.     Range('表1[代码]').Resize(gpdms.length, 1).Value2 = gpdms.map(x =>
    
21.         [`=HYPERLINK("http://guba.eastmoney.com/rank/stock?code=${x.slice(2)}", "${x.slice(2)}")`])
    
22.     let res1 = await Promise.all(gpdms.map((x, i) => getRes('getCurrentLatest', x)));
    
23.     let res2 = await Promise.all(gpdms.map((x, i) => getRes('getProfileStockRank', x)));
    
24.     let res = res1.map((x, i) =>
    
25.         [x.data.rank, x.data.rankChange, res2[i].data.oldUidRate, res2[i].data.newUidRate]
    
26.     );
    
27.     Range('表1[[实时排名]:[铁杆粉丝]]').Resize(res.length, res[0].length).Value2 = res;
    
28. }

复制代码

金牌1

一江春水1688 发表于 2024-6-1 22:04
不想动【表1】的话，代码修改如下：

再次感谢老师的进一步解答！！！，更优秀作品！还有个问题：超链接这个到VBA不一样，会替换。如何更新？
Range('表1[代码]').Resize(gpdms.length, 1).Value2 = gpdms.map(x =>
        [`=HYPERLINK("http://guba.eastmoney.com/rank/stock?code=${x.slice(2)}", "${x.slice(2)}")`])