使用自定义函数，无法自动刷新计算，请帮忙解惑

ken1998

我使用一段VBA代码从sohu网站上去股票K线数据，这段代码已经用了很久，一直都很正常，最近两年没用了，今天打开使用，发现很奇怪的现象，求助大家帮忙。


这段代码的含义是，根据股票代码和日期，取得当日一串基本数据，包括开盘价，收盘价，成交量等共10个数据。
我的使用过程如下：
1，编制一个表格，B列和C列分别是日期和股票代码
2，D列输入公式，通过B、C列的日期和股票代码，去sohu网上调取该日的数据，填到D-M列中

以前，我只要构建好了B列、C列数据，批量填好D列对应的公式，通过自动运算或手动运算，都可以一次性把所有数据取到，并填写好。
现在，我发现不行了，要想获得正确的结果，只能一个一个的填入D列的公式。
即，D2输入一个，回车计算并填写一行，然后D3输入下一个，计算...
当重新刷新整个表格计算时，所有已经计算好的数据都消失了。

附上表格，请高手帮我分析一下，谢谢

xlj310

网站变了吧？你那个网址直接访问报503错误：503 Service Temporarily Unavailable

ken1998

网站没变，网站的使用限制可能变了。我现在怀疑的是，网站不允许同时多个并发连接。假如是这种情况，不知道有啥处理方法吗？

ken1998

基本可以确定是处理并发请求的原因。
这个附件和上一个一样，只是加大了数据请求量。
test.zip (23.19 KB, 下载次数: 0)

2024-11-3 19:58 上传

点击文件名下载附件

可以看出，当关闭自动计算功能，每点击一次开始计算（即手工激活表格重算），表格就会变化一次，每次获取的数据不同。


怎么才能解决这个问题呢？

ken1998

有没有可能做到：
1，依次调用，比如我上表中使用了A函数100次，计算的时候，这个函数依次执行，每次中间间隔若干时间。

2，增加一个按钮，每点击一次，在特定的列中，依次从上向下，复制同列上一行的公式，粘贴到本行同列单元格，并运算。相当于在关闭全表自动运算的前提下，手工复制粘贴，并按回车，计算本单元格一样。