[共享]使用Wininet的VBA FTP操作的类模块

zxylxw

原帖由 hysj02 于 2010-7-30 11:14 发表
你的 ClassName 附带着路径，当然不对。

不带路径也不对,有时还是出现导入的CFTP类模块名字变为CFTP1
'导入升级版类模块CFTP
    Dim FileName As String, ClassName As String
    FileName = ThisWorkbook.Path & "\CFTP.cls"
    ClassName ="CFTP"
    Set Vbc = ThisWorkbook.VBProject.VBComponents.Import(FileName)  
    Vbc.Name = ClassName
      '原有的CFTP类名未释放,导致自动命名为CFTP1，从而使其它代码中 DIM CF AS CFTP 类引用失效END SUB

[ 本帖最后由 zxylxw 于 2010-8-8 13:41 编辑 ]

a19410593

Sub UploadFile()
    Dim strRemoteFile As String
    Dim strLocalFile As String
    Set cF = New cFTP
    cF.SetModePassive
    strLocalFile = "C:\VCD1\VCD_PLAY.exe"   '要怎么修改才能实现用手动选择文件来上传，也就是说实现像FlashFXP工具一样的上传其它东西。
    strRemoteFile = "VCD_PLAY.exe"
    If cF.OpenConnection("127.0.0.1", "xfwen", "abc") = False Then
        GoTo errhandle
    End If
    If cF.FTPUploadFile(strLocalFile, strRemoteFile) = False Then
        GoTo errhandle
    End If
    cF.CloseConnection
    Exit Sub
errhandle:
    MsgBox cF.GetLastErrorMessage
    cF.CloseConnection
End Sub

[ 本帖最后由 a19410593 于 2010-8-13 03:07 编辑 ]

Nere

有两个问题请教:(1)我发现不管上传还是下载,文件名中都不能含有中文,如果含有中文,上传能成功,但是中文部分会被一个特殊符号替代,也就是说上传后的文件名和源文件名不一致, 而下载则是完全不能下载; (2)Server不能用域名(解析后的IP地址就是ftp服务器的IP地址不知可行,没试过,因为我的域名是需要用花生壳映射到我的局域网中的一台服务器上的), 否则会出现错误: InternetConnect error code: 12031 Message: 与服务器的连接被重置

请楼主帮忙解决, 不胜感激!!!!!

Nere

不好意思, 第二个问题根本不是问题, 只是我在路由器上忘了设置转发21这个服务端口. 那么现在就剩下文件名含中文的问题了, 还请楼主指教,谢谢!

Nere

第一个问题也解决了,原理是服务器采用Serv-U FTP Server的问题, 当我换成FileZilla server时一切搞定!!!! 再次感谢楼主分享了这么珍贵的代码!!!!!

csb2000cn

马克，先研究一下，不懂再问

好奇心

回复 1楼 winland 的帖子
无需那么复杂：

Private Sub CommandButton1_Click()
'On Error Resume Next
Inet1.URL = "ftp://*.*.*.*/"'IP地址
Inet1.UserName = "***"    'username
Inet1.Password = "***"                  'password
Inet1.Execute , "put C:\123.txt htdocs/myuser/456.txt" '上传文件
'Inet1.Execute , "get htdocs/myuser/456.txt C:\12jj3.txt" '下载文件
MsgBox "Upload done!"
End Sub

'首先引用到microsoft internet  control
'添加控件microsoft internet transfer control

'Put是上传 get是下载——测试成功


请教26楼高手如何引用到microsoft internet  control
和添加控件microsoft internet transfer control，谢谢!!!

xmyjk

好帖，前一阶段做一个VBA查询FTP上文件名的，就是靠它完成的
谢谢WINLAND老师，超崇拜

goldowl2011

学习了VBA与FTP知识，谢谢！！！

liu3liu3liu3

rere eeeeeeeeeeeeeee