将excel文本框的内容抓取到保持换行的字符串中

Question

我是该网站的新用户，也是VBA的新用户。

我只是想把多个文本框的内容（从许多不同的工作表中）放到一张纸上。

现在，我一直坚持将单个文本框中的信息转换为变量。

此时此刻，我只想保留换行符（换行，输入，返回等）。

即使我只能复制/粘贴信息，此时我甚至无法通过VBA访问文本框。

如果有人能提供帮助，那真的很棒！感谢。

Answer 1

这是怎么开始的？

以下代码将提取文本框中的文本并将其打印到即时视图。

Sub ExtractTextFromShapes()

Dim shp As Shape

For Each shp In ActiveSheet.Shapes

    If shp.Type = msoTextBox Then Debug.Print shp.TextFrame.Characters.Caption

Next


End Sub

您可以轻松替换

Debug.Print shp.TextFrame.Characters.Caption

使用

strText = shp.TextFrame.Characters.Caption