Excel VBAを使用してWinSCPスクリプトを実行するにはどうすればよいですか？

Question

ローカルファイルをSFTPサイトにアップロードするWinSCPスクリプトを作成しました。スクリプトは.TXTに保存されます。

WinSCP.com 
open sftp://username:password@address 
cd /export/home/Desktop/Temp 
put C:\Users\Dekstop\JPMC\a.xlsx 
close 
exit 

は、その後、私はthis postを見て、ExcelのVBAにこのコードを記述します。

Sub RunWinScp() 
Call Shell("C:\Program Files (x86)\WinSCP\WinSCP.com /ini=nul/script=C:\Users\Desktop\WinSCPGetNew.txt") 
End Sub 

しかし、私はそれを実行しようとすると、何も起こりません。エラーはありませんが、ファイルは正しく転送されません。誰かが助けてくれますか？

ありがとうございます！それはスペース

が含まれているとして、あなたはwinscp.comを削除するには、/ini=nulと/script=...

Call Shell("""C:\Program Files (x86)\WinSCP\WinSCP.com"" /ini=nul /script=C:\Users\Desktop\WinSCPGetNew.txt") 

• の間のスペースを必要とし、二重引用符でwinscp.comへのパスを囲む必要があり

Answer 1

• WinSCPGetNew.txtスクリプトの冒頭にあります。 WinSCPにはwinscp.comコマンドがありません。既にWinSCP.comをVBAのShell関数で実行しています。これは実際にあなた自身にリンクしている質問ですでにカバーされています：Using VBA to run WinSCP script。

あなたはより良い別のコマンドファイルのために必要性を回避するために/command switchを使用してWinSCPのコマンドラインでコマンドを指定しますが：

Call Shell(_ 
    """C:\Program Files (x86)\WinSCP\WinSCP.com"" " + _ 
    "/ini=nul " + _ 
    "/command " + _ 
    """open sftp://username:password@example.com/"" " + _ 
    """cd /export/home/Desktop/Temp"" " + _ 
    """put C:\users\Desktop\JPMC\a.xlsx"" " + _ 
    """close"" " + _ 
    """exit""")