利用Excel2010的SQL语言连接外部数据方法,直接使用VBA的SQL语言两种方法有何不同。

ning84

******************************
Excel中利用SQL语言连接外部数据-百度经验  https://jingyan.baidu.com/article/adc8151319a340b723bf7389.html



在【连接属性】对话框，切换到【定义】标签，在【命令文本】中输入如下语句：select * from [成绩表$]，最后【确定】（此处命令文本中的代码是SQL的基本语句，虽然按照系统默认也可以获取外部数据，但此处是标准语法，方便后续对数据的进一步操作处理）







这样就能够在不打开外部数据源的情况下获取外部数据，而且当外部数据有更新时，我们只需要在此连接工作簿中右键【刷新】即可获得更新后的外部数据（不需要打开外部数据源）














****************************************************
在VBA中使用，SQL语言。

1. Function SqlRetuRs(Str)
   
2.    Dim Cn As ADODB.Connection
   
3.        Set Cn = New ADODB.Connection
   
4.    Dim Rs As ADODB.Recordset
   
5.        Set Rs = New ADODB.Recordset
   
6.         Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.fullName
   
7.         Rs.Open Str, Cn, adOpenKeyset, adLockOptimistic
   
8.        Set SqlRetuRs = Rs
   
9. End Function
   
10. 
    
11. Sub lll1()
    
12.    Dim Str, Rr
    
13.    Dim Sht As Worksheet
    
14.    Dim Rng As Range, oRng As Range
    
15.        Set Rng = Selection
    
16.        Set Rng = Rng.CurrentRegion
    
17.        Debug.Print Rng.Address
    
18.        Set Sht = Rng.Parent
    
19.        Rr = Rng.Row + Rng.Rows.Count + 20
    
20.        Set oRng = Sht.Range("A" & Rr - 5 & ":Z60000")
    
21.        oRng.Select
    
22.        oRng.Clear
    
23.        Set oRng = Sht.Range("A1:G" & Rr)
    
24.        oRng.Select
    
25.       
    
26.       
    
27.    Dim Rs As Recordset, Rs1 As Recordset, Rs2 As Recordset
    
28.    
    
29.        Str = "Select Distinct 地点 From [" & Sht.Name & "$" & oRng.Address(0, 0) & "]  Where 地点 <> 'Null' "
    
30.        Set Rs = SqlRetuRs(Str)
    
31.       
    
32.        With Rs
    
33.            .MoveFirst
    
34.            For ii = 0 To .RecordCount - 1
    
35.                 Str = "Select  Sum(大小) From [" & Sht.Name & "$" & oRng.Address(0, 0) & "] Where 地点 = '" & .Fields(0) & "'"
    
36.                 Set Rs1 = SqlRetuRs(Str)
    
37.                 Str = "Select  Count(地点) From [" & Sht.Name & "$" & oRng.Address(0, 0) & "] Where 地点 = '" & .Fields(0) & "'"
    
38.                 Set Rs2 = SqlRetuRs(Str)
    
39.                 ''
    
40.                 Sht.Cells(Rr, 2) = Rs.Fields(0)
    
41.                 Sht.Cells(Rr, 3) = Rs2.Fields(0)
    
42.                 Sht.Cells(Rr, 4) = Rs1.Fields(0)
    
43.                 Rr = Rr + 1
    
44.                 .MoveNext
    
45.            Next ii
    
46.        End With
    
47. End Sub
    
48. 
    

复制代码

**************************

limonet

没什么不同，全部用VBA只是自动化了。