excel股票自动刷新，VBA代码如何写啊

我测试了下发现是鼠标放上去悬停才能触发刷新数据的动作。。。

sheet1里写：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

宏2

End Sub

模块1里写：

Sub 宏2()

'

' 宏2 宏

ActiveWorkbookRefreshAll

If Sheet1[G1] <> "停止刷新" Then ApplicationOnTime (Now + TimeSerial(0, 0, 2)), "宏2"

End Sub

亲测OK。

TimeSerial(0, 0, 2) 里面的2就是每2秒刷新一次，可以改成你想要的数值。

这个是我录制宏，再稍微修改下，几分钟完成的。

具体如下：

1、从相关网站获取股票信息。

2、利用re正则表达式提取出自己想要的股票信息，并且转换为DataFrame数据类型。

3、使用to_excel方法将数据保存为本地excel类型。

以上就是关于excel股票自动刷新，VBA代码如何写啊全部的内容，包括:excel股票自动刷新，VBA代码如何写啊、使用获取网页表格控件获取股票网页表格中的数据为哪种类型、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！