Macros 使用宏在智能视图中自动刷新

我正在尝试创建一个宏，该宏将自动刷新Smart View中的数据。我需要能够让它在不打开文件的情况下自动运行。我是新的宏，我不是一个专家，所以如果有人可以帮助我，将非常感谢。它需要每天自己刷新

这是我的密码

    Sub RefreshWB()

Dim i As Integer
For i = 1 To Worksheets.Count
    If Sheets(i).Visible Then
        Sheets(i).Select
        Call HypMenuVRefresh
        i = i + 1
        Exit For
        End If
    Next i
End Sub
Sub RefreshWS()
  x = HypMenuVRefresh()
End Sub

---

由于某种原因，刷新所有页面的循环会出错。我认为这与工作表有关（I）。选择“行”。但是我需要自动执行这些宏，而不必进入文件来运行宏。

欢迎使用堆栈溢出。请将您目前编写的代码添加到您的问题中，以帮助我们更好地理解您的问题。我没有编写任何代码。我正在使用智能视图（oracle），我正在尝试创建一个代码，该代码将自动刷新我的文件，而无需我在其子文件夹中刷新（）“刷新宏”键盘快捷键：Ctrl+r“活动工作簿”。工作表（“检索”）。名称。添加名称：=\u“'Retrieve'！EssbasePRD1\u CableGL\u Main\u 1”，referestor1C1:=\u“=取回！R5C2:R696C54“结束Sub您需要在您的问题中添加您迄今为止尝试过的内容。请检查以改进您的问题并更快地获得答案。请编辑问题并将代码添加到问题中。