VBA打印文本框中的值

我试图在Excel中使用VBA打印文本框的值。 该文本框是标题“文本框6”，这是我使用的代码：

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

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

没有find具有指定名称的项目。

任何帮助将是伟大的！ 提前致谢！

Answer 1

您可以使用ActiveX控件。 将一个文本框添加到工作表。

在文本框中右键单击并select视图代码菜单

然后尝试下面的代码：

 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