急，在线等

htcwy

如果需要excel在保存时能够自动保存到另一个地方作为副本，我们可以在before save中加入：
thisworkbook.savecopyas "D:\123.xls"
　现在的问题是，如果源文件叫 aaa.xls ,怎么样才能保存时在D盘也保存为：aaa.xls，　
请指教，急用，在线等

tanjh

sub BtnSave()

thisworkbook.save

filecopy thisworkbook.path & "\aaa.xls",""D:\123.xls"

end sub