请问可以用VBA实现office文件的另存功能吗
打开一个word或excel文件，在关闭时让它自动另存到指定文件夹
问题是任意打开的一个office文件，不是指定的某个
请问可以用vba实现吗？
[解决办法]
excel有个personal.xls文件,在xlstart目录里，另存为的代码可以放到这个文件里。
word应该也有，你在网上搜搜。
[解决办法]
代码放在那里呢？
microsoft excel对象下的thisworkbook下还是模块的模块1下
[解决办法]
放到thisworkbook下。
[解决办法]
Private Sub Workbook_Open()
If Dir("E:\备份", vbDirectory) = "" Then '查检E盘中有没有“备份”文件夹
MkDir "E:\备份" '没有就建一个“备份”文件夹
End If
Application.DisplayAlerts = False '取消提示
ThisWorkbook.SaveAs "E:\备份" & ThisWorkbook.Name '备份文件
Application.DisplayAlerts = True '恢复提示
End Sub
贴入以上代码后 只是备份personal.xlsb的文件 而不是打开的文件
[解决办法]
肯定是有的，
查查程序员手册
[解决办法]
不是有没有代码的问题 是复制另存为哪个文件的问题
在personal.xlsb下的thisbook中插入代码只能另存personal.xlsb这个个人宏工作簿
而不是打开的文件
[解决办法]
突然想到这条思路还有个问题，
打开第一个文件时会执行那段代码，
打开第二个文件就不会执行了。
用vba可能实现不了。
