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