VBA运行时错误1004提取范围有一个缺less或无效的字段名称

请，我在我的macros的这部分中出现错误。 它显示我这个错误：

1004 the extract range has a missing or invalid field name 

在这一行中：

 Range("'CF Backlog.xls'!DATA").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("C1:BJ1"), Unique:= _ False 

码：

 Sheets("Template").Activate Range("A1:B2").Select ActiveWorkbook.Names.Add Name:="Criteria", RefersToR1C1:= _ "=Template!R1C1:R2C2" ActiveWorkbook.Names.Add Name:="Criteria", RefersToR1C1:= _ "=Template!R1C1:R2C2" 'Range("C1:BJ1").ClearContents Range("'CF Backlog.xls'!DATA").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("C1:BJ1"), Unique:= _ False 

我花了很多时间检查论坛。 但是，我仍然无法解决这个问题。 有什么build议么？

Answer 1

也许尝试清除目标范围

 Sheets("Template").Activate Range("A1:B2").Select ActiveWorkbook.Names.Add Name:="Criteria", RefersToR1C1:= "=Template!R1C1:R2C2" 'ActiveWorkbook.Names.Add Name:="Criteria", RefersToR1C1:= "=Template!R1C1:R2C2" ' why do you add the same named range two times ??!! Range("C1:BJ1").ClearContents ' <-- uncomment this line Range("'CF Backlog.xls'!DATA").Select ' and check if this gives any error Range("'CF Backlog.xls'!DATA").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("C1:BJ1"), Unique:= _ False