为什么我的代码不复制ThisWorkbook并用一个新的增量名称保存它(为了版本历史)？

Sub SaveWorkbookWithIncrementalName()
    Dim originalWorkbook As Workbook
    Dim newWorkbook As Workbook
    Dim savePath As String
    Dim fileName As String
    
    ' 获取当前工作簿的引用
    Set originalWorkbook = ThisWorkbook
    
    ' 设置保存路径和文件名
    savePath = "C:\Path\To\Save"
    fileName = "Workbook_" & Format(Now, "yyyymmdd_hhmmss") & ".xlsx"
    
    ' 复制工作簿
    originalWorkbook.SaveCopyAs savePath & "\" & fileName
    
    ' 打开新的副本
    Set newWorkbook = Workbooks.Open(savePath & "\" & fileName)
    
    ' 在新的副本中进行操作
    ' ...
    
    ' 关闭并保存新的副本
    newWorkbook.Close SaveChanges:=True
End Sub