adodb.connection连接excel不同版本的选择

Set conn = CreateObject("adodb.connection")
If Val(Application.Version) < 12 Then
    'Excel 2000-2003
    FileExtStr = ".xls": FileFormatNum = -4143
    conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes;imex=1';Data Source=" & ThisWorkbook.FullName
'MsgBox ThisWorkbook.FullName
Else
    'Excel 2007-2010
    FileExtStr = ".xlsx": FileFormatNum = 51
    conn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=yes;imex=1';data source=" & ThisWorkbook.FullName
End If