Это я выдрал из книги, не исправлял
Видимо что-то похожее...

This is a hard-working script that has quite a bit of functionality. It starts by defining an ADO connection, and then opening it. Note that for the script to work, a System ODBC DSN named Excel must exist, and it must point to a spreadsheet matching the description I gave you earlier.


' PART 1: Open up the Excel spreadsheet

' using ActiveX Data Objects

Dim oCN

Set oCN = CreateObject("ADODB.Connection")

oCN.Open "Excel"


Next, the script creates an ADO recordset—a set of database records—by querying the rows from the Excel spreadsheet.


Dim oRS

Set oRS = oCN.Execute("SELECT * FROM [Sheet1$]")