在VBA中运行WinSCP脚本不起作用？

Question

我最初使用此VBA代码运行此脚本，一切正常。

open sftp://username:password@address
cd /export/home/username/Desktop/Temp
lcd C:\Users\username\Desktop
get rank_macro.log
close
exit

Sub RunWinScpUpload()
Call Shell("""C:\Program Files (x86)\WinSCP\WinSCP.com"" /script=C:\Users\Desktop\WinSCPDownload.txt")
End Sub

现在我尝试将txt文件合并到我的VBA代码中。我写了这个：

Sub RunWinScpDownload()
Call Shell("""C:\Program Files (x86)\WinSCP\WinSCP.com"" " + _
"/command " + _
"""open sftp://username:password@address"" " + _
"""cd /export/home/Desktop/Temp"" " + _
"""lcd C:\Users\Desktop"" " + _
"""get rank_macro.log"" " + _
"""close"" " + _
"""exit""")
End Sub

但是这段代码不起作用。没有错误消息，也没有输出。有人有什么想法吗？提前谢谢！

日志显示：

请转到此google驱动器shared file