采取文本框input并移动到特定的单元格。

我正在编写一个macros来从Excel工作表中提取各种数据,并将其置于更有用的顺序。 我碰到的一个问题是,我想要的数据的一部分包含在一个文本框中。 我想从文本框中提取数据,并将其粘贴到单元格A100

该文本框始终被称为ActivityA

尝试这个

 Cells(100, 1) = ActiveSheet.Shapes("NameOfYourTextBox").DrawingObject.Text