1. Есть xls-файл (Excel 2002) Book1 с листом List1. И есть код
Private Sub Form_Load()

On Error GoTo mError:

Dim cnn As ADODB.Connection
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table

Set cnn = New ADODB.Connection

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\A\Work\Excel\Book1.xls;Extended Properties=Excel 8.0;Persist Security Info=False"

Set cat = New ADOX.Catalog

cat.ActiveConnection = cnn

Dim vTableName As String

Dim vPropVal As Variant
Dim sPropName As String
Dim sPropType As String

Set tbl = cat.Tables(0)

vTableName = tbl.Name
sName = tbl.Properties(0).Name
sType = tbl.Properties(0).Type
vVal = tbl.Properties(0).Value


mError:

Dim lErrNumber As Long
Dim sDescription As String
Dim sSource As String

lErrNumber = Err.Number
sDescription = Err.Description
sSource = Err.Source

End Sub

Точка останова ставилась на End Sub. При попытке выполнить
vVal = tbl.Properties(0).Value выскакивал Exception.

Результата работы в окне Watches следующий:

Expression Value

lErrNumber -2147467259
sDescription "Неопознанная ошибка"
sSource "Microsoft JET Database Engine"
sName "Temporary Table"
sType 11
vTableName "List1$"
vVal Empty

Возможно ли считывание свойств Microsoft JET Database Engine
для Excel и если да, то как это сделать.

Ну и ????????????!!!!!!!!!!!!!!!!!!!!!!