各位大师，哪错了

冷酷的云

定义名称查询.zip (18.08 KB, 下载次数: 8)

2024-1-29 15:43 上传

点击文件名下载附件

Sub 案例区域()
Dim cnn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("汇总表")
ws.Range("A2:G1000").ClearContents
'建立与工作簿的连接
With cnn
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = "Extended Properties=Excel 12.0;" _
& "Data Source=" & ThisWorkbook.FullName
.Open
End With
'进行统计汇总
Sql = "select *from [工资表$A2:F20] where 职级='A'and 基本工资>1000"
Set rs = New ADODB.Recordset
rs.Open Sql, cnn, adOpenKeyset, adLockOptimistic
'复制汇总结果
ws.Range("A2").CopyFromRecordset rs
'关闭查询和连接
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

x-xx-xx

工资表 工作表     

fzxba

1. Sql = "select * from [工作表$A1:F20] where 职级='A' and 基本工资>1000"

复制代码