當前位置:首頁 » 文件管理 » 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
熱點內容
氣體壓縮能量 發布:2025-03-17 13:00:16 瀏覽:73
壓縮油19 發布:2025-03-17 12:25:29 瀏覽:854
linux上網代理 發布:2025-03-17 12:23:56 瀏覽:358
c是高級語言嗎 發布:2025-03-17 12:16:31 瀏覽:522
python泛型 發布:2025-03-17 12:15:01 瀏覽:481
編程貓被盜 發布:2025-03-17 12:02:18 瀏覽:130
海關鎖密碼箱如何設置新密碼 發布:2025-03-17 11:53:50 瀏覽:559
農業卡號的密碼在哪裡改 發布:2025-03-17 11:48:57 瀏覽:966
楊瀾超級訪問 發布:2025-03-17 11:47:17 瀏覽:237
資料庫無損連接 發布:2025-03-17 11:47:16 瀏覽:13