Добрый день.Имеется скрипт возращающий последнее значение из таблицы. Необходимо чтобы возращались все значения. Подскажите как это можно сделать??Заранее спасибо.

Sub plat
'Запускаем Excel
Set ExcelApplication = CreateObject("Excel.Application")
Set ExcelWorkbook = ExcelApplication.Workbooks.Add
Set ExcelWorksheet = ExcelWorkbook.Worksheets.Add


ExcelApplication.Visible = True
str_num = 1

q = "select agnname from agnlist"
Query.Sql.Text = q
Query.Open
If Query.IsEmpty Then
MsgBox "Данных нет"
Query.Close
Call ExcelWorkbook.Close(0,0,0)
exit sub
end if
Query.First
While Not Query.EOF


ExcelWorksheet.Range("B2") = Query.FieldByName("agnname").Value
Query.Next

wend

End Sub

Так оно и есть , а как разнести по разным ячейкам

Спасибо все получилось!!