求助老师们解答：用JSA代码抓资金240823

中华美德

用JSA代码抓资金240823

一江春水1688

简单的分析了一下，核心获取数据的代码，简单示例如下，详解的解析请自行完成：

1. async function 资金流向(){
   
2.     let url = 'https://push2his.eastmoney.com/api/qt/stock/fflow/daykline/get?cb=jQuery1123018174792354994507_1724504572996&lmt=0&klt=101&fields1=f1%2Cf2%2Cf3%2Cf7&fields2=f51%2Cf52%2Cf53%2Cf54%2Cf55%2Cf56%2Cf57%2Cf58%2Cf59%2Cf60%2Cf61%2Cf62%2Cf63%2Cf64%2Cf65&ut=b2884a393a59ad64002292a3e90d46a5&_=1724504572997';
   
3.     let gpdm = '0.127033'; //股票代码，前缀【0.】表示深圳，【1.】表示上海
   
4.     url += '&secid=' + gpdm;
   
5.     let promise = await fetch(url, {
   
6.         headers: {
   
7.             'Host': 'push2his.eastmoney.com',
   
8.             'Referer': 'https://data.eastmoney.com/zjlx/127033.html'
   
9.         }
   
10.     });
    
11.     let res = await promise.text();
    
12.     console.log(res);
    
13. }

复制代码

中华美德

一江春水1688 发表于 2024-8-24 22:14
简单的分析了一下，核心获取数据的代码，简单示例如下，详解的解析请自行完成：

感谢老师回复

一江春水1688

中华美德 发表于 2024-8-25 15:33
感谢老师回复

不客气，稍加分析并简化，代码参考如下【新增1个sheet，用于输出历史数据】：
适当改造，可以用于批量获取数据。如果不想输出"收盘价","涨幅"，删除url中的【,f62,f63】，并修改 index = [0,1,6,5,10,4,9,3,8,2,7]

1. async function 资金流向(){
   
2.     let gpdm = '0.127033';//股票代码，前缀【0.】表示深圳，【1.】表示上海
   
3.     let lmt = '0'; //天数，0不限制天数，1只取一天最新数据
   
4.     let url = 'https://push2his.eastmoney.com/api/qt/stock/fflow/daykline/get?cb=jQuery112305_17245';
   
5.     url += '&fields1=f1,f3&fields2=f51,f52,f53,f54,f55,f56,f57,f58,f59,f60,f61,f62,f63';
   
6.     url += `&lmt=${lmt}&secid=${gpdm}`;
   
7.     let promise = await fetch(url);
   
8.     let res = await promise.text();
   
9.     let arrStr = JSON.parse(res.match(/\(([^)]+)\)/)[1]).data;
   
10.     let arr = [["日期","收盘价","涨幅","主力净流入净额","主力净流入占比","超大单净流入净额","超大单净流入占比",
    
11.         "大单净流入净额","大单净流入占比","中单净流入净额","中单净流入占比","小单净流入净额","小单净流入占比"]];
    
12.     let index = [0,11,12,1,6,5,10,4,9,3,8,2,7];//字段顺序索引
    
13.     arr = arr.concat(arrStr['klines'].map((x, i) => x.split(',').map((y,j,a) => a[index[j]])))
    
14.     Sheets(2).Activate();//激活第2张表格
    
15.     Sheets(2).Name = arrStr['name']+'_历史数据' //表格重命名
    
16.     Range('A1').Resize(arr.length, arr[0].length).Value2 = arr;
    
17.     Range("A1:M1").HorizontalAlignment = xlHAlignCenter;
    
18.     Range("A1:M1").WrapText = true;
    
19. }

复制代码

中华美德

一江春水1688 发表于 2024-8-25 18:12
不客气，稍加分析并简化，代码参考如下【新增1个sheet，用于输出历史数据】：
适当改造，可以用于批量获 ...

再次感谢！！！一江春水1688大佬；JSA代码神奇，你真是太厉害了！！！！！！！，最好只取给出来的转债股当天的。

金牌1

一江春水1688 发表于 2024-8-25 18:12
不客气，稍加分析并简化，代码参考如下【新增1个sheet，用于输出历史数据】：
适当改造，可以用于批量获 ...

优秀作品！！！老师的JSA代码比VBA抓取网页表格的功能强大100倍。

一江春水1688

金牌1 发表于 2024-8-26 17:22
优秀作品！！！老师的JSA代码比VBA抓取网页表格的功能强大100倍。

不用客气，有空就会看看

一江春水1688

中华美德 发表于 2024-8-25 20:08
再次感谢！！！一江春水1688大佬；JSA代码神奇，你真是太厉害了！！！！！！！，最好只取给出来的转债股 ...

不用客气，稍后就上传代码及附件

一江春水1688

代码及附件如下：

抓资金240823.zip (43.48 KB, 下载次数: 11)

2024-8-26 22:24 上传

点击文件名下载附件

中华美德

一江春水1688 发表于 2024-8-26 22:24
代码及附件如下：

感谢@一江春水1688；同样的题目，VBA没有老师解答；JSA就有@一江春水1688老师解答，JSA比VBA更胜！！