ник: b_mcfadden
Всем привет!
Есть код
Private Sub list_export_button_Click()
On Error GoTo Err_list_export_button_Click
Dim xlApp As Object
Dim xlbook As Object
Set xlApp = CreateObject("excel.Application")
Set xlbook = xlApp.Workbooks.Add
Set xlsheet = xlbook.Worksheets.Add
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset(Me.records_list.RowSource)
Dim n As Integer
For n = 0 To rst.Fields.Count - 1
xlsheet.Cells(1, n + 1).Value = rst.Fields(n).Properties("Caption")
Next
xlsheet.Range("A2").CopyFromRecordset rst
xlApp.Visible = True
Exit_list_export_button_Click:
On Error Resume Next
rst.Close
Set rst = Nothing
Set xlbook = Nothing
Set xlApp = Nothing
Exit Sub
Err_list_export_button_Click:
MsgBox Err.Description
Resume Exit_list_export_button_Click
End Sub
|
Работает в обычной базе,все отлично
Но в разделенной отказывается
Подскажите в чем дело?