VBA中的SFTP上传 [英] SFTP upload in VBA

问题描述

下面的 Dode 不会返回错误，或成功"或失败"，但它也不起作用 - 子 TestUpload 中的信息是大写的，这是我为制作此帖子而更改的唯一信息 - 其他所有信息是合法的 - 提前致谢.

Dode below doesn't return an error, or "success" or "fail" but it also doesn't work - information in the sub TestUpload that is CAPITALIZED is the only info that i changed to make this post - everything else is legit - thanks in advance.

Option Compare Database

Private Const FTP_TRANSFER_TYPE_UNKNOWN     As Long = 0
Private Const INTERNET_FLAG_RELOAD          As Long = &H80000000

Private Declare Function InternetOpenA Lib "wininet.dll" ( _
    ByVal sAgent As String, _
    ByVal lAccessType As Long, _
    ByVal sProxyName As String, _
    ByVal sProxyBypass As String, _
    ByVal lFlags As Long) As Long

Private Declare Function InternetConnectA Lib "wininet.dll" ( _
    ByVal hInternetSession As Long, _
    ByVal sServerName As String, _
    ByVal nServerPort As Long, _
    ByVal sUsername As String, _
    ByVal sPassword As String, _
    ByVal lService As Long, _
    ByVal lFlags As Long, _
    ByVal lcontext As Long) As Long

Private Declare Function FtpPutFileA _
   Lib "wininet.dll" _
 _
       (ByVal hFtpSession As Long, _
        ByVal lpszLocalFile As String, _
        ByVal lpszRemoteFile As String, _
        ByVal dwFlags As Long, _
        ByVal dwContext As Long) As Boolean

Private Declare Function InternetCloseHandle Lib "wininet" ( _
    ByVal hInet As Long) As Long

Sub FtpUpload(ByVal strLocalFile As String, ByVal strRemoteFile As String, ByVal strHost As String, ByVal lngPort As Long, ByVal strUser As String, ByVal strPass As String)
    Dim hOpen   As Long
    Dim hConn   As Long

    hOpen = InternetOpenA("FTPGET", 1, vbNullString, vbNullString, 1)
    hConn = InternetConnectA(hOpen, strHost, lngPort, strUser, strPass, 1, 0, 2)

    If FtpPutFileA(hConn, strLocalFile, strRemoteFile, FTP_TRANSFER_TYPE_UNKNOWN Or INTERNET_FLAG_RELOAD, 0) Then
        Debug.Print "Success"
    Else
        Debug.Print "Fail"
    End If

    'Close connections
    InternetCloseHandle hConn
    InternetCloseHandle hOpen

End Sub


Sub TestUpload()
  FtpUpload "C:\Users\FOLDER\UPLOAD FILE.csv", "/<root>/SFTPSITE FOLDER NAME/admin", _
            "IP.ADDRESS.OF.SFTPSITE", "22", "[e-mail]", "PASSWORD"
End Sub

推荐答案

WinINet函数不支持SFTP协议(FTP协议完全不同).

WinINet functions do not support SFTP protocol (FTP protocol is completely different).

在 VBA 和 Windows API 中都没有对 SFTP 的原生支持.您必须使用第 3 方库或软件.

There's no native support for SFTP in VBA nor in Windows API. You have to use a 3rd party library or software.

请参阅这些问题的一些示例:

See these questions for some examples:

• 使用 WinSCP 脚本:使用 VBA 运行 WinSCP 脚本
• 使用 WinSCP .NET 程序集:获取未定义用户定义的类型"尝试在 VBA 中使用 WinSCP .NET 程序集将文件上传到 SFTP 时

(我是 WinSCP 的作者)

这篇关于VBA中的SFTP上传的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！