请老师帮忙用SQL语句提取数据，谢谢

qdchyq

附件.rar (2.31 KB, 下载次数: 24)

2018-10-3 18:23 上传

点击文件名下载附件

qdchyq

哪位老师帮帮忙吧，谢谢

qdchyq

求帮助，老师帮帮忙吧

opiona

1.    Set SH0 = Worksheets("查询")
   
2.     Set SH1 = Worksheets("税务")
   
3.     Set SH2 = Worksheets("交警")
   
4.     Set SH3 = Worksheets("工商")
   
5.     Str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2003，2007 通用
   
6.     StrSQL = ""
   
7.     StrSQL = StrSQL & "SELECT 姓名,证件号码"
   
8.     StrSQL = StrSQL & ",MAX(所得税) AS 所得税"
   
9.     StrSQL = StrSQL & ",MAX(车辆号码) AS 车辆号码"
   
10.     StrSQL = StrSQL & ",MAX(企业名称) AS 企业名称"
    
11.     StrSQL = StrSQL & " FROM ("
    
12. 
    
13.     StrSQL = StrSQL & " SELECT 姓名,证件号码,0 AS 所得税,NULL AS 车辆号码,NULL AS 企业名称"
    
14.     StrSQL = StrSQL & " FROM [" & SH0.Name & "$]"
    
15.     StrSQL = StrSQL & " UNION ALL "
    
16.     StrSQL = StrSQL & " SELECT 姓名,证件号码,所得税,NULL AS 车辆号码,NULL AS 企业名称"
    
17.     StrSQL = StrSQL & " FROM [" & SH1.Name & "$]"
    
18.     StrSQL = StrSQL & " UNION ALL "
    
19.     StrSQL = StrSQL & " SELECT 姓名,证件号码,0 AS 所得税,车辆号码,NULL AS 企业名称"
    
20.     StrSQL = StrSQL & " FROM [" & SH2.Name & "$]"
    
21.     StrSQL = StrSQL & " UNION ALL "
    
22.     StrSQL = StrSQL & " SELECT 姓名,证件号码,0 AS 所得税,NULL AS 车辆号码,企业名称"
    
23.     StrSQL = StrSQL & " FROM [" & SH3.Name & "$]"
    
24.    
    
25.     StrSQL = StrSQL & ") WHERE NOT 姓名 IS NULL  GROUP BY 姓名,证件号码"

复制代码

opiona

QQ14885553.rar (17.83 KB, 下载次数: 37)

2018-10-3 20:12 上传

点击文件名下载附件

qdchyq

opiona 发表于 2018-10-3 20:13

老师，辛苦了。那所得税、车牌号码有多个能自动提取码，是数值的汇总计算，是文本的合并，老师能做到吗，谢谢

qdchyq

opiona 发表于 2018-10-3 20:13

QQ14885553.rar (17.63 KB, 下载次数: 7)

2018-10-3 22:19 上传

点击文件名下载附件

老师变成这样呢，请指教，谢谢

qdchyq

opiona 发表于 2018-10-3 20:09

老师再帮帮我吧，谢谢

jiangxiaoyun

select a.*,b.车辆号码,c.所得税,d.企业名称 from (([查询$a1:b] a left join [交警$] b on a.姓名=b.姓名) left join [税务$] c on a.姓名=c.姓名) left join [工商$] d on a.姓名=d.姓名

jiangxiaoyun

QQ14885553.zip (15.32 KB, 下载次数: 35)

2018-10-4 09:18 上传

点击文件名下载附件