各版本ExcelAdo连接代码

 07~19版本ExcelAdo连接代码：

Sub test()

    Dim cnn As Object    Set cnn = CreateObject("adodb.connection")    cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName    If cnn.State = 1 Then        MsgBox "连接成功!" & vbCrLf & "ADO版本为：" & cnn.Version & vbCrLf & "Connection对象提供者名称：" & cnn.provider        cnn.Close        Set cnn = Nothing    Else        MsgBox "数据库连接失败"    End IfEnd Sub 
 

来源：https://mp.weixin.qq.com/s?__biz=MzI0MTAxNTc5NA==&mid=2468634602&idx=4&sn=4a53cea4ba4a85ae828b17a8f42f693e&chksm=ffc2f177c8b578618aee2e7408bac59c76470c9211969933e3617f91e5e79373d469eebf7927&scene=21#wechat_redirect
 
以下代码兼顾了03及各高级版本Excel的情况：
 
Sub Mycnn3()
    Dim cnn As Object
    Dim strPath As String
    Dim str_cnn As String
    Set cnn = CreateObject("adodb.connection")
    strPath = ThisWorkbook.FullName
    If Application.Version < 12 Then
        str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strPath
    Else
        str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath
    End If
    cnn.Open str_cnn
    cnn.Close
    Set cnn = Nothing
End sub
来源：https://mp.weixin.qq.com/s?__biz=MzI0MTAxNTc5NA==&mid=2468634477&idx=3&sn=47e652209bab466e8bab3e27cd38a58d&chksm=ffc2f1f0c8b578e6e7ea0fac79289ff858e82641dd740e45e3135644a895fd74a550061bdf99&scene=21#wechat_redirect