Question

这是我的第一篇文章。

我已经录制了一个宏来将文件保存到Microsoft Excel中的多个位置，并在我的个人功能区中创建了一个按钮以快速激活它。

然而，当我激活宏时，我会收到确认覆盖的提示，但我并不需要。

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

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

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

1 个答案: