试试这个 SendKeys "a=${(}script.sh{)}", True 例如。Sub Sample() Dim RetVal RetVal = Shell("NOTEPAD.EXE ", 1) AppActivate RetVal SendKeys "a=${(}script.sh{)}", True End Sub 输出 a=$(script.sh)