Sub test()
On Error Resume Next '如果出现错误，忽略，然后执行下一行代码。
Application.ScreenUpdating = False '关闭屏幕刷新,成对出现，提高速度
Application.DisplayAlerts = False '关闭提示，,成对出现，避免出现提示框
'--------------------------------------- 参数声明部分 ------------------- ------------------- -------------------
Dim cnn, SQL$ '定义数据库连接和SQL语句
Set cnn = CreateObject("adodb.connection") '创建数据库连接
Set rs = CreateObject("adodb.recordset") '创建一个数据集保存数据
i = Sheets("汇总").Range("b2").Value
'--------------------------------------- 设置数据库连接 ------------------- ------------------- -------------------
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
SQL = "select 客户姓名，县市，营销结果，通话状态，联系地址，意向客户，备注信息 from [汇总$A1:G20000] where 营销结果=#" & i & "#""
'设置查询字段与查询条件
'--------------------------------------- SQL结果处理 ------------------- ------------------- -------------------
Set rs = cnn.Execute(SQL) '将SQL语句获得的数据传递给数据集
Sheets("汇总").Range("a5:i10000").ClearContents '清理保存数据的区域
Sheets("汇总").Range("a5").CopyFromRecordset rs '将数据集粘贴到Excel中，左上角为A5，无列名。
cnn.Close '关闭数据库连接
Set cnn = Nothing '将CNN从内存中删除。
'--------------------------------------- ------------------------ ------------------- -------------------
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
代码出现了错误 但是我是一个小白 谁能帮我看看修改一下啊！
