这个VBA怎么理解，麻烦能做下解释吗？

遗留的记忆

Sub a()
    Dim conn As Object
    Dim sql As String, PathStr As String
    PathStr = ThisWorkbook.FullName
    Set conn = CreateObject("ADODB.Connection")
    Select Case Application.Version * 1
    Case Is <= 11
        conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
    Case Is >= 12
        conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    End Select
    conn.Open
    sql = "select * from [Sheet$] where 件数='1'"
    Set sht = Sheets.Add
    sht.Range("a1").CopyFromRecordset conn.Execute(sql)
End Sub

fxl447098457

这个是sql在Excel VBA中的应用。主要只需要看sql语句的作用。看sql语句就知道是查询sheet1中件数是'1'的内容,然后存放查询的结果到新增的表格里面