需要一个打开excel就自动保存一份备份的代码,写完之后系统提示“编译错误:过程声明与事件描述不匹配,或过程具有相同的名称”。
能不能看看问题出在哪里了?万分感谢!
Private Sub Workbook_Open(Cancel As Boolean)
On Error Resume Next
Dim mypath As String, fname As String
fname = Format(Date, "yymmdd") & ThisWorkbook.Name
mypath = ThisWorkbook.Path & "/备份/"
ThisWorkbook.SaveCopyAs mypath & fname
End Sub