Sub SqlToRng(sql$, rng As Range)    '简单版通用SQL查询函数,sql=查询语句,rng=目标单元格
    Dim cnn As Object, mybook$    'New ADODB.Connection
    Set cnn = CreateObject("adodb.connection"): mybook = ThisWorkbook.FullName
    On Error Resume Next
    
    cnn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Extended Properties = Excel 12.0;Data Source =" & mybook
    
    If cnn Is Nothing Then
        cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & mybook
    End If
    
    rng.CopyFromRecordset cnn.Execute(sql)
    Set cnn = Nothing
End Sub