Исходный текст

Option Explicit

' Вывести результаты всех глобальных выборок в лист Excel

Dim ex, Query, n, sh, q, i

' Запускаем MSExcel 
Set ex = CreateObject("Excel.Application")

' Добавляем рабочую книгу    
ex.workbooks.Add                

For Each Query In ThisApplication.Queries 
    If Query.Objects.Count > 0 Then
        ex.Workbooks.Item(1).Sheets.Item(1).Cells(n * 256 + 1) = Query.Description ' Вывод названия выборки
        ex.Workbooks.Item(1).Sheets.Item(1).Cells(n * 256 + 2) = Query.SysName ' Вывод системного идентификатора выборки
        ex.Workbooks.Item(1).Sheets.Item(1).Cells(n * 256 + 3) = Query.Handle ' Вывод системного дескриптора выборки
        ex.Workbooks.Item(1).Sheets.Item(1).Cells(n * 256 + 4) = Query.Comments(0) ' Вывод первого комментария к выборке
        n = n + 1 ' Перевод на новую строку
        Set sh = Query.Sheet
        For q = 0 To sh.ColumnsCount - 1 ' Вывод наименований столбцов выборки
        ex.Workbooks(1).Sheets(1).Cells(q + n * 256 + 1) = sh.ColumnName(q)
        Next
        n = n + 1
        For q = 0 To sh.RowsCount - 1 ' Вывод полученной таблицы
        For i = 0 To sh.ColumnsCount - 1
        ex.Workbooks(1).Sheets(1).Cells(i + n * 256 + 1) = sh.CellValue(q, i)
        Next
        n = n + 1
        Next
        n = n + 1
    End If
Next

ex.Application.Visible = True ' Показать лист Excel