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