无法将文本分配回Excel中的表单TextBox控件

Question

这是我在Excel Code Behind中使用的代码，我收到以下错误“运行时错误1004无法设置字符类的text属性”。 “txtXmlString”是Excel工作表中使用的文本框控件的名称，外部FPrm是我的工作表名称。

Private Sub CreateXMLString()

    sf = "testdata"

    Worksheets("External form").Shapes("txtXmlString").TextFrame.Characters.Text = sf

End Sub

Answer 1

如果您在Excel工作表中添加了文本框控件，则它是一个ActiveX控件。话虽如此，选择它来获取它的名称（如果你有许多默认值，应该是Textbox1或2）。获得名称后，可以将其文本属性设置如下：

Sub Test()
Worksheets("External form").TextBox1.Value = "testdata"
End Sub

Answer 2

我得到了我的问题的解决方案，这里是代码

Private Sub CreateXMLString（）

Dim sf As String     sf =＆＃34; testdata＆＃34;     工作表（＆＃34;外部形式＆＃34;）。形状（＆＃34; txtXmlString＆＃34;）。TextFrame.Characters.Text = sf

End Sub

注意：需要将Textbox控件的属性更改为Unlocked＆amp; UnlockedText