Импорт таблицы из Access в Excel

[Callika]

Доброго времени суток.

Подскажите, пожалуста, как скопировать таблицу из Access в Excel по средсвом ADO.

Спасибо

[doober]

 
Const sCn1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
       Dim sCon As String, sSql As String
     Set cn = New ADODB.Connection
       Set rs = New ADODB.Recordset
        sCon = sCn1 + MY_Path & "\Debit.mdb"
        cn.Open (sCon)
        If Not cn.State = 1 Then Exit Sub
        sSql = "SELECT Бух.* FROM Бух ;"  
         rs.Open sSql, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly
Range("A1").CopyFromRecordset rs
rs.Close
   cn.Close
      Set cn = Nothing: Set rs = Nothing

[Callika]

При запуске кода пишет "User-defined type not defined
" в строке "Set cn = New ADODB.Connection". Может надо какую-то дополнительную и "очень нужную" строчку для ADO?

[kuklp]

Может надо какую-то...

А может надо пример свой дать, если уж Вы сами под свои нужды переделать готовый код не в состоянии?

[doober]

Еслия пишу.надо сделать запрос и получить таблицу при помощи ADO,я значит я понимаю о чем речь,и знаю,что должна быть подключена к пректу соответствующая библиотека msado26

[Callika]

А как подключить соответсвующую библиотеку msado26 к проекту?

[doober]

В референсах посмотрите.В примере найдете для себя полезную информацию