多条件筛选,其结果放入指定表

tianyk

求助:2个条件筛选,其结果放入指定表,附件有说明.好久都搞不定.[attach]2253987  急,谢谢!

不知道为什么

数组就可以实现了啊，没有难度的。自己试试

lsc900707

参考附件：

tianyk

lsc900707 发表于 2018-9-8 16:43
参考附件：

谢谢老师的帮助。完美达到要求。

hefuqing

SQL  你看可以吗

1. Sub 查询方法一()
   
2. Set CONN = CreateObject("ADODB.Connection")
   
3. CONN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
   
4. Sql = "select * from [总表$a:s] where  搜索词 not like 'b0%' and 订单 > 0 "
   
5. Sheets("搜索词有").[A3].Resize(104850, 19).Delete
   
6. Sheets("搜索词有").[A3].CopyFromRecordset CONN.Execute(Sql)
   
7. CONN.Close: Set CONN = Nothing
   
8. 
   
9. Set CONN = CreateObject("ADODB.Connection")
   
10. CONN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
    
11. Sql = "select * from [总表$a:s] where  搜索词 not like 'b0%' and 订单 = 0 "
    
12. Sheets("搜索词无").[A3].Resize(104850, 19).Delete
    
13. Sheets("搜索词无").[A3].CopyFromRecordset CONN.Execute(Sql)
    
14. CONN.Close: Set CONN = Nothing
    
15. 
    
16. Set CONN = CreateObject("ADODB.Connection")
    
17. CONN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
    
18. Sql = "select * from [总表$a:s] where  搜索词 like 'b0%' and 订单 > 0 "
    
19. Sheets("asin有").[A3].Resize(104850, 19).Delete
    
20. Sheets("asin有").[A3].CopyFromRecordset CONN.Execute(Sql)
    
21. CONN.Close: Set CONN = Nothing
    
22. 
    
23. Set CONN = CreateObject("ADODB.Connection")
    
24. CONN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
    
25. Sql = "select * from [总表$a:s] where  搜索词  like 'b0%' and 订单 = 0 "
    
26. Sheets("asin无").[A3].Resize(104850, 19).Delete
    
27. Sheets("asin无").[A3].CopyFromRecordset CONN.Execute(Sql)
    
28. CONN.Close: Set CONN = Nothing
    
29. 
    
30. End Sub

复制代码

tianyk

运行到这里：Sheets("搜索词有").[A3].CopyFromRecordset CONN.Execute(Sql)hefuqing

hefuqing

tianyk 发表于 2018-9-9 00:38
运行到这里：Sheets("搜索词有").[A3].CopyFromRecordset CONN.Execute(Sql)hefuqing

把总表第一行空白删除