将数据从 powerpoint 文本框复制到 Excel 单元格

Question

我在 MS Excel 中使用宏将数据从 PowerPoint 中的文本框导入到 Excel。

正在导入文本格式的数据，无法从文本框中复制换行符

Range("a1").Value = pps.Shapes("textbox 1").TextFrame.TextRange.Text

任何人都可以提出替代解决方案吗？

Answer 1

最新版本的 PowerPoint 使用 Chr$(11) 作为换行符。看起来 Excel 想要换行 Chr$(10)，所以像这样：

Range("a1").Value = Replace(pps.Shapes("textbox 1").TextFrame.TextRange.Text,Chr$(11), Chr$(10))

PPT 对段落结尾和换行符使用不同的字符，并且版本之间有所不同，因此如果您需要支持 PPT 2003 及之前的版本，则需要更多代码。

我维护的PPT FAQ上的这个页面解释了细节：

Copy data from powerpoint textbox to Excel cell