VBA实现FTP上传文件的两种方式:①shell cmd命令②vba调用vb.net(传参并获取返回值)

VBA实现FTP上传文件的两种方式:①shell cmd命令②vba调用vb.net(传参并获取返回值)

本文想要上传文件夹内 特定文件名(Excel单元框内手动输入文件名)的文件。vb.net实现FTP文件的上传,代码简单,但vba需要调用所生成的exe文件 实现参数的传递并获取exe的返回值。但在用单纯的vba代码实现FTP文件上传的时候发现,。
如图⬇
在这里插入图片描述

方式1:单纯vba代码→shell cmd命令

vba需要①添加新的控件或者是②直接调用cmd命令,问题多多略显鸡肋。
 ①添加新的控件→需要自行下载控件而放弃,未作尝试。
 ②直接调用cmd命令→需要关闭ftp的防火墙,手动进入被动模式(literal pasv)。因环境而异尝试之后有点电脑可有的电脑则无法执行up语句。vba代码仅供参考:

Dim creatDate, fileName, FILE_DIR,localFileName As String
Dim localFilePathName,batfile  As String
Dim FtpSevr,FtpUser,FtpPw,FtpPATH As String
creatDate = Trim(Worksheets(strSheetNM).Cells(4, 3))
fileName = Trim(Worksheets(strSheetNM).Cells(5, 3))
FILE_DIR = "D:\ftpjp\" '本地文件路径
FtpSevr = "**********" 'Ftp名称
FtpUser = "**********" 'Ftp用户名
FtpPw = "**********" 'Ftp密码
FtpPATH = "**********" 'Ftp上存放uploa的文件夹名
'如果本地文件路径D:\ftpjp\中存在文件名含有fileName的xml类型的文件
If Dir(FILE_DIR & creatDate & "\" & "*" & fileName & "*.xml
  • 1
    点赞
  • 22
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值