当前位置:首页 » 文件管理 » excelvba上传附件

excelvba上传附件

发布时间: 2023-09-20 07:13:09

Ⅰ Excel 怎样用vba实现文件上传ftp服务中

VBA访问FTP进行文件传输的,网络上见到3种方式,用过2种。

一、VBA+DOS批处理的方式,本质上还是通过DOS来进行,有点麻烦,而且运行中会弹出CMD窗口,现在已经不用这种方法了。

VBA写DOS:

OpengetfdForOutputAs#1
Print#1,""
Print#1,"("
Print#1,"echo;openxx.xx.xx.xx"
Print#1,"echo;user"
Print#1,"echo;pwd"
Print#1,"echo;cd""";ftpfdx8;""""
Print#1,"echo;prompt"
Print#1,"echo;dir"
Print#1,"echo;bye"
Print#1,")>""";fdx8;""""
Print#1,

Print#1,"ftp-v-i-s:""";fdx8;"""|find""ftpgroup"">""";folderx8;""""
Print#1,

VBA运行它:

Shell("ftp-v-i-s:"&ftpfile)

二、VBA调用API,具体是basp21.dll

详见http://www.hi-ho.ne.jp/babaq/eng/basp21f.html,说明很详细,有实例

示例如下,比较简单易懂,其中getfile为下载,上传使用putfile就好了。

PrivateSubForm_Load()
DimftpAsObject,rcAsLong,vAsVariant,v2AsVariant
DimctrAsLong
Setftp=CreateObject("basp21.FTP")
ftp.OpenLog"c: emplog.txt"
rc=ftp.Connect("ftp.microsoft.com","anonymous","")
Ifrc=0Then
v=ftp.GetDir("bussys/winnt/winnt-public",2)
IfIsArray(v)Then
ForEachv2Inv
Debug.Printv2
Next
EndIf
v=ftp.GetDir("bussys/winnt/winnt-public")
IfIsArray(v)Then
ForEachv2Inv
Debug.Printv2
Next
EndIf
rc=ftp.GetFile("bussys/winnt/winnt-public/*","c: emp")
EndIf
End
EndSub
热点内容
php办公系统 发布:2025-07-19 03:06:35 浏览:896
奥德赛买什么配置出去改装 发布:2025-07-19 02:53:18 浏览:38
请与网络管理员联系请求访问权限 发布:2025-07-19 02:37:34 浏览:187
ipad上b站缓存视频怎么下载 发布:2025-07-19 02:32:17 浏览:842
phpcgi与phpfpm 发布:2025-07-19 02:05:19 浏览:525
捷达方向机安全登录密码是多少 发布:2025-07-19 00:57:37 浏览:690
夜魔迅雷下载ftp 发布:2025-07-19 00:39:29 浏览:97
增值税票安全接入服务器地址 发布:2025-07-19 00:20:45 浏览:484
solidworkspcb服务器地址 发布:2025-07-18 22:50:35 浏览:820
怎么在堆叠交换机里配置vlan 发布:2025-07-18 22:42:35 浏览:628