Conectando o Excel 2007 via ADO

Sub ado_2007()
   Dim cnn As New ADODB.Connection

   cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\teste_ado.xlsx;" & _
       "Extended Properties=" & Chr(34) & "Excel 12.0;HDR=Yes" & Chr(34)

   cnn.Open
   cnn.Close
End Sub