SQL语句：如何从EXCEL工作表中实现查询

cxd1001

说明：
原先做了一个查询，是从ACCESS数据库中读取数据的，现在要改成直接从当前的工作簿中查询数据（从工作表“综合数据”取数），代码怎么改呢（查询条件不变）？
原来的代码如下：

Sub 读取税费汇总表()
Application.ScreenUpdating = False    '关闭屏幕刷新
Application.Calculation = xlCalculationManual     '手动重算
    Dim mydata As String
    Dim cnn As Object
    mydata = "E:\CTA信息管理\土地增值税.mdb"
    Set cnn = CreateObject("ADODB.Connection")
    With cnn
        .Provider = "microsoft.jet.oledb.4.0"
        .Open mydata
    End With
   Sheets("汇总表").Range("A2:G77") = ""
   SQL = "select left(税款所属期间,4),税种,税目,sum(计税金额),税率,sum(应计税款),sum(已纳税款) from 已缴纳的税金明细   group by left(税款所属期间,4),税种,税目,税率 order by left(税款所属期间,4),instr('营业税,城建税,教育费附加,地方教育附加,水利资金,土地增值税',税种)"
   Sheets("汇总表").[A2].CopyFromRecordset cnn.Execute(SQL)
   '按年度、税种排序（税种自定义排序）
    cnn.Close
    Set wb = Nothing
    Set ws = Nothing
    Set cnn = Nothing
Application.Calculation = xlCalculationAutomatic  '自动重算
Application.ScreenUpdating = True     '打开屏幕刷新
End Sub

cxd1001

见附件哦！！！！！！！11

hai167

综合数据中没看到有“税目”、“关联号”列。

条件中的Sheets("参数")没有这表。

hai167

SQL查询工作簿中数据参考下面改改

Dim sql As String
Set cnn = CreateObject("adodb.connection")
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
sql = "select * from [表名$a2:b5]"
Range("a2").CopyFromRecordset cnn.Execute(sql)

cxd1001

hai167 发表于 2013-2-21 12:05
综合数据中没看到有“税目”、“关联号”列。

条件中的Sheets("参数")没有这表。

where 关联号=Sheets("参数").Range("A1")
这个条件去掉
代码怎么改呢

cxd1001

hai167 发表于 2013-2-21 12:05
综合数据中没看到有“税目”、“关联号”列。

条件中的Sheets("参数")没有这表。

内容已修改
附件重新上传了

cxd1001

实现如下功能就可以了
“综合数据”表数据分类汇到“汇总”表就可以了
group by left(税款所属期间,4),税种,税目,税率 order by left(税款所属期间,4),instr('营业税,城建税,教育费附加,地方教育附加,水利资金,土地增值税',税种)"

cxd1001

{:soso_e160:}

cxd1001

{:soso_e160:}

zhaogang1960

邀请收到，请测试：

1. Sub 读取税费汇总表()
   
2. Application.ScreenUpdating = False    '关闭屏幕刷新
   
3. Application.Calculation = xlCalculationManual     '手动重算
   
4.     Dim mydata As String
   
5.     Dim cnn As Object
   
6.     mydata = "E:\CTA信息管理\土地增值税.mdb"
   
7.     Set cnn = CreateObject("ADODB.Connection")
   
8.     cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.FullName
   
9.    Sheets("汇总表").Range("A2:G10000") = ""
   
10.    SQL = "select year(税款所属期间),税种,税目,计税依据,税率,sum(应纳税额),sum(已纳税款) from [综合数据$] where 税种 is not null group by  year(税款所属期间),税种,税目,计税依据,税率 order by year(税款所属期间),instr('营业税,城建税,教育费附加,地方教育附加,水利资金,土地增值税',税种)"
    
11.    Sheets("汇总表").[a2].CopyFromRecordset cnn.Execute(SQL)
    
12.    '按年度、税种排序（税种自定义排序）
    
13.     cnn.Close
    
14.     Set wb = Nothing
    
15.     Set ws = Nothing
    
16.     Set cnn = Nothing
    
17. Application.Calculation = xlCalculationAutomatic  '自动重算
    
18. Application.ScreenUpdating = True     '打开屏幕刷新
    
19. End Sub
    

复制代码