原始问题：
用vbs复制Sap左下角弹出的消息粘贴到D盘l.xls文件A1单元格
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Open "D:\l.xls"
objExcel.ActiveSheet.Cells(1,1).Value=CreateObject("WScript.Shell").Popup("Sap左下角弹出的消息",0,"标题",0)
objExcel.ActiveWorkbook.Save
objExcel.Quit
Prev：你能否完美的理解 中国的阴阳五行八卦以及易经吗？