將數據從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使用不同的字符，段落結尾VS換行，而且版本之間略有不同，因此，如果您需要支持PPT 2003年和之前，你需要更多的代碼。

的PPT常見問題我保持此頁介紹的細節：

http://www.pptfaq.com/FAQ00992_Paragraph_endings_and_line_breaks.htm