Не мое,и к сожалению не помню чье, но мною подстригалось
DEFINE CLASS cmdexcel AS cmdbutton


Height = 25
Width = 25
Picture = "..\icon\excel.bmp"
StatusBarText = "Экспорт в MS Excel"
ToolTipText = "Экспорт в MS Excel"
Name = "cmdexcel"
gridobject = .F.


PROCEDURE cvar
LPARAMETER vValue
do CASE
CASE TYPE("vValue") = "C"
RETURN vValue
CASE TYPE("vValue") = "N"
RETURN STR(vValue,11,4)
CASE TYPE("vValue") = "L"
RETURN IIF(vValue, 'Да', 'Нет')
CASE TYPE("vValue") = "Y"
RETURN STR(vValue,LEN(alltrim(STR(vValue))),2)
CASE TYPE("vValue") = "D"
RETURN DtoC(vValue)
CASE TYPE("vValue") = "T"
RETURN TtoC(vValue)
endCASE
ENDPROC


PROCEDURE Click
IF EMPTY(this.GridObject) OR TYPE(this.GridObject)<>"O" OR EVAL(this.GridObject+'.BaseClass')<>'Grid' OR EMPTY(EVAL(this.GridObject+'.RecordSource'))
&& Не задан GRID, заданный GRID не существует или у него не указан источник данных
&& Не забывайте указвать имя GRID полностью - например, thisForm.PageFrame1.Page1.Grid1
messagebox("Неверно заданы параметры кнопки или объекта GRID")
RETURN
ENDIF

local nColumnsNumber, oExcel, oSheet, oGrid, nCurrentRow, nCurrentColumn, nRecNo, cOldSel, cErrorSet
cErrorSet = ON("ERROR")
on error messagebox(Message()+chr(13)+Program()+chr(13)+'Line '+str(Lineno()))
cOldSel = select() && Запоминаем текущую рабочую область
nRecNo = RecNo() && и положение указателя в ней
oGrid = EVAL(this.GridObject)
select (oGrid.RecordSource) && Перешли в нужную область
go top && Выводить будем все записи с самого начала

nColumnsNumber = oGrid.ColumnCount && Количество колонок в GRID
WAIT 'Создается документ Excel. Немного подождите...' WINDOW AT 15, 45 NOWAIT

oExcel=create('Excel.Application') && Создаем копию Excel
*Проверка существования(установки) Экселя
IF TYPE("m.oExcel")!="O"
=MESSAGEBOX("Не могу выполнить экспортирование. Возможно у вас не установлен Excel!",16,"Внимание...")
on ERROR &cErrorSet
RETURN
ENDIF

oExcel.WorkBooks.add() && и новый документ в нем
oSheet = oExcel.Workbooks(1).ActiveSheet && Работать будем с этой страницей


**Пропишем заголовки для колонок в таблице. Естественно, это по желанию
nCurrentRow = 1
FOR nCurrentColumn = 1 to oGrid.ColumnCount && количество столбцов в этом гриде
*Проверка, заменен ли хедер на свой.
loCol=oGrid.Columns(nCurrentColumn)
FOR EACH loCtl IN loCol.Controls
IF UPPER(loCtl.BaseClass)=='HEADER'
&& Для следующей строки необходимо, чтобы имена заголовков колонок в Grid остались дефолтовыми - Header1
oSheet.Cells(nCurrentRow, nCurrentColumn).Value = loCtl.Caption
ENDIF
ENDFOR
ENDFOR

nCurrentRow = 2
&& Со второй строки начнем выводить сами данные
do while NOT EOF()
* oExcel.Documents(1).Tables(1).Rows.Add
&& Пройдем по всем колонкам
FOR nCurrentColumn = 1 to oGrid.ColumnCount
oSheet.Cells(nCurrentRow, nCurrentColumn).Value = this.CVar(EVAL(oGrid.Columns(nCurrentColumn).ControlSource))
ENDFOR
skip && И так до конца таблицы
nCurrentRow = nCurrentRow + 1
enddo

oExcel.caption=thisForm.Caption && Заголовок окна Excel возьмем из заголовка этой формы
oExcel.ROWS("1:1").SELECT &&выбрали первую строку - это типа названия полей
oExcel.SELECTION.HorizontalAlignment = 3 &&горизонтальное выравнивание - по центру
oExcel.SELECTION.FONT.Bold = .T. &&жирненьким выделили
oExcel.ActiveSheet.Cells.SELECT &&выбрали все ячейкм
oExcel.ActiveSheet.Cells.EntireColumn.AutoFit &&да столбцы автоматом подогнали по ширине
oExcel.RANGE("A1").SELECT &&выбрали первую ячейку

oExcel.visible= .T. && Сделаем окно Excel видимым

on ERROR &cErrorSet
select (cOldSel) && Восстановим ситуацию
*Соответсвенно восстановление указателя записи:
SELECT (oGrid.RecordSource)
IF nRecNo=0
GO BOTTOM IN (oGrid.RecordSource)
IF EOF()=.F.
SKIP
ENDIF
ELSE
*проверка если удалена запись
IF nRecNo>RECCOUNT()
GO BOTTOM IN (oGrid.RecordSource)
IF EOF()=.F.
SKIP
ENDIF
ELSE
GO nRecNo IN (oGrid.RecordSource)
ENDIF
ENDIF
ENDPROC


ENDDEFINE
*
*-- EndDefine: cmdexcel
**************************************************

Ох ты..., на пару порядков обещаете!!!
Это было бы и вправду лучше,
у меня примерно такое же и в ворд, так там вообще медленно,
и такое же в html, побыстрее...
Не подскажите как?, можно кусочек кода???
Не могу въехать-через массив.
Кстати, как же ограничение размерности массива?,
(да еще и экселя тоже есть, но это не важно)
хотя идеально было бы другой лист экселя припечатать, если
больше 65000 строк(ну это в идеале)
Да кстати тока заметил-зачем это я проверяю на удаление записи
*проверка если удалена запись
IF nRecNo>RECCOUNT()
?Когда это злые юзеры успели удалить запись, пока я экспортировал :)
Спасибо

Спасибо Игорь
Насчет скорости Вы правы
Летает точно как ветер!!!
Тока проблемка одна небольшая-
не соблюдает порядок следоывания столбцов в гриде
А так песня

Прошу прощения, все работает нормально,
сохраняет порядок следования
Виноват
Супер, спасибо

и кстати Игорь коли уж подняли эту тему,
возникает иногда ошибка в строке помоему
loRange.Value = m.goApp.ArrayPasser("paData")
на МЕМО полях,
какая еще обработка требуется????
хочется доуниверсализировать эту процедуру для всех видов полей
спасибо