excel连接access数据库的多条件模糊查找

wiljn

请高手帮忙啊，具体看附件，谢谢啊。

alzeng

1. 
   
2. Sub hh()
   
3.     Dim Cn As Object, Sql$
   
4.     Dim Arr, k%, Str$
   
5. 
   
6.     Arr = Range("B2", [B1].End(4))
   
7.     For k = 1 To UBound(Arr)
   
8.         Str = Str & " '" & Arr(k, 1) & "'"
   
9.     Next
   
10.     Str = Replace(Trim(Str), " ", ",")
    
11. 
    
12.     Set Cn = CreateObject("Adodb.Connection")
    
13.     Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\cd.mdb"
    
14.     Sql = "Select barcode From sp " _
    
15.         & "Where itemname Like '" & [A2] & "%' " _
    
16.         & "And Right(barcode,4) In (" & Str & ")"
    
17. 
    
18.     [C2:C65536].ClearContents
    
19.     [C2].CopyFromRecordset Cn.Execute(Sql)
    
20.     Cn.Close: Set Cn = Nothing
    
21. End Sub
    

复制代码

13537547088

For k = 1 To UBound(Arr)
溢 出