Что подправить в коде для того, чтобы данные копировались не в сторонний документ EXCEL, а во встроенный в форму объект EXCEL???
Помогите, чем сможете!!!

Dim rst As DAO.Recordset
Dim XL As New Excel.Application
Dim x As Integer
Set rst = CurrentDb.OpenRecordset("table")

XL.Workbooks.Open "c:\1.xls" 'наверное это не нужно
XL.Worksheets(1).Select
rst.MoveFirst
x = 5

While Not rst.EOF

XL.Range("A" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field1").Value
XL.Range("B" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field2").Value
XL.Range("C" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field3").Value
XL.Range("D" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("ÄField4").Value
XL.Range("E" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field5").Value
XL.Range("F" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field6").Value
XL.Range("G" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field7").Value
XL.Range("H" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field8").Value

x = x + 1
rst.MoveNext

Спасибо! Сейчас попробую...

Хм....
Сделал так:
Set XL = Forms!Форма1!ex.Object

Ошибка: Object doesn't support this property or method

Выделяет эту строку:
XL.Range("A" & CStr(x) & "").Select

XL.Worksheets(1).Select: Method or data member not found :(

Видимо надо так:
Dim XL As New Excel.OLEObject
Но все равно проблема
XL.Worksheets(1).Select: ActiveX component can't create object

Точно
И наконец :):
Object variable or With block variable not set
....
set XL = ???

А может возможно создать SQL запрос на основе:
x = 5

While Not rst.EOF

XL.Range("A" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Ðåô ¹").Value
XL.Range("B" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Íàèìåíîâàíèå").Value
XL.Range("C" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("ÔÈÎ").Value
XL.Range("D" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Äàòà").Value
XL.Range("E" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Âàëþòà").Value
XL.Range("F" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Ïðèõîä").Value
XL.Range("G" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Ðàñõîä").Value
XL.Range("H" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Ýêâèâàëåíò").Value

x = x + 1
rst.MoveNext

Wend

И поставить его как источник данных для объекта?!

Set XL = Forms!Ôîðìà1!ex.Object: Type mismatch

:)
Может тогда использовать что-нибудь вроде CreateObject(Excel.Application) для формы? Или ето нельзя?

Dim rst As DAO.Recordset
Dim XL As Excel.OLEObject
Dim x As Integer
Set rst = CurrentDb.OpenRecordset("cash")
Set XL = Forms!Форма1!ex.Object ' Type mismatch

XL.Worksheets(1).Select
rst.MoveFirst
x = 5

Спасибо! good night

Чего???? :))

Я в 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

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

дак че делать то а? :))

судя по названию Excel.sheet.8 там Worcksheet :)