Question

我的excel文件中有一个宏，它使用pscp（putty客户端）将文件上传到我的服务器。

这是代码

Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1

Dim cstrSftp As String
Dim strCommand As String
Dim pUser As String
Dim pPass As String
Dim pHost As String
Dim pFile As String
Dim pRemotePath As String

'Specifying the values
cstrSftp = """" & Application.ActiveWorkbook.Path & "\pscp.exe" & """"
pUser = "username"
pPass = "password  "
pHost = "ftp.xyz.com"
pFile = """" & Application.ActiveWorkbook.Path & "\test.mkv" & """"
pRemotePath = "/home/storage/public_html/"

'Setting the command
strCommand = cstrSftp & " -sftp -l " & pUser & " -pw " & pPass & _
    " " & pFile & " " & pHost & ":" & pRemotePath

'Execution
 wsh.Run strCommand, windowStyle, waitOnReturn

这很好，但我有两个问题：

1）使用Windows 10，系统会弹出一条消息，询问用户是否要运行pscp.exe。我想绕过它。

而不是WScript.Shell我正在使用它：

Call Shell(strCommand, vbNormalFocus)

使用Call Shell操作系统不会询问有关运行pscp.exe的问题，但问题是我无法知道该进程何时结束

2）当用户第一次运行命令时，putty会提示此消息：

服务器的主机密钥未缓存在注册表中。你没有保证服务器是您认为的计算机。该 server＆rs; rsa2 key＆gt;指纹是：[ssh-rsa 1024 somekey]如果你相信这个主人，输入＆＃34; y＆＃34;将密钥添加到PuTTY的缓存并携带在连接上。如果你想只进行一次连接，没有将密钥添加到缓存中，输入＆＃34; n＆＃34;。如果你不相信这个主人，按Return键放弃连接。将密钥存储在缓存中？（Y / N）

我需要它完全即时免费，自动。

我尝试使用＆＃34; echo n＆＃34;像这样：

strCommand =＆＃34; echo n | ＆＃34; ＆安培; cstrSftp＆amp; ＆＃34; -sftp -l＆＃34; ＆安培; pUser＆amp; ＆＃34; -pw＆＃34; ＆安培; pPass＆amp; _ ＆＃34; ＆＃34; ＆安培; pFile＆amp; ＆＃34; ＆＃34; ＆安培; pHost＆amp; ＆＃34;：＆＃34; ＆安培; pRemotePath

但是我得到的消息是＆＃34; IWshShell3＆＃34;失败。

Answer 1

问题2解决了！

Echo是一个批处理文件命令，因此它需要有一个包装器。

此命令有效：

strCommand =“cmd / c echo n |”＆amp; cstrSftp＆amp; “-sftp -l”＆amp; pUser＆amp; “-pw”＆amp; pPass＆amp; _ “”＆amp; pFile＆amp; “”＆amp; pHost＆amp; “：”＆amp; pRemotePath

VBA Excel和Putty（FTP） - 等待调用Shell和旁路主机密钥未缓存在注册表

1 个答案: