Автоматически увеличивать номер редакции, если файл уже завершен на веб-странице с использованием vba

Question

Я пытался автоматически увеличить номер версии дисплея, который я сохраняю, используя vba. Я попробовал это со стати c один. передавая только я = 2, т.е. постоянное число. я пытался динамически увеличивать номер редакции, но я не получил. Я, когда я использую i = 2, каждый раз, когда он дает мне отображаемое имя 2, так что он выдает ошибку, что файл уже завершен. Я ценю, если вы поможете мне найти решение. Вот мой код VBA

 Dim i As Integer
    i = 3
     Set IE = New InternetExplorerMedium
      IE.Visible = True

        'Define URL
          IE.Navigate2 "my link here "

         Do While IE.Busy
            Application.Wait DateAdd("s", 1, Now)
         Loop

          Set html = IE.document

        disp_name = html.getElementById("disp-name").innerText

          Set htmlColl = html.getElementsByClassName("save-menu-item")

            For Each htmlInput In htmlColl
              If htmlInput.className = "save-menu-item" Then
           '  MsgBox htmlInput.innerHTML
                If InStr(1, htmlInput.innerHTML, "Save As") Then

                htmlInput.Click
               Set htmlColl3 = html.getElementsByClassName("c-primary-button")

                   Application.Wait (Now() + TimeValue("00:00:05"))
                    Application.SendKeys disp_name & i

                        i = i + 1
                        For Each htmlin In htmlColl3
                            Debug.Print htmlin.innerHTML
                           If InStr(1, htmlin.innerHTML, "Save") Then
                               htmlin.Click
                            End If
                        Next htmlin
                        Application.SendKeys ("~")

                  End If
               End If
            Next htmlInput

    End Sub

Html код для диалогового окна и сохранения ниже

Отображаемое имя:

'isInvalidEntry' || занят || saveDisabled "disabled =" отключено "> Сохранить