近期在VBA中使用FTP心得分享

ninart

最近用VBA做一个销售系统，因为客户端都是远程的，图片文件传输只能用FTP，在论坛也浏览了不少帖子，实践过程中踩了不少坑，分享出来希望对大家有帮助。

VBA里的FTP三种方法，basp21，winInet和shell
shell不足太多，我根本没用，主要说说另两种方式

1、basp21
     最初用的basp21，测试都ok，但是到客户端运行的时候各种报错
     坑一：不支持64位excel，这个无解，因为只有32位的，所以当时只能建议客户端都用wps
     坑二：无法被动模式，所以受客户端防火墙影响，要不全关，要不就得给wps的et加通过

     总之各种问题层出不穷，受不了了就换winInet

2、winInet
     不用安装插件就方便了不少
     不过调用winInet依旧是32位的，后来在网上查到，Private Declare PtrSafe Function这么写可以兼容32和64，解决版本问题
     防火墙问题同上，lFlags参数据说是设置被动非被动，不过前辈的帖子里只有0是非被动，自己试了半天无果，最后在网上找了很久终于找到值
     &H8000000是被动模式，解决防火墙问题，yeah

总结，还是winInet更好一些，basp21我没能找到设置被动模式的方法，32和64位问题更是无解

补充：都改好后一直稳定无问题，新增的用户点也都正常，只有一个例外，PtrSafe 在一个用户的07里是不支持的，去掉才可以，考虑到如今还用07的几乎没有了，我也不打算在为了这一个半个的去改了

fxl447098457

ptrsafe是version>=2010以后才出现的。07版和03都一样是只有32位的。

aecn

暂时用不到，先做个笔记，感谢楼主分享

MOY838840554

根据系统32位还是64位引用的方法官方有提供解决方案的，#if一下就好了
#If VBA7 Then
'64位api
#Else
'去PtrSafe的32位api#End If

ninart

MOY838840554 发表于 2020-11-25 10:41
根据系统32位还是64位引用的方法官方有提供解决方案的，#if一下就好了
#If VBA7 Then
'64位api

原来还可以这样，受教了

f8b1987

期待楼主出写代码模拟一下

chis3

其實要用vba最好裝32位office
office 64太多坑, 現在留下的api和控件全是32位的

ipkdbr

膜拜大佬

ninart

chis3 发表于 2020-11-25 12:47
其實要用vba最好裝32位office
office 64太多坑, 現在留下的api和控件全是32位的

自己的肯定是32的，但是做成了销售系统部到各个客户端就控制不住了，用啥版本的都有

ninart

f8b1987 发表于 2020-11-25 12:04
期待楼主出写代码模拟一下

其实相关代码，论坛里有两位前辈的帖子都很详细了，我用的也是他们写好的，根据自己实际操作改一些而已，没啥特别创新的