在 VBA 中更新 HTML 文本框的控件值答案

【问题标题】：Updating control value of HTML Textbox in VBA在 VBA 中更新 HTML 文本框的控件值
【发布时间】：2020-02-29 06:21:25
【问题描述】：

我有一个包含 100 多个 HTML 文本框的 Excel，这些文本框需要更新它们的控制值以匹配单元格引用。我收到运行时错误 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)

【问题讨论】：

标签： html excel vba object textbox

【解决方案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

仅供参考，控件的“运行时”和“设计时”属性之间存在区别：如果您对文本框进行更改，当您在工作表上进入设计模式时，它会恢复。

【讨论】：