Выборка и перенос данных из Access в Excel

Private Sub ExportTest()
' Экспорт некоторых данных из таблицы "Таблица2" в "шаблон" = "чермет журнал 2022.xlsx"
' Внимание !!! = Считается что шаблон лежит в папке тек. приложения (базы данных) !!!
'--------------------------------------------------------------------------------------//
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim rst As DAO.Recordset
Dim sVal$
On Error GoTo ExportTest_Err
 
    Set oExcel = CreateObject("Excel.Application")
    ' Считается что шаблон лежит в папке тек. приложения (базы данных) !!!
    Set oBook = oExcel.Workbooks.Add(CurrentProject.Path & "\чермет журнал 2022.xlsx")
    Set oSheet = oBook.Worksheets(1)
 
    sVal = "SELECT Код, дата, наименование, " & _
        "'Из какого поля брать?' AS Местоположение, '???' AS [Реквизиты ТН]" & vbCrLf & _
        "FROM Таблица2;"
        
    Set rst = CurrentDb.OpenRecordset(sVal, dbOpenSnapshot)
    oExcel.Cells(3, 1).CopyFromRecordset rst ' вставка ... в ячейку "A3"
    ' С форматированием пока не заморачиваемся ...
 
' Окно Excel = Видим-м-м-мым!
    oExcel.Visible = True
    oExcel.WindowState = 3 'во весь экран
   
 
ExportTest_End:
    On Error Resume Next
    rst.Close:    Set rst = Nothing
    Set oSheet = Nothing
    Set oBook = Nothing
    Set oExcel = Nothing
    Err.Clear
    Exit Sub
 
ExportTest_Err:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Sub ExportTest.", _
        vbCritical, "Произошла ошибка!"
    Debug.Print "ExportTest_Line: " & Erl & "."
    Err.Clear
    Resume ExportTest_End
End Sub

Private Sub ExportTest_Click()
' Экспорт некоторых данных из таблицы "Таблица2" используя "шаблон" = "чермет_журнал_2022.xltx" в файл_чермет_журнал.2022.xlsx 
' Внимание !!! = Считается что шаблон лежит в папке \Dot тек. приложения (базы данных) !!!
'--------------------------------------------------------------------------------------//
On Error GoTo ExportTest_Err
Dim xlApp, xlExcel, xlBook, xlSheet, xlCells As Object
Dim rst As DAO.Recordset, db As DAO.Database
Dim sVal$, TmplFileName$
 
  Set xlApp = CreateObject("Excel.Application")
' Окно Excel = Видим-м-м-мым!
  xlApp.Visible = True
  xlApp.WindowState = 3 'во весь экран
' Считается что шаблон лежит в папке \Dot тек. приложения (базы данных) !!!
  TmplFileName = CurrentProject.Path & "\Dot\чермет_журнал_2022.xltx"
  Set xlBook = xlApp.Workbooks.Add(TmplFileName)
  Set xlSheet = xlBook.Sheets(1) 'Worksheets(1)
  
  sVal = "SELECT Код, дата, наименование, физикрек, " & _
  "'Из какого поля брать?' AS Местоположение, наименование1 + ', ' & наименование2 + ', ' + наименование3, '???' AS [Реквизиты ТН], '', '', '', '', вес_нетто" & vbCrLf & _
  "FROM Таблица2;"
      
  Set rst = CurrentDb.OpenRecordset(sVal, dbOpenSnapshot)
    xlApp.Cells(3, 1).CopyFromRecordset rst ' вставка ... в ячейку "A3"
    ' С форматированием пока не заморачиваемся ... А надо бы. Только точно надо знать "что" да "как"
    
 xlBook.SaveAs CurrentProject.Path & "\Excel\чермет_журнал_" & Format(Now, "yyyy-mm-dd-hh-mm-ss") & ".xlsx"
    
    Set xlSheet = Nothing: Set xlBook = Nothing: Set xlApp = Nothing
    Set rst = Nothing: Set db = Nothing
  
 
ExportTest_End:
    On Error Resume Next
    rst.Close:    Set rst = Nothing
    Set oSheet = Nothing
    Set oBook = Nothing
    Set oExcel = Nothing
    Err.Clear
    Exit Sub
 
ExportTest_Err:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Sub ExportTest.", _
        vbCritical, "Произошла ошибка!"
    Debug.Print "ExportTest_Line: " & Erl & "."
    Err.Clear
    Resume ExportTest_End
End Sub