![Excel 中的自动刷新 RSS Feed](https://linux22.com/image/1594223/Excel%20%E4%B8%AD%E7%9A%84%E8%87%AA%E5%8A%A8%E5%88%B7%E6%96%B0%20RSS%20Feed.png)
我使用 Excel 上的“开发人员”选项卡添加了 XML 源,以便将 RSS 源加载到 Excel 中。我想让 Excel 每 30 秒自动刷新一次源,但是,当我转到“数据”选项卡更改刷新设置时,“刷新控制”/“背景刷新”/“自动刷新”框会变灰。
有几篇帖子询问如何在自动刷新呈灰色时(如图所示)启用它(从数据选项卡),但这些解决方案对我都不起作用。我也在许多不同的网站上搜索如何启用它,但我仍然无法弄清楚。许多网站告诉您在进入刷新设置之前确保选择了包含数据的单元格,但这也没有用。
有人有办法解决这个问题吗?或者,有人可以推荐一个 VBA 脚本吗?我不懂编程,但如果有人有 VBA 脚本,请写出来,以便我可以将其复制到文档中,我将不胜感激。谢谢!
答案1
Sub TaskRefreash()
Call RefreshData
End Sub
Sub RefreshData()
' Refresh all data source
ActiveWorkbook.RefreshAll
' 30 min interval, set time interval in TimeValue
Application.OnTime Now + TimeValue("00:30:00"), "TaskRefreash"
End Sub
如果打开工作簿后需要自动运行刷新数据循环,请添加:
Call TaskRefreash
Private Sub Workbook_Open()
Call TaskRefreash
End Sub