东方财富网址发生变化了，不能提取所有股票当天的信息，请教高手

支驰 · 发表于 2022-1-5 08:49

longming3 发表于 2021-5-31 10:23
代码如下：
Sub 沪深A股() '东方财富网20201210
Application.ScreenUpdating = False

太赞了
谢谢老师的分享，下面有两个小建议
br(i + 1, 17) = Val(s(15)) / 1000000000 '总市值(亿)
这句代码多除了一个零，另外根据目前的发行速度，5000不够用，直接改10000吧

支驰 · 发表于 2022-1-5 09:03

我也碰到提示代码溢出的情况，不能更新

支驰 · 发表于 2022-1-5 09:09

调试提示下图

于箱长 · 发表于 2022-1-5 09:14

conyldhjdl 发表于 2021-9-17 08:45
这个代码挺好，就是要是修改代码能加个根据自定义的“股票代码”列显示相应的行情就完美了

可以在现有的结果的基础上，增加一个筛选工作表，再写一套代码筛选出给定的股票代码的相关信息

taotaole1999 · 发表于 2022-1-5 09:53

太强大，学习了！

支驰 · 发表于 2022-1-9 17:59

后来运行一直挺好不知道为啥

snitfk · 发表于 2022-6-23 01:41

longming3 发表于 2021-5-31 10:23
代码如下：
Sub 沪深A股() '东方财富网20201210
Application.ScreenUpdating = False

老师，你这是优秀的作品，非常的棒！！
通过实验得出，您这个表，目前仅提取到沪深的A股信息，京市的没能提取到，请问您可以更新一下提取网址吗？

blackttea1 · 发表于 2022-6-25 20:26

太强大，学习了！

		自动登录	找回密码
密码			免费注册

[求助] 东方财富网址发生变化了，不能提取所有股票当天的信息，请教高手