ThisWorkbook.SaveAs Filename 不保存并且没有错误代码（我看到了）答案

【问题标题】：ThisWorkbook.SaveAs Filename doesn't save and no error code (that I see)ThisWorkbook.SaveAs Filename 不保存并且没有错误代码（我看到了）
【发布时间】：2019-11-03 15:44:22
【问题描述】：

我是新手。我继承了将工作表从每月工作簿复制到新工作簿并创建摘要表的代码。它适用于 4 月的数据，但对于 5 月和以后几个月的数据，当它保存时它会旋转一点，然后就死了，没有错误代码。我无法弄清楚可能导致此死亡的每月工作表之间必须有什么不同。我已经在即时模式下运行，但仍然没有看到任何问题的迹象。任何有关如何追踪问题的建议将不胜感激。

Set wb2 = ActiveWorkbook
wb2.Activate
Sheets("977-053").Select 'Add sheets
ActiveSheet.Shapes.Range(Array("Picture 4")).Select
Cells.Select
Selection.Copy
Windows("RH ARAP Summary BASIC.xlsm").Activate
Sheets("Chavez").Select
Cells.Select
ActiveSheet.Paste
wb2.Activate
Sheets("977-05J").Select
Application.CutCopyMode = False
Selection.Copy
Windows("RH ARAP Summary BASIC.xlsm").Activate
Sheets("Pangburn").Select
ActiveSheet.Paste
wb2.Activate
Sheets("977-05K").Select
Application.CutCopyMode = False
Selection.Copy
Windows("RH ARAP Summary BASIC.xlsm").Activate
Sheets("Geier").Select
ActiveSheet.Paste
wb2.Activate
Sheets("977-05R").Select
Application.CutCopyMode = False
Selection.Copy
Windows("RH ARAP Summary BASIC.xlsm").Activate
Sheets("Martin").Select
ActiveSheet.Paste

wb2.Close SaveChanges:=False 'close opened TO 5
MsgBox "ready to Save"
Sheets("RH ARAP Summary").Select 'save ARAP to division folder to send


ThisWorkbook.SaveAs Filename:="May-2"

【问题讨论】：

标签： excel vba filenames save-as

【解决方案1】：

您的代码主要由宏记录器生成。它的作用很简单，但很难以这种形式使用。如果您更改它以便定义变量，它将更清洁和更容易使用。

为了让您入门，这里有一段简单的代码，它执行类似的操作，并正确定义了变量。动画 .gif 显示将内容从一个工作簿中的工作表复制到另一个工作表中的工作表（单击以获取详细信息）。希望您在学习后可以调整以解决您的问题。

Option Explicit
Sub test()
Dim wb As Workbook, wb2 As Workbook
Dim sh As Worksheet, sh2 As Worksheet
Dim r2 As Range
Set wb2 = ThisWorkbook
Set sh2 = wb2.Worksheets("977-053")
Set r2 = sh2.Range("A1")
For Each wb In Workbooks
    If wb.Name = "Book2" Then
        Set sh = wb.Worksheets("Chavez")
        sh.Cells.Copy
        sh2.Activate
        r2.Select
        sh2.Paste
    End If
Next
End Sub

【讨论】：