Всем привет!
Пытаюсь освоить экспорт с использованием CopyFromRecordset (нужно экспортировать в конкретное место файла эксель).
В сети нашел код:

Public Function exportListPrescripts()
  Dim objExcel As Excel.Workbook
  Set objExcel = workbooks.Add
  Dim objSheet As Excel.Worksheet
  Set objSheet = objExcel.Worksheets.Add()
  
  Dim rec As Recordset
  Set rec = CurrentDb.OpenRecordset("select * from qExportListPrescripts")
  
  objSheet.Range("A2").copyfromrecordset rec
  
  Dim sPath As String
  sPath = CurrentDb.Path
  
  Dim sFilename_full As String
  sFilename_full = sPath & "\Отчет"
  'On Error Resume Next
  objExcel.Close saveChanges:=True, FileName:=sFilename_full
  
  Set objExcel = Nothing
  Shell "excel.exe " & sFilename_full & ".xlsx"
  
End Function

Ругается на первую строчку: User-defined type not defined.
Подозреваю, что из-за отсутствия в библиотеке Microsoft Excel 15.0 Object Library.
Подскажите, пожалуйста не грамотному, что делать? ...учитывая дальнейшее использование БД не только мной, но другими лицами на других компьютерах

http://www.sql.ru/forum/1267272/ne-rabotaet-eksport-s-copyfromrecordset