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

ninart · 发表于 2020-11-25 10:07

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

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

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

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

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

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

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

fxl447098457 · 发表于 2020-11-25 10:27

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

aecn · 发表于 2020-11-25 10:38

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

MOY838840554 · 发表于 2020-11-25 10:41

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

ninart · 发表于 2020-11-25 10:57

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

原来还可以这样，受教了

f8b1987 · 发表于 2020-11-25 12:04

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

chis3 · 发表于 2020-11-25 12:47

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

ipkdbr · 发表于 2020-11-26 08:33

膜拜大佬

ninart · 发表于 2020-11-27 14:57

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

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

ninart · 发表于 2020-11-27 16:58

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

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

		自动登录	找回密码
密码			免费注册

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

最新热点 /1