Исходный код

Option Explicit
Call ExportQueriesInfo()


'==============================================================================
' Вывести в Excel таблицу с описанием всех глобальных выборок
'==============================================================================
Sub ExportQueriesInfo()

        On Error Resume Next
        Err = 0    
        
        Dim ExcelApp, WrkBook, QryCol, qry, List, i
    
        'Открыть приложение Excel
        Set ExcelApp = CreateObject("Excel.Application")
        If Err <> 0 Then 'Ошибка открытия ...
                MsgBox "Невозможно открыть приложение MS Excel.",  vbInformation, "Ошибка MS Excel" 
                Exit Sub
        End If
                            
        ' Добавить рабочую книгу
        Set WrkBook = ExcelApp.Workbooks.Add
        Set List = WrkBook.ActiveSheet
    
        'Вывести на текущий лист описания выборок
        Set QryCol = ThisApplication.Queries ' Получить коллекцию выборок
        For i = 1 To QryCol.Count 
                Set qry = QryCol.Item(i-1)
                List.Cells(i+1, 1) = i
                List.Cells(i+1, 2) = qry.Description
                List.Cells(i+1, 3) = qry.SysName
        Next
        
        'Отформатировать шапку таблицы
        List.Cells(1,1) = "Номер п/п"                
        List.Cells(1,2) = "Описание выборки"                
        List.Cells(1,3) = "Системное имя"                
        List.Rows(1).Font.Size = 12
        List.Rows(1).Font.Bold = TRUE
        List.Columns.AutoFit
        
        'Показать окно Excel
        ExcelApp.Application.Visible = True
        
        'Обнулить объектные переменные
        Set List = Nothing
        Set WrkBook = Nothing
        Set ExcelApp = Nothing
End Sub 
'==============================================================================