如果满足条件，则从不同的工作簿中复制和粘贴VBA Excel

Question

我正在尝试根据今天的日期自动复制一组数据。 我想要做的是，拥有我想要复制数据的工作簿（已经打开），更改日期，并自动复制我通过电子邮件发送的文件中的数据。

现在我可以这样做，但现在我只想复制数据，如果列P与原始工作簿中的Cell AV1（也是日期）相同。我已经调整了我的代码，但它不再有用了，我得到了

  

RUNTIME ERROR 9下标超出范围

非常感谢任何想法。

Sub import()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim rangedate As Range
    Set wb1 = ActiveWorkbook
    Set wb2 = Workbooks.Open("Location of file\.csv") 
    Set rangedate = wb2.Sheets(1).Range("P2:P1000")

    For Each cell In rangedate
        If cell.Value = Workbooks("Original workbook.xlsm").Range("AV1") Then
            ActiveCell.EntireRow.Copy
            wb.Range("A").PasteSpecial Paste:=xlValues
        End If
    Next

    Application.CutCopyMode = False
    wb2.Close SaveChanges:=False
End Sub