EXCEL宏自定义排序出现的问题

发布网友发布时间：2022-05-06 23:39

共1个回答

热心网友时间：2023-07-18 17:58

Public
Sub
查询符合条件记录行进行复制()
Dim
cnn
As
ADODB.Connection
Dim
rs
As
ADODB.Recordset
Dim
myWorkName
As
String,
N
As
Integer,
Sql
As
String
Dim
ws
As
Worksheet
Set
ws
=
Worksheets("结果")
ws.Cells.Clear
'建立与当前工作簿的连接。
Set
cnn
=
New
ADODB.Connection
With
cnn
.Provider
=
"microsoft.jet.oledb.4.0"
.ConnectionString
=
"Extended
Properties=Excel
8.0;"
_
&
"Data
Source="
&
ThisWorkbook.FullName
.Open
End
With
'指定要查询的工作表名称。
myWorkName
=
"数据"
'设置SQL语句。
'查询全部人员；思路当我们要查询全部人员时，我们可以考虑，“序号”这列，有序号的，序号正确的是从1到N，那么，这个地方我们就可以设置条件，对应序号的条件就是大于等于1的所有行，表示方式就是“>=1”，但要注意，在EXCEL中，大于等于正确的表达于是“>=1”，千万不能写错了，否则代码就会报错。
Sql
=
"select
序号,姓名,科室,级别,身份,职称,受聘专业,性别,出生年月,年龄,参工时间,工作年限,入院时间,入院年限,职务
from
["
&
myWorkName
&
"$]
where
序号>=1"
…………
详细Hi我，快速排序，给你传文件