运行时错误＆＃39; 1004 - Range类的AutoFilter方法失败

Question

运行以下代码时出现上述错误。我对VBA很新，需要一些调试帮助。

Sub TransferTest1()

Dim INQUIRE As Worksheet
Dim QUOTE As Worksheet
Dim ORDER As Worksheet
Dim YString As String
Dim RecString As String

Set INQUIRE = ActiveWorkbook.Sheets("Inquiries")
Set QUOTE = ActiveWorkbook.Sheets("Quotes")
Set ORDER = ActiveWorkbook.Sheets("Orders")

With INQUIRE.Range("A6:K1200")
    .AutoFilter 11, "Y"
    .Offset(1).Resize(, 7).Copy QUOTE.Range("A6")  ' columns A:G
    .AutoFilter
End With

With QUOTE.Range("A6:N1200")
    .AutoFilter 14, "Rec'vd"
    .Offset(1).Resize(, 7).Copy ORDER.Range("A6") ' columns A:G
    .Offset(1).Resize(, 2).Offset(11).Copy ORDER.Range("K6")  ' columns L:M
    .AutoFilter
End With

End Sub

提前感谢您的帮助！

R上。 Smithey

Answer 1

在使用

之前调用.AutoFilter

if .parent.autofiltermode then .parent.autofiltermode = false

如果它们存在，这将关闭任何预先存在的.AutoFilters，如果它们不存在则不执行任何操作。