求一段代码：在保存文件时，同时在在不同于该文件位置的地方也做一次保存

xchw1818

具体要求如下：
就是一个共享工作簿  放在别人电脑共享里  因为是完全共享，所以就是担心会被误删了

我想在保存这个文件的时候，能够保存到本地D:\Test  这个文件夹里   如果没有文件和文件夹就创建它

要如何写代码，谢谢了 当然这个代码是写在共享工作簿里的，就是任意一台电脑再对这个文件进行编辑保存后

都能在本地创建保存一个在D:\Test的相同文件~~~
我只能会这样一个，但不能自动创建   要事先在使用共享工作簿的电脑里手动创建一个D:\Test\test.xls 的文件
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ActiveWorkbook.SaveCopyAs "D:\Test\test.xls"
End Sub


先谢谢了

xchw1818

各位版版快出来帮帮忙呀，谢谢了~~~~

xchw1818

我查到了，这样写就可以了

在THSEWORKBOOK里 输入如下代码就可以了


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
f = Dir("D:\指令-备份文件", vbDirectory)   '判断是否已经存在
If f = "" Then MkDir ("D:\指令-备份文件\")  '如果不存在就建立
ActiveWorkbook.SaveCopyAs "D:\指令-备份文件\指令登记表.XLS"
End Sub

爱疯

http://oapdf.com/office_jiaocheng/excel_xls/616.html

这样可以吗？