[已解决]excel文档自动另存

caihongniao · 发表于 2011-4-29 12:15

请求解决：u盘excel文档在使用关闭后，自动保存至本地电脑指定目录，谢谢！用vba也行

最佳答案

过江龙

2011-4-29 13:30

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.SaveAs Filename:="E:\支出明细汇总\" & ActiveWorkbook.Name & ".xls" '将“"E:\支出明细汇总\"”改为你指定的路径即可
End Sub
把以上代码放在ThisWorkbook内。

跳转到最佳答案楼层

过江龙 · 发表于 2011-4-29 13:30

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.SaveAs Filename:="E:\支出明细汇总\" & ActiveWorkbook.Name & ".xls" '将“"E:\支出明细汇总\"”改为你指定的路径即可
End Sub
把以上代码放在ThisWorkbook内。

飞天小猪 · 发表于 2011-4-29 21:08

回复过江龙的帖子

受教了，以后可以自动保存工作薄了，哈哈哈，全自动

caihongniao · 发表于 2011-5-6 21:38

谢谢，但我不知道代码输入之后如何保存，请赐教！！

caihongniao · 发表于 2011-5-6 22:27

为什么这个代码只能用来另存保存这个代码的文档？
也就是说如果将这个代码保存为book.xls，则只在打开并关闭book.xls时另存这个工作薄到指定目录？谢谢指教！

caihongniao · 发表于 2011-5-7 21:50

如何仅仅将u盘上的文件自动另存

caihongniao · 发表于 2011-5-7 22:09

excel vba代码能不能像word中的vba代码一样固定与word 本身，任何一个word文件打开，都可自动运行

chenzhi_juan · 发表于 2011-5-7 22:30

二楼正解

chenzhi_juan · 发表于 2011-5-7 22:31

没有办法，你如果也想保存其它的档案，同样要加这些代码的。

		自动登录	找回密码
密码			注册