场景描述:
Office版本2010版、Uibot版本5.5及5.6版【均为64位】、操作系统Win10 64位,条件:代码不变,仅在5.5和5.6环境下运行
打开Excel=》读取单元格内容=》写入Outlook邮件正文,5.5 64位版运行效果如下图所示:
5.6 64位版运行效果如下图所示
代码如下:
Dim objRet = ""
Dim objExcelWorkBook = ""
objExcelWorkBook = Excel.OpenExcel('''D:\Desktop\桌面\报表2021-09-10.xlsx''',True,"Excel","","")
objRet = Excel.ReadCell(objExcelWorkBook,"汇总","B58")
TracePrint($PrevResult)
#icon("@res:6bg9bln3-46k7-9v83-l6ma-9g01g21i736n.png")
Keyboard.InputText({"wnd":[{"app":"OUTLOOK","cls":"rctrl_renwnd32","title":"未命名 - 邮件 (HTML) "},{"cls":"AfxWndW"},{"cls":"AfxWndW","aaname":"窗体区域"},{"cls":"#32770"},{"cls":"AfxWndA","aaname":"邮件"},{"cls":"_WwB","title":"文档 2","aaname":"文档 2"},{"cls":"_WwG","title":"邮件","aaname":"邮件"}]},objRet,True,20,10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":500,"bSetForeground":True,"sSimulate":"message","bValidate":False,"bClickBeforeInput":False})
Excel.CloseExcel(objExcelWorkBook,True)
以上代码无论选择模拟操作、或者后台操作、或者系统消息都是一样的错误
请各位老师看一下是什么原因引起的【从5.6版本64位恢复到5.5版64位问题可以解决】
初步认为应该是新版问题,也请官方开发人员测试一下,谢谢。