Vba Excel 2013无法复制工作表

当我尝试手动将工作表复制到新工作簿时，Excel什么也不做
当我试图手动将工作表复制到工作簿的末尾时，Excel会生成空的新工作表

当我尝试使用VBA复制图纸时：

Sub TransEx()
    Dim TemplatesFolder As String, FileName As String
    TemplatesFolder = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
    FileName = TemplatesFolder & "Transactions" & ".xlsx"
    If Len(Dir(FileName)) <> 0 Then Kill FileName

    ThisWorkbook.Worksheets("Baza").Copy

    Application.ActiveWorkbook.SaveAs FileName, FileFormat:=51
End Sub

Sub-TransEx（）
Dim模板文件夹为字符串，文件名为字符串
TemplatesFolder=Replace（ThisWorkbook.FullName，ThisWorkbook.Name，“”）
FileName=TemplatesFolder&“事务”和“.xlsx”
如果Len（Dir（FileName））为0，则终止FileName
此工作簿。工作表（“Baza”）。副本
Application.ActiveWorkbook.SaveAs文件名，文件格式：=51
端接头

我在

此工作簿上出错。工作表（“Baza”）。复制

运行时错误“1004”：工作表类的复制方法失败

如何解决此问题？
尝试定义复制方法的目标

Sub TransEx()
Dim TemplatesFolder As String, FileName As String
    TemplatesFolder = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
    FileName = TemplatesFolder & "Transactions" & ".xlsx"
    If Len(Dir(FileName)) <> 0 Then Kill FileName

    Set wbO = Workbooks.Add

    ThisWorkbook.Worksheets("Baza").Copy Before:=wbO.Sheets(1)


    Application.ActiveWorkbook.SaveAs FileName, FileFormat:=51

End Sub

Sub-TransEx（）
Dim模板文件夹为字符串，文件名为字符串
TemplatesFolder=Replace（ThisWorkbook.FullName，ThisWorkbook.Name，“”）
FileName=TemplatesFolder&“事务”和“.xlsx”
如果Len（Dir（FileName））为0，则终止FileName
设置wbO=工作簿。添加
此工作簿。工作表（“Baza”）。之前的副本：=wbO.Sheets（1）
Application.ActiveWorkbook.SaveAs文件名，文件格式：=51
端接头
如果您复制了某个内容，您应该粘贴它，对吗？如果您的前两句话是正确的，那么Excel文件或Excel应用程序可能有问题。首先，我会尝试打开文件，并用新名称和位置保存它。然后再次尝试在此新文件中复制图纸。如果它仍然不起作用，那么我将尝试修复Excel应用程序的安装。在
ThisWorkbook.Worksheets（“Baza”）上出现相同的错误。复制之前：=wBo.Sheets（1）