Обновление контрольного значения HTML Textbox в VBA

Question

У меня есть Excel с более чем 100 HTML текстовыми полями, которым необходимо обновить свои контрольные значения, чтобы они соответствовали ссылкам на ячейки. Я получаю ошибку во время выполнения 1004, ошибка приложения или объекта.

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

• Тест 1 из https://www.ozgrid.com/forum/index.php?thread / 71462-copy-text-from- html -text -box /

• Тесты 2 и 3 из https://www.pcreview.co.uk/threads/addressing-htmltext-object-in-spreadsheet-vba-script.4014065/

  Sub test()
  
  
  'test1
          Dim TB As OLEObject
      'test2
          'Dim TB As TextBox
      'test3
          'Dim TB As msforms.TextBox
  
      Set TB = ActiveSheet.TextBoxes(HTMLText99)
      'Set TB = ActiveSheet.OLEObjects(HTMLText99)
  
      TB.Value = ActiveSheet.Cells(5, 7)
      'TB.Text = ActiveSheet.Cells(5, 7)
      'TB.Object.Value = ActiveSheet.Cells(5, 7)
      'TB.Object.Text = ActiveSheet.Cells(5, 7)
  End Sub
  

Интересно, если я просто сделаю простой код (см. ниже), видимое значение поля HTML изменяется, как и ожидалось, но как только я нажимаю «Подробное представление» на вкладке разработчика, видимое значение возвращается к контрольному значению, которое я вижу при открытии свойства в текстовом поле HTML.

ActiveSheet.HTMLText99.Value = ActiveSheet.Cells(5, 7)

Answer 1

Непонятно, как именно называются ваши объекты, но это может дать вам некоторые идеи:

Dim o, i As Long
For Each o In ActiveSheet.OLEObjects
    If TypeName(o.Object) = "HTMLText" Then
        Debug.Print o.TopLeftCell.Address, o.Name, _
                    o.Object.HTMLName, o.Object.Value
    End If
Next o

К вашему сведению, есть разница между свойствами элемента управления «время выполнения» и «время разработки»: если вы сделаете изменение текстового поля, которое будет отменено при переходе в режим «Дизайн» на листе.