通过macros保存到Excel中的多个位置

这是我的第一篇文章。

我已经录制了一个macros来将文件保存到Microsoft Excel中的多个位置，并在我的个人function区中创build了一个button以快速激活它。

但是，当我激活macros，我得到提示确认覆盖，我不需要。

我已经阅读了这些论坛中的其他解决scheme，但我不确定在哪里插入代码，因为我自己并不是一个编码器。 有人可以帮忙吗？

Sub SaveToNetworkDrive() ' ' SaveToNetworkDrive Macro ' ' ChDir "V:\#E902MS" ActiveWorkbook.SaveAs Filename:="V:\#E902MS\Greyson's Excel Log.xls", _ FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ChDir "C:\Users\E902MS\Desktop" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\E902MS\Desktop\Greyson's Excel Log.xls", FileFormat:=xlExcel8, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub 

Answer 1

您可以使用FileCopy而不是另存为。 FileCopy会自动覆盖目标文件。 On Error Resume接下来将停止程序崩溃，如果复制到位置中的工作表当前正在使用，但是这也将防止它被覆盖。

编辑：添加保存之前复制。

 Thisworkbook.Save On Error Resume Next FileCopy Application.ThisWorkbook.fullname, "C:\folder\" & Application.ThisWorkbook.Name On Error GoTo 0