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