Всем привет.
Простая задача: вывести часть данных из Аксеса в Екселевский файл 1.xls
В начале модуля формы описаны переменные, на кнопку toEXCEL повешен такой код.

Option Compare Database 'код в наале модуля
Option Explicit
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim xlSheet0 As Excel.Worksheet

Private Sub toEXCEL_Click() 'код на кнопке
   Dim fileXLT As String
   fileXLT = CurrentProject.Path & "\1.xls"
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Open(fileXLT)
   Set xlSheet = xlBook.Sheets("Рас1")
   Set xlSheet0 = xlBook.Sheets("РасЭ")
   xlApp.Visible = True
   xlApp.DisplayAlerts = True

   xlSheet0.Select  'Лист РасЭ
   Columns("C:C").Select   'Здесь возникает ошибка при повторном вызове подпрограммы.

'ЗДЕСЬ - производятся ДЕЙСТВИЯ В ФАЙЛЕ ЕКСЕЛЯ 

Set xlSheet = Nothing
Set xlSheet0 = Nothing
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub

При первом нажатии кнопки все работает прекрасно - данные перебрасываются в файл и форматируются.

При повторном нажатии кнопки все ломается на строке

Columns("C:C").Select   'Здесь возникает ошибка при повторном вызове подпрограммы.

https://www.sql.ru/forum/1314711/snova-zapis-v-eksel