Экспорт в Exel

Как с помощью макроса или кода сделать на кнопку экспорт запроса или таблицы в Exel?
Заранее спасибо.

DoCmd.OutputTo acQuery, MyQueryName, "MicrosoftExcel(*.xls)", MyExcelFileName, True, ""

Все работает почти отлично. Экспорт идет, создает нужный файл. Но выскакивает ошибка:
"Ошбика доступа к файлу. Некоторые числовые форматы могут быть утеряны". Что это еще за фигня?

DoCmd.TransferSpreadsheet

Set XL = CreateObject("Excel.Application")
XL.Visible = False
XL.Workbooks.Add
XL.Sheets("Лист1").Name = "ТаблицаИЛИЗапрос"
XL.Application.ScreenUpdating = False
Dim i As Integer
Do While Not rst.EOF 
    i = i + 1
    XL.Cells(i, 1).Value = rst.Fields![detal]
    XL.Cells(i, 2).Value = rst.Fields![name]
    XL.Cells(i, 3).Value = rst.Fields![kolvo]
    XL.Cells(i, 4).Value = rst.Fields![summa]
    rst.MoveNext
Loop
XL.Visible = True
XL.Application.ScreenUpdating = True
Set XL = Nothing

еще .copyfromrecordset народ юзает

Или ещё вот так

Private Sub Кнопка2_Click()
Dim XL
Set XL = CreateObject("Excel.Application")
XL.Visible = False
XL.Workbooks.Add
XL.Sheets("Лист1").Name = "ТаблицаИЛИЗапрос"
XL.Application.ScreenUpdating = False

Dim db As ADODB.Connection
Dim tb As ADODB.Recordset
Dim tabl As String
Dim strSQL As String

tabl = "ТаблицаИЛИЗапрос"
 
strSQL = "Select * FROM " & tabl

Set tb = New ADODB.Recordset
Set db = Application.CurrentProject.Connection
tb.Open strSQL, db, adOpenForwardOnly, adLockOptimistic
XL.Cells(1, 1).CopyFromRecordset tb
tb.Close

XL.Visible = True
XL.Application.ScreenUpdating = True
Set XL = Nothing

End Sub

ну тоды и копи-пасте никто не отменял (замутить на апи через клипбоард )

все работает. спасибо.

OLEG2006

все работает. спасибо.

Хотелось бы знать каким конкретно советом Вы воспользовались, что записать себе в мозги