Пытался по всякому.
Провайдер ODBC говорит "No such interface supported", а провайдер Jet — "Operation is not supported for this type of object."
Неужели ADO это не умеет ?

Set Catalog = CreateObject("ADOX.Catalog")
Catalog.ActiveConnection = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=xls.xls;Extended Properties=Excel 8.0"

Set Table = CreateObject("ADOX.Table")
Table.Name = "tbl"
Set Column = CreateObject("ADOX.Column")
Column.Name = "clmn"
Column.Type = 3
Table.Columns.Append Column
Catalog.Tables.Append Table