使用Excel VBA从SAP中提取长文本时保持文本格式

Question

我想检索SAP中显示的文本，其中包含一个提取它的宏。我已经有了这样做的宏。它点击第1行右侧的按钮，如下所示：

然后它显示如下文本：

将其复制，并将其粘贴到单元格中。

但是，一旦进入单元格，文本就会以这种方式显示：

＆＃34;测试1是好的测试2是否测试3测试3是否为＃34;但我希望它保持完全相同的格式，如下所示：

＆＃34;测试1没问题

测试2是nok

测试3是nok＆＃34;

关于如何实现这一目标的任何想法？

Answer 1

我实际上是通过间谍来找到解决方案。

k = 1
           Text = ""
           Do
           If .findById("wnd[0]/usr/cntlSCMSW_CONTAINER_2102/shellcont/shell").document.Words(k).Text = ThisWorkbook.Worksheets("Long text").Cells(1, 10).Value Then
           Text = Text & Chr(10)
           Else
           Text = Text & .findById("wnd[0]/usr/cntlSCMSW_CONTAINER_2102/shellcont/shell").document.Words(k).Text
           End If
           k = k + 1
           Loop Until k = .findById("wnd[0]/usr/cntlSCMSW_CONTAINER_2102/shellcont/shell").document.Words.Count + 1