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