Я в EXCEL уже понял как переносить. Не ясното, как перенести ето все в объект EXCEL.sheets.8 на форме!!!???

Продолжаю свой топик :)
Объясните, пожалуйста, ПОЧЕМУ не работает СopyFromRecordset???

XL.Range("A2").CopyFromRecordset rst ' Здесь ошибка
Ошибка: Class does not suppor Automation or does not support expected interface

P.S: OLE Automation подключена :)

я это сам только что на другом форуме нашел :))
Спасибо! Сейчас попробую....

Все равно таже ошибка :((

Dim iCols As Integer
Dim xlapp As New Excel.Application
Set rst = CurrentDb.OpenRecordset("çàêàçû")
rst.MoveFirst
xlapp.Workbooks.Add

For iCols = 0 To rst.Fields.Count - 1
With xlapp.Cells(1, iCols + 1)
.Value = rst.Fields(iCols).Name

With .Font
.Name = "Arial"
.Bold = True
.Size = 10
End With
End With
Next iCols

xlapp.Range("A2").CopyFromRecordset rst

HELP

Спасибо! Ура! Все заработало :))

Dim rst As New ADODB.Recordset
Dim iCols As Integer
Dim xlapp As New Excel.Application
rst.Open "Çàêàçû", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

rst.MoveFirst
xlapp.Workbooks.Add
xlapp.Visible = True
For iCols = 0 To rst.Fields.Count - 1
With xlapp.Cells(1, iCols + 1)
.Value = rst.Fields(iCols).Name

With .Font
.Name = "Arial"
.Bold = True
.Size = 10
End With
End With
Next iCols

xlapp.Range("A2").CopyFromRecordset rst

Крайне признателен :))

И, кстати, может быть кто-нибудь сможет подсказать как эти же данные вывести не в самом EXCEL, а во встроенном в форму объекте Excel.sheet.8
Это мне нужно, что бы не привлекать сторонние файлы. Просто в EXCEL существует больше возможностей фильтрации даннных!

Help me if u can, pls :)

Но то, что не работает, в этом уверен на 89,5% :)

А что на счет заполнения этими данными объекта Excel.sheet.8 на форме??

Ну кто-то же должен знать?! :(

Новая версия :)

Dim rst As New ADODB.Recordset
Dim iCols As Integer
Dim xlapp As New Excel.Application
rst.Open "cash", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
rst.MoveFirst
xlapp.Workbooks.Open ("c:\cash.xls")
xlapp.Visible = True
For iCols = 0 To rst.Fields.Count - 1
With xlapp.Cells(4, iCols + 1)
.Value = rst.Fields(iCols).Name

With .Font
.Name = "Arial"
.Bold = True
.Size = 10
End With
End With
Next iCols
xlapp.Range("A5").CopyFromRecordset rst

rst.MoveFirst забыл убрать :) типа тоже ненадо

Вот что я деляю

Me.ex.SetFocus
Dim rst As New ADODB.Recordset
Dim XL As Excel.Application ' видимо проблема в этом...
Set XL = Forms!Форма1!ex.Object

rst.Open "cash", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

XL.Range("A5").CopyFromRecordset rst


HELP pls

Может есть другие способы?!