求助！按照条件从一个表提取匹配到另一个表

mxw222 · 发表于 2021-9-25 10:08

大神，请在数据表中调用义教学生的信息匹配到表2义教表中，在数据表中调用高中学生的信息匹配到表3高中表中，在数据表中调用学前学生的信息匹配到表4学前表中

义教：包括一年级，二年级，三年级，四年级，五年级，六年级，七年级，八年级，九年级
高中：高一、高二、高三
学前包括：幼儿园大班、幼儿园中班、幼儿园小班
其他：包括除了上面情况外的所有

mxw222 · 发表于 2021-9-25 10:11

求助大神！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

mxw222 · 发表于 2021-9-25 10:32

时间比较紧，球球大神们了！！！！！！！！！！！！

hourhand · 发表于 2021-9-25 10:44

本帖最后由 hourhand 于 2021-9-25 11:04 编辑

附件仅供参考。已添加清空功能。

shiruiqiang · 发表于 2021-9-25 10:45

义教是否包括高中人员？小白问一下

mxw222 · 发表于 2021-9-25 10:46

shiruiqiang 发表于 2021-9-25 10:45
义教是否包括高中人员？小白问一下

义教不包括高中人员

mxw222 · 发表于 2021-9-25 10:49

hourhand 发表于 2021-9-25 10:44
附件仅供参考

大神，为什么，点一下按钮，再一次点按钮前一次的数据不能清空，求大神在改进一下，太谢谢了

mxw222 · 发表于 2021-9-25 10:56

hourhand 发表于 2021-9-25 10:44
附件仅供参考

求大神在帮帮忙了，跪谢！跪谢！跪谢！跪谢！跪谢！跪谢！跪谢！跪谢！

xiangbaoan · 发表于 2021-9-25 11:01

Sub test()
Dim Cnn As Object, Sql As String, sht As Worksheet
Set Cnn = CreateObject("ADODB.Connection")
If Application.Version < 12 Then
Cnn.Open "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
Else
Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
End If
For Each sht In Worksheets
With sht
If .Name <> "数据" Then
Select Case .Name
Case "义教"
Sql = "SELECT 姓名,成绩,年级,年龄,身份证 FROM [数据$A1:E] WHERE 年级 LIKE '_年级'"
Case "高中"
Sql = "SELECT 姓名,成绩,年级,年龄,身份证 FROM [数据$A1:E] WHERE 年级 LIKE '高_'"
Case "学前"
Sql = "SELECT 姓名,成绩,年级,年龄,身份证 FROM [数据$A1:E] WHERE 年级 LIKE '幼%班'"
Case "其他"
Sql = "SELECT 姓名,成绩,年级,年龄,身份证 FROM [数据$A1:E] WHERE NOT 年级 LIKE '_年级' AND NOT 年级 LIKE '高_' AND NOT 年级 LIKE '幼%班'"
End Select
.Range("A1").CurrentRegion.Offset(1).ClearContents
.Range("A2").CopyFromRecordset Cnn.Execute(Sql)
End If
End With
Next
Cnn.Close: Set Cnn = Nothing: Beep
End Sub

复制代码

xiangbaoan · 发表于 2021-9-25 11:03

人家很急论坛却慢慢地审.rar (22.31 KB, 下载次数: 14)

		自动登录	找回密码
密码			免费注册

[求助] 求助！按照条件从一个表提取匹配到另一个表