Как быстро вставить 300К записей в Excel файл через VBS?

Так записывает неимоверно долго

' выводим содержимое таблиц и считаем записи
						recordsCount = 0
						RSSQL.CursorLocation = 3 ' клиентский курсор
						RSSQL.OPEN strSQL
						iFieldsCount = RSSQL.Fields.Count
							While Not RSSQL.EOF
								For J = 1 To iFieldsCount Step 1
									obj_WorkSheet.Cells(RSSQL.AbsolutePosition+3, j) = RSSQL(j-1)
								Next
							RSSQL.movenext
							Wend
						RSSQL.Close

Так вываливается по ошибке, что недостаточно памяти:

recordsCount = 0
						RSSQL.CursorLocation = 3 ' клиентский курсор
						RSSQL.OPEN strSQL
							obj_WorkSheet.Range("A4").CopyFromRecordset RSSQL
							recordsCount = RSSQL.RecordCount
						RSSQL.Close

Как взять из базы записи безболезненно и быстро?
Можно во 2-ом варианте поменять курсор на серверный, но тогда я не смогу получить количество записей.