Excel 2013 无法复制工作表答案

【问题标题】：Excel 2013 cannot copy sheetsExcel 2013 无法复制工作表
【发布时间】：2015-04-22 06:23:32
【问题描述】：

当我尝试手动将工作表复制到新工作簿时，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

ThisWorkbook.Worksheets("Baza").Copy 出现错误

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

如何解决这个问题？

【问题讨论】：

如果你复制一些东西，你应该粘贴它，对吧？
如果你的前两句话是真的，那么要么是 Excel 文件有问题，要么是 Excel 应用程序有问题。首先，我会尝试打开文件并用新的名称和位置保存它。然后尝试在这个新文件中再次复制工作表。如果它仍然不起作用，那么我会尝试修复安装 Excel 应用程序。

标签： vba excel

【解决方案1】：

尝试为 Copy 方法定义目标。

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

【讨论】：

ThisWorkbook.Worksheets("Baza").Copy Before:=wBo.Sheets(1) 出现同样的错误