Re: Люди ! Как программно создать БД Excel на ADO ?!

	От:	Аноним
	Дата:	12.01.04 08:26
	Оценка:

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

Переместить
Удалить
Выделить ветку

Пока на собственное сообщение не было ответов, его можно удалить.

Заголовок: