excel内一键进行sql查询（使用方法 1.选择’需要进行sql查询区域 包括字段名 2 输入sql语句 3.选择输出数据的单元格）

‘ 把该代码放入xlam后，在自定义功能区加载快捷键 alt+2

‘ 使用方法 1.选择’需要进行sql查询区域 包括字段名 2 输入sql语句 3.选择输出数据的单元格

Sub ExcelSQL()         Dim strCon As String     Dim rs As ADODB.Recordset  '设置记录集     Dim i, t     Dim Rng1 As Range     Dim Rng2 As Range          On Error Resume Next          Set Rng1 = Selection     Set Con = CreateObject("ADODB.Connection")               Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=excel 12.0;Data Source=" & ActiveWorkbook.FullName     strCon = "[" & ActiveSheet.Name & "$" & Replace(Rng1.Address, "$", "") & "]"     strSql = Application.InputBox("请输入SQL语句，数据源用@代替：", Type:=2)     strSql = Replace(strSql, "@", strCon)               Set Rng2 = Application.InputBox("请选择输出位置：", Type:=8)     Set rs = Con.Execute(strSql)          For i = 0 To rs.Fields.Count - 1 '逐个字段               Rng2.Offset(0, i) = rs.Fields(i).Name '取字段名  字头放置在cell(3,3)     Next i          'Rng2.CopyFromRecordset Con.Execute(strSql)  '不要字段          Rng2.Offset(1, 0).CopyFromRecordset Con.Execute(strSql)     Set Con = Nothing End Sub