用vbs获取Sap左下角弹出的消息并且粘贴到D盘l.xls文件A1单元格

Set SapGuiAuto = GetObject("SAPGUI") Set Application = SapGuiAuto.GetScriptingEngine Set Connection = Application.Children(0) Set session = Connection.Children(0) session.findById("wnd[0]").maximize session.findById("wnd[0]/tbar[0]/okcd").text="指令" '输入指令，这里是查看系统信息的指令：sysinfo session.findById("wnd[0]").sendVKey 0 '发送回车键 回车后弹出系统信息对话框 '定义对话框变量 （注意不要写成Dim dlgSysInfo） 用于获取弹出的对话框上的文本信息 dlgSysInfo=session.findById("wnd[1]") '定义一个变量用来存储弹出对话中文本信息 这里是Sap左下角弹出的那条文本信息 核心就在这一行 Message=dlgSysInfo.text '将Message变量中存储的文本信息写入到D盘l.xls文件A1单元格中 由于Excel打开时会锁定A1单元格，所以要加上如下代码 unlock A1单元格 具体原因不明 把2行代码注释后也能正常运行 不过我喜好加上 就当多学习了一行代码吧 运气好的话会用到 ^_^ 各位大侠忽略此牢骚 大家多多包含 谢谢 ^_^                                                                                                                                                                Set xlApp = CreateObject("Excel.Application")   xlApp.Workbooks.Open "D:\L\L\L\L\L\xls"   xlApp .Worksheets (1).Unprotect ""   xlApp .Cells (1, 1).Value= Message   xlApp .Worksheets (1).Protect ""   xlApp .ActiveWorkbook .Save