自用Excel VBA函数整理 part1

用于二维的Dictionary：

ExecuteSelect

Public Sub ExecuteSelect(connStr, selectTxt, destTopLeft As Range)
On Error GoTo ExecuteSelect_Err
Set ws = destTopLeft.Worksheet

Set conn = CreateObject("ADODB.Connection")
conn.Open connStr
Set rs = conn.Execute(selectTxt)

For i = 0 To rs.Fields.Count - 1
destTopLeft.Offset(0, i) = rs.Fields(i).Name
Next i
destTopLeft.Offset(1, 0).CopyFromRecordset rs

ExecuteSelect_Clean:
If Not IsEmpty(rs) Then
rs.Close
End If
If Not IsEmpty(rs) Then
conn.Close
End If
Set rs = Nothing
Set conn = Nothing
Exit Sub
ExecuteSelect_Err:
MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
GoTo ExecuteSelect_Clean
End Sub