excel - 将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