Private Sub Êíîïêà35_Click() 'excel
Dim exApp As Excel.Application
Dim exW As Excel.Workbook
Dim str As String
str = Me![pod_dbo_DogovorPlan].Form.RecordSource
 
Set db = CurrentDb()
Set rs = db.OpenRecordset(str)

Set exApp = CreateObject("Excel.Application")
Set exW = Workbooks.Add()
ea.Visible = True
For i = 0 To rs.Fields.Count - 1
exApp.Worksheets(1).Cells(1, 1).Value = rs.Fields(i).Name
Next

exApp.Worksheets(1).Cells(2, 1).CopyFromRecordset rs
rs.Close
Set rs = Nothing
Set db = Nothing
Set exApp = Nothing
Set exW = Nothing
End Sub