вывод в exlel нужное количество строк

[evdss]

Добрый день! Подскажите, пожалуйста, как вывести в файлы Excel по 25 строк по шаблону. Сейчас выводится все данные в один, т.е если прошли в источнике 25 строк сохраняем в файл 1, далее следующие 25 в файл 2 и т.д
'Объявляем переменные

Private Sub Кнопка3_Click()
Dim XL As Object
Dim XLT As Object
Dim newrow As Object
Dim db As Database
Dim qr As QueryDef
Dim rsd As DAO.Recordset
Dim strPathExcel As String

Dim strSQL As String
Set qr = CurrentDb.QueryDefs("запрос1")
'Запрос к базе данных
strSQL = qr.SQL
qr.Close
Set rsd = CurrentDb.OpenRecordset(strSQL)
'Создаем необходимые объекты
Set XL = CreateObject("Excel.Application")
Set XLT = XL.Workbooks.Open("C:\pismo\dot\рее стр.xltx")
strPathExcel = CurrentProject.Path & "\reestr\" & "reestr.xls"
Rowss = 10
numrow = 1
'запускаем цикл до тех пор, пока не закончатся строки в нашем источнике

While Not (rsd.EOF)

'смотрим, если строк больше чем мы задали в шаблоне
If Rowss >= 10 Then
'то добавляем строку
XLT.Worksheets("Лист1").Rows(Rowss) .Insert
'Запомним нашу строку
Set newrow = XLT.Worksheets("Лист1").Rows(Rowss)

XLT.Worksheets("Лист1").Rows(Rowss - 1).Copy newrow

'динамически формируем адрес нужной ячейки
Cell = "a" & Rowss
'и задаем ей значение
XLT.Worksheets("Лист1").Range(Cell) = numrow
Cell = "b" & Rowss
XLT.Worksheets("Лист1").Range(Cell) = rsd.Fields("Кому:").Value & " " & rsd.Fields("Куда:").Value
'переходим на следующую строку
Rowss = Rowss + 1
numrow = numrow + 1
Else
'а это выполняется до тех пор, пока не закончатся заданные строки в шаблоне
'т.е. если строк в источнике всего 1 то в код, который выше мы даже не попадем
Cell = "a" & Rowss
XLT.Worksheets("Лист1").Range(Cell) = numrow
Cell = "b" & Rowss
XLT.Worksheets("Лист1").Range(Cell) = rsd.Fields("Кому:").Value & " " & rsd.Fields("Куда:").Value
Rowss = Rowss + 1
numrow = numrow + 1
' rsd.MoveNext
End If


rsd.MoveNext
'конец цикла
Wend

'делаем Excel видимым

XLT.SaveAs strPathExcel

XL.Visible = True
'Очищаем переменные
Set XL = Nothing
Set XLT = Nothing
Set newrow = Nothing

End Sub

[Aleksandr H.]

я б делал, наверно, так:
В части перед

Wend

поставить счетчик строк. Если набилось 25 строк: сохранить_как, открыть шаблон, сгенерировать_новое_strPathExcel, обнулить счетчик строк, пойти на следующую итерацию

[evdss]

Спасибо, попробую.