求助：可不可以用VBA实现这样的功能

gzygzy

用VBA可不可以实现这样的功能，在文档的末尾加一个“提交试卷”的按钮，点击它即可将试卷保存到FTP服务器中

七叶一枝梅

ＦＴＰ地址支持直接存，不过要有相应的写入权限．

Private Sub CommandButton1_Click() ChangeFileOpenDirectory "ftp://192.168.0.3/汇总文件夹/" ActiveDocument.SaveAs FileName:="FileName.doc", FileFormat:=wdFormatDocument End Sub

或者干脆直接写为：

Private Sub CommandButton1_Click() ActiveDocument.SaveAs FileName:=ftp://192.168.0.3/汇总文件夹/FileName.doc End Sub

[此贴子已经被作者于2005-10-29 11:46:43编辑过]

sayeah51

那如果fpt是有账号的呢？账号和密码信息又在什么地方加入呢？请七叶大哥指教。

gzygzy

不行啊，报错

七叶一枝梅

to 楼上：

你的FTP如果不允许匿名访问，或者是“只读”的，你当然就会不成功。

在VBA的代码中不允许直接使用访问FTP站点的用户名与密码（反复尝试，代码中可以加入用户名，像这样“ftp://用户名@192.168.0.2/”，但这个字符串中加不了密码，这可能是一种基于密码安全的保护机制，如下面的图，用户名“a”已自动加上了，但每次都必须手工输入密码）。如果你手工将文档保存到一个FTP站点，你同样会看到如图的提示——用户与密码都没有加密！

如果楼主是在局域网内进行这个“远程保存”的动作的话，我建议你不要使用FTP，直接在目标机上使用共享文件夹，在本地机上将目标文件夹映射为“网络磁盘”(在“网上邻居”上点右键，可以看到“映射网络驱动器”)，这样就可以像保存到本地磁盘一样来操作了(代码相应也就简单了)。

如果楼主不是保存在局域网内的某个目标机，而是要保存到某个互联网上的目标机去，则同样不建议使用FTP，原因如前图所示，保密性不好，好一点的办法是使用XMLHTTP，详细情况请参：

http://club.excelhome.net/viewthread.php?tid=121647

[此贴子已经被作者于2005-10-29 23:34:47编辑过]