Application.DisplayAlerts = False 后出错

Question

我正在尝试从前一天的文件中复制特定单元格，并将它们作为文本粘贴到当前工作簿中的同一位置。

我只希望在星期四完成。

Sub OpenFile()

If Weekday(Now()) = vbThursday Then

    FileYear = Year(Date)
    FileDate = Format(Date, "yymmdd")
    FilePath = "I:\Example\2020\" & Format(Now() - 1, "yymmdd") & " " & _
      "Sequentieanalyse werkblad.xlsm"

    Workbooks.Open (FilePath)

    Range("P48:Z57").Select
    Selection.Copy
    ActiveWorkbook.Close False

    Sheets("Monsterlijst").Select
    Range("P48:Z57").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False

End If

End Sub

当我运行我的代码时，我收到一个消息框，提示剪贴板上有很多信息，我必须选择是、否或中止，然后是运行时错误 1004，其中一个选项。
当我使用Application.DisplayAlerts = False 时，我还会收到运行时错误 1004。

删除 ActiveWorkbook.Close False 时没有错误消息，但我的信息将粘贴回我正在复制的工作簿中，而不是当前工作簿中。
我还希望关闭前一天的文件以防止混淆。

复制部分确实有效，因为如果我取消错误消息，我可以手动粘贴它。

如果星期四是银行假日，我将如何调整代码以在星期五而不是星期四运行？

Answer 1

您的代码效率极低。请牢记@GSerg 评论并阅读如何避免使用 select。

您在这里特别面临的问题是您在将复制的单元格粘贴到任何地方之前关闭了工作簿，从而导致您的错误。这可以通过将Paste 操作移到Close 操作上方来完全防止：

Option Explicit

Sub OpenFile()
Dim ref As Workbook
Dim filepath As String

If Weekday(Now()) = vbThursday Then

filepath = "I:\Example\2020\" & Format(Now() - 1, "yymmdd") & " " & "Sequentieanalyse werkblad.xlsm"

Set ref = Workbooks.Open(filepath)

Range("P48:Z57").Copy
ThisWorkbook.Sheets("Monsterlijst").Range("P48:Z57").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

ref.Close False
End If

End Sub

（代码也优化以避免使用选择）