運行時錯誤'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

預先感謝您的幫助！

史密斯

Answer 1

在每次調用.AutoFilter ，

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

如果存在的話，這將關閉所有現有的.AutoFilters，如果不存在，則不執行任何操作。