ftp打開在線文件vba
⑴ 如何用ftp命令打開一個文本文件：如下
您好，DOS下或工具下都不能直接在伺服器上打開文件，一定要下載下來才能打開的！
GET命令用來獲取文件。如果你想在默認目錄使用原始文件名下載文件，你要輸入GET <filename> <回車> .
你可以只輸入GET，系統會提示你要下載的文件名，然後提示你存儲到的新文件名（及目錄）。
--------------------------------------------------------------------------------
ftp> get readme.txt
200 PORT command successful.
150 Opening BINARY mode data connection for readme.txt(1571 bytes).
226 Transfer complete.
1571 bytes received in 3.46 seconds (0.45 Kbytes/sec)
--------------------------------------------------------------------------------
上傳
你可以使用SEND命令上傳文件。當然伺服器要允許你上傳文件才行。
SEND命令發送文件.
ftp> send
(local-file) myfile.zip
(remote-file) myfile.zip
200 PORT command successful.
150 Opening BINARY mode data connection for myfile.zip.
226 Transfer complete.
3018 bytes sent in 0.06 seconds (50.30 Kbytes/sec)
要查看文件內容，要下載後才可以！不支持在線打開文件！你現在明白了吧？
⑵ ftp怎麼直接打開文件
需要准備的工具：電腦。
1、首先滑鼠雙擊桌面上的我的電腦，打開。
⑶ VBA中如何用Dir()函數查看ftp伺服器上的文件是否存在
要用SHELL函數:
shell(dir xxxx)
DOS底下的FTP 你可以查幫助
FTP -? 然後按照你的需要寫命令.
例如:
shell("ftp 12.216.10.10 -s:a.txt")
在a.txt里定義你的所有輸入行：
youruserid
password(或anonymous)
cd .\data\200804\01\
dir *.xls
quit
⑷ VBA中如何用FtpFindFirstFile查看FTP上文件是否存在
我做過WORD中的VBA，不知道兄弟是要在什麼環境中運行的。
不同環境，有些函數是有區別的
所以建議你先使用SetFTPDirectory指定目錄，然後再使用FtpFindFirstFile函數，這時sFile應該就是"0000.xls"。
你可以參考一下cFTP類中的GetFTPDirectoryContent方法的代碼。
還沒有安裝FTP伺服器，還不能幫你寫出完整的代碼，你自己先試試，不好意思。
⑸ 怎麼打開一個FTP上的文件
用FTP命令打開一個文本文件的具體方法如下：
DOS下或工具下都不能直接在伺服器上打開文件，一定要下載下來才能打開的！GET命令用來獲取文件。如果你想在默認目錄使用原始文件名下載文件，你要輸入GET <filename> <回車> .
可以只輸入GET，系統會提示要下載的文件名，然後提示存儲到的新文件名（及目錄）。 ftp> get readme.txt 200 PORT command successful. 150 Opening BINARY mode data connection for readme.txt(1571 bytes). 226 Transfer complete. 1571 bytes received in 3.46 seconds (0.45 Kbytes/sec)
上傳 。可以使用SEND命令上傳文件。當然伺服器要允許上傳文件才行。
⑹ ftp上的辦公文件不能在線打開
FTP上的文件都是不能雙擊直接打開的，可以選中文件，點擊右鍵，有一個「編輯」，用這種方式可以打開文件，查看源碼內容，也可以進行修改。右鍵點擊「查看」可以以網頁的形式查看該文件，但是不能修改文件內容。
⑺ excel vba 另存文件到ftp
先新增文件，再的方式做唄
⑻ 怎麼樣在ftp伺服器上直接打開文件
基本上這種情況很難，畢竟存在風險，主要有兩種情況
比如txt，jpg這些沒有風險的，但是在遠程打開，存在的意義也不大
如果像exe這種運行性的程序文件，很容易導致伺服器中毒等風險，所以這些都是不允許的。
⑼ 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
⑽ 怎樣用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