HFM Smartview VBA代码

Question

我正在使用下面的Smartview代码。在本代码中，我想排除一个工作表(工作表名称"POV")如何修改代码以排除上面的工作表。请帮帮我。

Private Declare PtrSafe Function HypMenuVRefresh Lib "HsAddin" () As Long

Sub refreshWS()

    Dim Count, i As Integer

    i = 1

    Count = Worksheets.Count

    Do While i <= Count
        pctCompl = (i - Count)
        Application.StatusBar = "TOTAL WORKSHEETS    " & Count & "   " & pctCompl & "  " & "SHEETS PENDING "
        Application.Wait Now + TimeValue("00:00:01")

          Sheets(i).Select


        Call HypMenuVRefresh


        i = i + 1

   Loop

    MsgBox "ALL SHEETS COMPLETED"

Application.StatusBar = "COMPLETED"


End Sub

Answer 1

只需更改：

Sheets(i).Select
HypMenuVRefresh

至：

If Worksheets(i).Name<>"POV" Then
    Worksheets(i).Select
     HypMenuVRefresh
End If