Excel 自动筛选编译错误：应为指令

此代码因错误而失败

---

第18行字符54，预期指令，编译错误vbscipt

在这条线上

xlApp.ActiveSheet.Range（$A$1:$M$730”）。自动筛选字段：=4，运算符：=xlFilterValues，准则1:=Array（2，“2019年11月4日”）

---

它是如何失败的？是否有某种错误消息？第18行字符54，预期指令，编译错误vbsciptin在这一行xlApp.ActiveSheet.Range（“$A$1:$M$730”）。自动筛选字段：=4在错误恢复下一步时语法错误

需要在子或函数中。您是否在VB项目中添加了对Excel对象库的引用？这段代码在哪里运行？它是如何失败的？是否有某种错误消息？第18行字符54，预期指令，编译错误vbsciptin在这一行xlApp.ActiveSheet.Range（“$A$1:$M$730”）。自动筛选字段：=4在错误恢复下一步时语法错误

需要在子或函数中。您是否在VB项目中添加了对Excel对象库的引用？这段代码在哪里运行？

Option Explicit

On Error Resume Next

ExcelMacroExample


Sub ExcelMacroExample() 

    Dim xlApp 
    Dim xlBook 

    Set xlApp = CreateObject("Excel.Application") 
    Set xlBook = xlApp.Workbooks.Open("Z:\DDDDDD.XLS", 0, True) 

    xlApp.Cells.Select
    xlApp.Selection.AutoFilter     
    xlApp.ActiveSheet.Range("$A$1:$M$730").AutoFilter Field:=4, Operator:=xlFilterValues, Criteria1:=Array(2, "11/4/2019")
    xlApp.Selection.Copy
    xlApp.Sheets.Add After:=Sheets(Sheets.Count)
    xlApp.ActiveSheet.Paste

    xlBook.CheckCompatibility = False
    xlBook.SaveAs "pathe\Escritorio\filename.xlsx"

    xlApp.Quit 

    Set xlBook = Nothing 
    Set xlApp = Nothing 

End Sub