怎样用vba实现文件上传到ftp服务中

VBA访问FTP进行文件传输的，网络上见到3种方式，用过2种。

一、VBA+DOS批处理的方式，本质上还是通过DOS来进行，有点麻烦，而且运行中会弹出CMD窗口，现在已经不用这种方法了。

VBA写DOS：

Open getfd For Output As #1

    Print #1, "setlocal EnableDelayedExpansion"

    Print #1, "("

    Print #1, "echoopen xx.xx.xx.xx"

    Print #1, "echouser"

    Print #1, "echopwd"

    Print #1, "echocd """ ftpfdx8 """"

    Print #1, "echoprompt"

    Print #1, "echodir"

    Print #1, "echobye"

    Print #1, ") > """ fdx8 """"

    Print #1,

    

    Print #1, "ftp -v -i -s:""" fdx8 """ | find ""ftpgroup""  >  """ folderx8 """"

    Print #1,

VBA运行它：

Shell ("ftp -v -i -s:" & ftpfile)

二、VBA调用API，具体是basp21.dll

详见http://www.hi-ho.ne.jp/babaq/eng/basp21f.html，说明很详细，有实例

示例如下，比较简单易懂，其中getfile为下载，上传使用putfile就好了。

Private Sub Form_Load()

Dim ftp As Object, rc As Long, v As Variant, v2 As Variant

Dim ctr As Long

Set ftp = CreateObject("basp21.FTP")

ftp.OpenLog "c:\temp\log.txt"

rc = ftp.Connect("ftp.microsoft.com", "anonymous", "")

If rc = 0 Then

    v = ftp.GetDir("bussys/winnt/winnt-public", 2)

    If IsArray(v) Then

        For Each v2 In v

           Debug.Print v2

        Next

    End If

    v = ftp.GetDir("bussys/winnt/winnt-public")

    If IsArray(v) Then

        For Each v2 In v

           Debug.Print v2

        Next

    End If

    rc = ftp.GetFile("bussys/winnt/winnt-public/*", "c:\temp")

End If

End

End Sub

因为shell语句是调用程序来运行的，你应该调用程序，并且把参数传递给程序，这样就行了...

比如，Shell "C:\Program Files\Internet Explorer\iexplore.exe www.baidu.com"，这样就能用IE链接到百度上...

你的可以试试Shell "C:\Program Files\Internet Explorer\iexplore.exe ftp://anonymous@172.16.3.254\123\123\12#.xls"，用Shell "C:\WINDOWS\explorer.exe " &"ftp://anonymous@172.16.3.254\123\123\12#.xls"也可以...我这边测试时没权限，上不去...

由于你是连接服务器，有时需要用户权限，这样的话，参数就要相对复杂一点...

---