怎么从其他工作簿筛选数据

馋嘴肥猫

下面这段代码，可以从SHEET2中取数，如果把这个数据源保存在当前目录"外部.xlsx"的SHEET1中，下方代码要怎么修改，请指点。
Sub 我的测试()

    Dim cnn, sql$
    Set cnn = CreateObject("adodb.connection")
    Set ds = New ADODB.Recordset


    sql = "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no;';data source=" & ThisWorkbook.FullName
    cnn.Open sql   
    sql = "select * from  [Sheet2$a3:f10] where f1=2"

    '保存输出
    Range("a4").CopyFromRecordset cnn.Execute(sql)


    '关闭数据库连接和清空资源
     Set ds = Nothing
     cnn.Close
     Set cnn = Nothing
End Sub