" 以下是一个VBS脚本示例，用于将SAP左下角弹出的消息复制到D盘的l.xls文件A1单元格： ```vbs Option Explicit Sub CopySAPMessageToExcel() Dim ws, msg Set ws = CreateObject("WScript.Shell") msg = ws.SendKeys("{F6}") ' 模拟按下F6键，弹出消息 Dim xlApp, xlWorkbook, xlWorksheet Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False Set xlWorkbook = xlApp.Workbooks.Open("D:\l.xls") Set xlWorksheet = xlWorkbook.Worksheets(1) xlWorksheet.Cells(1, 1).Value = msg xlWorkbook.Save xlWorkbook.Close False xlApp.Quit End Sub Call CopySAPMessageToExcel ``` 请注意，这个脚本需要在运行时具有足够的权限。在运行脚本之前，请确保将VBS脚本文件设置为以管理员身份运行。此外，这个脚本可能会受到操作系统、SAP版本和Excel版本的影响，可能需要进行一些调整。"