Подскажите, пожалуйста, как вывести результат запроса в excel файл?
Set Ll = Zulu.ActiveMapDoc.Layers.Active
Set Result =Ll.ExecSQL("SELECT *******")
MsgBox Result
Set objExcel = CreateObject("Excel.Application") ' Создание экземпляра объекта Excel
objExcel.Visible = True ' Отображение окна Excel
' Создание новой книги Excel
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
' Запись заголовков полей в первую строку
objWorksheet.Cells(2, 2).Value = "Наименование столбца"
objWorksheet.Range("A2:K2").Columns.AutoFit
' Запись данных из результата запроса
???
Set Ll = Zulu.ActiveMapDoc.Layers.Active
Set Result =Ll.ExecSQL("SELECT *******")
MsgBox Result
Set objExcel = CreateObject("Excel.Application") ' Создание экземпляра объекта Excel
objExcel.Visible = True ' Отображение окна Excel
' Создание новой книги Excel
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
' Запись заголовков полей в первую строку
objWorksheet.Cells(2, 2).Value = "Наименование столбца"
objWorksheet.Range("A2:K2").Columns.AutoFit
' Запись данных из результата запроса
???