使用 VBA 和 WINSCP 从 MS-Access 上传 SFTP [重复]

Question

请参阅下面的代码，这是从另一个站点提取的，我用我的详细信息进行了修改。我正在尝试根据触发事件自动上传到我的 SFTP 站点。由于某种原因，它不起作用。如果我所做的有任何问题，请告诉我。下面是即时窗口中的代码调试器。

Private Sub Form_Close()

  Const CMD_WINSCP As String = _
    "WinSCP.com /Command ""open sftp://user:password@server/ -hostkey=""""fingerprint"""""" ""put local remote"" ""exit"""""

  Dim User As String
  Dim Password As String
  Dim Fingerprint As String
  Dim LocalFile As String
  Dim RemotePath As String
  Dim Command As String
  Dim Server As String

  'TODO: Initialize parameters.
  User = "Inarion"
  Password = "pwd123"
  Fingerprint = "CopiedFromGenerateSessionURLCodeSSHHostKey"
  LocalFile = "c:\users\myname\path\filename.csv"
  RemotePath = "stackoverflow.com/users/path/"
  Server = "999.999.999.999.sftp.stackoverflow.com" ' IPv4 should work as well


  Command = CMD_WINSCP
  Command = Replace(Command, "user", User)
  Command = Replace(Command, "password", Password)
  Command = Replace(Command, "fingerprint", Fingerprint)
  Command = Replace(Command, "local", LocalFile)
  Command = Replace(Command, "remote", RemotePath)
  Command = Replace(Command, "server", Server)
  Debug.Print Command
  Shell Command

from Immediate window:
WinSCP.com /Command "open sftp://Inarion:pwd123@999.999.999.999.sftp.stackoverflow.com/ -hostkey=""CopiedFromGenerateSessionURLCodeSSHHostKey""" "put c:\users\myname\path\filename.csv sftp.stackoverflow.com/users/path/" "exit""

Answer 1

看来您是在专门询问连接字符串。我 99% 确定你所拥有的那个是不正确的。您需要将服务器（IP）地址放在那里（而不仅仅是在远程文件夹中）。特别是因为密码分配状态为ActualSFTPPassword,butNo@orDomain。

我无法确定您的连接字符串来自何处，但假设您是从 official documentation 获得的，我无法识别语法错误。

请将以下三行添加到您的代码中（在适当的位置）：

Dim Server as String
Server = "yourTargetDomain.com" ' IPv4 should work as well
Command = Replace(Command, "server", Server)

然后再试一次。

示例：从sftp://user:password@server/ 开始，用户名Inarion 和虚构密码pwd123 和目标域Stackoverflow.com，您将得到sftp://inarion:pwd123@Stackoverflow.com/ 作为命令字符串的第一部分。