Ⅰ 如何在VBA中增加代码，可使导入FTP：//1.1.1.1/下的文件自动录入用户名和密码
俺也不会阿 等高手解答
Ⅱ vba 中的用shell连接FTP服务器问题问题
因为shell语句是调用程序来运行的，你应该调用程序，并且把参数传递给程序，这样就行了...
比如，Shell "C:\Program Files\Internet Explorer\iexplore.exe www..com"，这样就能用IE链接到网络上...
你的可以试试Shell "C:\Program Files\Internet Explorer\iexplore.exe ftp://[email protected]\123\123\12#.xls"，用Shell "C:\WINDOWS\explorer.exe " & "ftp://[email protected]\123\123\12#.xls"也可以...我这边测试时没权限，上不去...
由于你是连接服务器，有时需要用户权限，这样的话，参数就要相对复杂一点...
Ⅲ VBA中如何用FtpFindFirstFile查看FTP上文件是否存在
建议你先使用SetFTPDirectory指定目录，然后再使用FtpFindFirstFile函数，这时sFile应该就是"0000.xls"。
你可以参考一下cFTP类中的GetFTPDirectoryContent方法的代码。
还没有安装FTP服务器，还不能帮你写出完整的代码，你自己先试试，不好意思。
Ⅳ 怎样用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连接Internetopen每次返回的句柄都一样，断开网络也不会出错怎么回事
这个句柄是空闲的 可用的句柄 谁申请 谁就拿过来用 没人申请 就一直放着
你可以在不关闭句柄的情况下 多次open 你就能知道句柄是不一样的
Ⅵ excel VBA有关ftp的函数调用出错
我在VB6.0环境下运行你的程序没有发生错误。
会不会是网络不通畅引起的错误呢？
Ⅶ excel vba 另存文件到ftp
先新增文件，再的方式做呗
Ⅷ 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
Ⅸ 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