如何复制带有许多字符的文本以在SAP中的注释中插入？

Question

我有此VBA代码将细胞从Excel文件连接到SAP（SAP H4 HANA）。

Sub number_twelve()

Set SapGuiAuto = GetObject("SAPGUI")
Set objGui = SapGuiAuto.GetScriptingEngine
Set objConn = objGui.Children(0)
Set session = objConn.Children(0)

Dim sht As Worksheet
Set sht = Sheet2


session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "/nfb70"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[1]/usr/ctxtBKPF-BUKRS").Text = "3800"
session.findById("wnd[1]/usr/ctxtBKPF-BUKRS").caretPosition = 4
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/ctxtINVFO-ACCNT").Text = 
sht.Range("B18").Value
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/ctxtINVFO-BLDAT").SetFocus
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/ctxtINVFO- 
BLDAT").caretPosition = 0
session.findById("wnd[0]").sendVKey 4
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/txtINVFO-WRBTR").Text = 
sht.Range("I18").Value
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/chkINVFO-XMWST").SetFocus
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/chkINVFO-XMWST").Selected 
= True
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/cmbINVFO-MWSKZ").SetFocus
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/cmbINVFO-MWSKZ").Key = 
"NS"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/ctxtACGL_ITEM- 
HKONT[1,0]").Text = sht.Range("G18").Value
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/txtACGL_ITEM- 
WRBTR[4,0]").Text = sht.Range("I18").Value
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/ctxtACGL_ITEM- 
KOSTL[17,0]").Text = sht.Range("H18").Value
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/btnACGL_ITEM- 
EOBJ[35,0]").SetFocus
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/btnACGL_ITEM- 
EOBJ[35,0]").press
session.findById("wnd[1]/usr/sub:SAPLKEAK:0400/ctxtRKEAK-FIELD[0,24]").Text = 
sht.Range("B18").Value
session.findById("wnd[1]/usr/sub:SAPLKEAK:0400/ctxtRKEAK-FIELD[0,24]").caretPosition = 7
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/btnACGL_ITEM- 
LTEXT[12,0]").SetFocus
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/btnACGL_ITEM- 
 LTEXT[12,0]").press
 session.findById("wnd[1]/usr/subNOTICE:SAPLEENO:1001/btnEENO_TEXTE-EDITOR").press
 End Sub

在SAP中，定义的交易是用于发布借记说明，因此要填写的字段之一是您想说借记注释的文本字段。碰巧的是，由于文本有很多字符，我需要在“注释”中写下。 但是，当我保存脚本时，TXT文件会生成以下行（按照上面显示的代码）：

  session.findById("wnd[0]/usr/cntlSCMSW_CONTAINER_2102/shellcont/shell").setDocument 1,"e1xydGYxXGFkZWZsYW5nMTAyNVxhbnNpXGFuc2ljcGcxMjUyXHVjMVxhZGVmZjBcZGVmZjBcc3RzaGZkYmNoMFxzdHNoZmxvY2gzN1xzdHNoZmhWRpIFxmcm9tYW5cZmNoYXJzZXQwXGZwcnEye1wqXHBhbm9zZSAwMjAyMDYwMzA1MDQwNTAyMDMwNH1UaW1lcyBOZXcgUm9tYW47fXtcZmhpbWFqb3JcZjMxNTAyXGZiaWRpIFxmc3dpc3NcZmNoYXJzZXQwXGZwcnEye1wqXHBhbm9zZSAwMjBmMDMw"

有人可以帮助我吗？在最后一行我应该改变什么？ 我在Excel文件中有一个带有文本的单元格（J18），

当我记录脚本时，当我开始编写注释时，我总是会收到此通知：

附件：