vbaftp下載
發布時間: 2023-06-05 10:41:51
1. VBA百度下載怎麼解壓安裝
VBA解壓壓縮文件調用的是WinRAR的命令。解壓過程:
1、到官網下載安裝WPS。
2、下載VBA安裝包。
3、安裝VBA解壓或直接打開,上面下載的VBA安裝包,並按順序逐個安裝。
4、安裝完畢。
2. 求Excel VBA教程百度雲
《Excel VBA教程》網路網盤免費下載
鏈接: https://pan..com/s/14vp_pstM90LBPhWlYBfxrw
Excel VBA教程
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
熱點內容