VBA在textBox中打印值

Question

我尝试使用VBA在excel中打印文本框的值。文本框是标题＆＃34; TextBox 6＆＃34;这是我使用的代码：

Debug.Print (wSheet.Shapes("TextBox 6").TextFrame.Characters.Text)

wSheet是文本框所在的主要工作表。我得到的错误是：

  

找不到具有指定名称的项目。

任何帮助都会很棒！提前谢谢！

Answer 1

您可以使用ActiveX控件。在工作表中添加文本框。

右键单击文本框并选择视图代码菜单

然后尝试以下代码：

Private Sub TextBox1_Change()
    Cells(1).Value = TextBox1.Text
End Sub

Answer 2

Private Sub this()
    Debug.Print ; ActiveSheet.OLEObjects("TextBox1").Object.Value
End Sub