VBA操作FTP服务实践心得分享（附示例）

xmyjk

对了，刚才有网友问，能不能直接在FTP上面打开EXCEL文件

可以的

1. filename = "ftp://10.15.88.96/a/ftp%BC%DB%B8%F1.xls"
   
2. Workbooks.Open (filename), ReadOnly:=True

复制代码

以上代码就是，打开FTP根目录下A文件夹中的”FTP价格.xls“

网址上面，中文必须用URLEncode转码，URLEncode函数代码如下：

1. Public Function URLEncode(strInput As String) As String
   
2. '-------------------------------------------------------
   
3. '示例: Debug.Print URLEncode("PowerBASIC中国")
   
4. '-------------------------------------------------------
   
5. Dim strOutput As String
   
6. Dim intAscii As Integer
   
7. Dim I As Integer
   
8. Dim strTemp As String
   
9. 
   
10. For I = 1 To Len(strInput)
    
11. intAscii = Asc(Mid(strInput, I, 1))
    
12. If ((intAscii < 58) And (intAscii > 47)) Or _
    
13. ((intAscii < 91) And (intAscii > 64)) Or _
    
14. ((intAscii < 123) And (intAscii > 96)) _
    
15. Then
    
16. strOutput = strOutput & Chr$(intAscii)
    
17. Else
    
18. strTemp = Trim$(Hex$(intAscii))
    
19. strOutput = strOutput & "%" & Left(strTemp, 2) & "%" & Right(strTemp, 2)
    
20. End If
    
21. Next
    
22. URLEncode = strOutput
    
23. End Function

复制代码

轻狂人生

顶贴~不过看不懂···

laosanjie

谢谢楼主的好帖！下载慢慢学习！

a15041741144

gfdghhgfdgsdgfdfgdgsdgsdgsd

290283644

虽然不懂vba，但是很感兴趣，谢谢老师辛苦了。

手心的斑駁

哇，很不錯的教程，謝謝大師分享。

deweyfbi

超强技术贴，需要顶呀~

lijunjie555

收藏学习，谢谢！

xuehao

精品文章，收藏再看！

hhzjxss

是个好东东，可惜我平常很少用FTP