Создать командную кнопку в Excel для обновления данных Smart View - PullRequest
Новая
       35

Создать командную кнопку в Excel для обновления данных Smart View

0 голосов
/ 10 июня 2019

Я пробовал код в других сообщениях, но всегда получаю ошибку компиляции при попытке связать щелчок с командой обновить все. Вот код, который у меня есть.

Я не совсем уверен, почему проблема возникает или как ее исправить. 

Private Sub CommandButton1_Click()
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

        Sheets(i).Select

        MsgBox Sheets(i).Name

        Call HypMenuVRefresh

        i = i + 1

    Loop

    MsgBox "done"

End Sub

Я ожидал обновления Essbase, но получаю ошибку компиляции

«После End Sub, End Function или End Property могут появляться только комментарии»

...