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

Question

我正在尝试创建一个可以在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

由于某种原因，循环刷新所有页面错误。我认为它与Sheets（i）有关。选择行。但我需要自动化这些宏，而不必进入文件来运行宏。