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

libing2006

复制9楼，代码提示下标越界，检查发现，sheet1的名字不对。

joseph_kin

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

超棒啊！之前用Power Query只能抓部分重点股，现在总算能轻快更新数据了！

longming3

joseph_kin 发表于 2021-6-11 23:56
超棒啊！之前用Power Query只能抓部分重点股，现在总算能轻快更新数据了！

觉得好，送个花吧

joseph_kin

longming3 发表于 2021-6-14 13:26
觉得好，送个花吧

应该送的，只是我竟然找不到页面中送红花的地方？？？

另外一个反馈，这个模块在打开后第一次执行，数据会更新，然后之后按执行，数据就没有更新了(界面是进行了刷新动作，但价格等参数我和实时对照了一下，都是第一次更新后的数据)。
当我关闭文件，再次打开时，模块执行又能取得最新的价格数据。
发现需要不断关闭、打开文件，才能获得最新数据。
不知你的文件运行有没有这个问题？

longming3

在我的帖子会回复的下方有个评分，里面有送花。
你说的不能更新是不是你用的时间段，要在开盘的时间内才行。如果下午3点后，休假的日期，大盘都是停盘。数据就一直显示收盘前的数据。

joseph_kin

longming3 发表于 2021-6-21 09:27
在我的帖子会回复的下方有个评分，里面有送花。
你说的不能更新是不是你用的时间段，要在开盘的时间内才 ...

果然可以送花。

我是在开市时间段对照测试的，确实只有第一遍更新，第二次及以后，就没有更新数据了。
关闭文件后，再打开，又能更新一遍最新数据了

longming3

joseph_kin 发表于 2021-6-21 13:57
果然可以送花。

我是在开市时间段对照测试的，确实只有第一遍更新，第二次及以后，就没有更新数据了。 ...

这段代码我一直在用，开盘期间随时更新，没有问题。从代码上分析来看，直接抓取当时的一个时间点的数据，然后按需要分解出来。如果你说的只能更新一遍，我估计是你设置为打开工作簿自动更新了，然后就是工作表的名称，另外的控件指定这个宏，而这个宏只更新和代码里面名称一致的表格。这个你去检查一下。

xing_chen

longming3 发表于 2021-6-21 14:46
这段代码我一直在用，开盘期间随时更新，没有问题。从代码上分析来看，直接抓取当时的一个时间点的数据， ...

谢谢！我在运行你的代码时，提示“运行时错误“7“内存溢出”””，点开调试“Range("b2") = v”黄色。怎么回事?可以指教下吗?谢谢

conyldhjdl

longming3 发表于 2021-6-21 14:46
这段代码我一直在用，开盘期间随时更新，没有问题。从代码上分析来看，直接抓取当时的一个时间点的数据， ...

能不能加个根据“前面列指定的股票代码”来更新指定股票代码部分的行情显示出来。也就是不用像现在这样全部都抓显示回来,TKS!!!

conyldhjdl

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

这个代码挺好，就是要是修改代码能加个根据自定义的“股票代码”列显示相应的行情就完美了