Excel as Database

[fox5a]

kak podkluchit excel.tablicu k projectu w wide bazy dannyh
w takom wariante goworit chto ne znaet takogo formata

Dim db As Database
Dim rs As Recordset
Dim tbl As TableDef
Set db = OpenDatabase("D:\budget.xls")
Set tbl = db.TableDefs!Current

[fox5a]

Spasibo wsem za uchastie, nashel oshibku sam.
dlja teh kogo interesuet:

Private Sub Form_Load()
Dim db As Database
Dim tbl As TableDef
Dim rs As Recordset
Dim ar As Object
Set db = OpenDatabase("D:\Budget.xls", False, False, "Excel 8.0;")
Set rs = db.OpenRecordset("select * from Current")
Set tbl = db.TableDefs("Current$")
Set rs = tbl.OpenRecordset

[--=GAMER=--]

Spasibo wsem za uchastie, nashel oshibku sam.

Ты отправил сообщения через день! Всего-лишь через день!
Некоторые люди ... ждут иногда неделями и месяцами (Может даже годами )! А тут дня не подождал уже обижаешься!
Ну и дела............