HFM Smartview VBA代码

我正在使用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