Экспорт данных из Access 2010 в Excel 2010

Private Sub Кнопка142_Click()
Dim app As Excel.Application
Dim strDOT As String
Dim MyTable As DAO.Recordset
 
Set app = New Excel.Application
app.Visible = True
strDOT = CurrentProject.Path & "\" & "Лист.xltx"
app.Workbooks.Add strDOT
 
 
Set MyTable = CurrentDb.OpenRecordset("SELECT [Основная таблица].Фамилия, [Основная таблица].Имя, [Основная таблица].Отчество FROM [Основная таблица];")
 
i = 6
 
Do While Not MyTable.EOF
 
        app.Parent.Range("a" & i).Select
        app.Parent.ActiveCell.FormulaR1C1 = CStr(MyTable.Fields("Фамилия"))
        app.Parent.Range("b" & i).Select
        app.Parent.ActiveCell.FormulaR1C1 = CStr(MyTable.Fields("Имя"))
        app.Parent.Range("c" & i).Select
        app.Parent.ActiveCell.FormulaR1C1 = CStr(MyTable.Fields("Отчество"))
        i = i + 1
    MyTable.MoveNext
Loop
MyTable.Close
End Sub

...................................
...................................
Set MyTable = CurrentDb.OpenRecordset("SELECT [Основная таблица].Фамилия, [Основная таблица].Имя, [Основная таблица].Отчество FROM [Основная таблица];")
 
i = 6
app.Parent.Range("a" & i).CopyFromRecordset MyTable
 
'Do While Not MyTable.EOF
'
'        app.Parent.Range("a" & i).Select
'        app.Parent.ActiveCell.FormulaR1C1 = CStr(MyTable.Fields("Фамилия"))
'        app.Parent.Range("b" & i).Select
'        app.Parent.ActiveCell.FormulaR1C1 = CStr(MyTable.Fields("Имя"))
'        app.Parent.Range("c" & i).Select
'        app.Parent.ActiveCell.FormulaR1C1 = CStr(MyTable.Fields("Отчество"))
'        i = i + 1
'    MyTable.MoveNext
'Loop
MyTable.Close
End Sub

Private Sub Кнопка58_Click()
Dim app As Excel.Application
Dim strDOT As String
Dim MyTable As DAO.Recordset
 
'Открываем эксель, в нем книгу на основе шаблона Журнал регистраций
Set app = New Excel.Application
app.Visible = True
strDOT = CurrentProject.Path & "\" & "Журнал регистраций.xlt"
app.Workbooks.Add strDOT
 
'Создаем набор записей (я его сохранила отдельно, как запрос 111)
Set MyTable = CurrentDb.OpenRecordset("SELECT Заявка.НомЗаявки, Заявка.ДатаРегистрации, [Оператор]![Фамилия] & ' ' & [Оператор]![Имя] & ' ' & [Оператор]![Отчество] AS ФИОоператора, Должность.Должность, Заявка.Аннотация, [Исполнитель]![Фамилия] & ' ' & [Исполнитель]![Имя] & ' ' & [Исполнитель]![Отчество] AS ФИОисполнителя, Заявка.ДатаРешения, Заявка.Комментарий FROM (Должность INNER JOIN Оператор ON Должность.КодДолжности = Оператор.КодДолжности) INNER JOIN (Исполнитель INNER JOIN (Заявка INNER JOIN [Исполнитель по заявке] ON Заявка.НомЗаявки = [Исполнитель по заявке].НомЗаявки) ON Исполнитель.КодИсполнителя = [Исполнитель по заявке].КодИсполнителя) ON Оператор.КодОператора = Заявка.КодОператора")
 
i = 6
'Цикл по нашему набору записей
Do While Not MyTable.EOF
'Начиная с 6-ой строки вставляем в соотв-ие столбцы соотв-ие значения из нашего набора записей
        app.Parent.Range("a" & i).Select
        app.Parent.ActiveCell.FormulaR1C1 = CStr(MyTable.Fields("НомЗаявки"))
        app.Parent.Range("b" & i).Select
        app.Parent.ActiveCell.FormulaR1C1 = CStr(MyTable.Fields("ДатаРегистрации"))
        app.Parent.Range("c" & i).Select
        app.Parent.ActiveCell.FormulaR1C1 = CStr(MyTable.Fields("ФИОоператора"))
        app.Parent.Range("d" & i).Select
        app.Parent.ActiveCell.FormulaR1C1 = CStr(MyTable.Fields("Должность"))
        app.Parent.Range("f" & i).Select
        app.Parent.ActiveCell.FormulaR1C1 = CStr(Nz(MyTable.Fields("Аннотация"), ""))
        app.Parent.Range("g" & i).Select
        app.Parent.ActiveCell.FormulaR1C1 = CStr(MyTable.Fields("ФИОисполнителя"))
        app.Parent.Range("i" & i).Select
        app.Parent.ActiveCell.FormulaR1C1 = CStr(MyTable.Fields("ДатаРешения"))
        app.Parent.Range("j" & i).Select
        app.Parent.ActiveCell.FormulaR1C1 = CStr(MyTable.Fields("Комментарий"))
    i = i + 1
    MyTable.MoveNext
Loop
MyTable.Close
End Sub