COPY TO (tcFile) FIELDS cAlias, cName XL5 AS 1251
LOCAL XLApp, XLSheet, lnPer
XLApp = GETOBJECT('', 'excel.application')
XLApp.VISIBLE= .F.
XLApp.WorkBooks.ADD(tcFile)
XLApp.ActiveWindow.WINDOWSTATE = 2
XLSheet= XLApp.ActiveSheet
XLSheet.RANGE("A1").Select
XLApp.Selection.EntireColumn.Insert

WITH XLSheet
	.RANGE("B1").VALUE = "Алиас"
	.RANGE("C1").VALUE = "Поле"

ENDWITH
XLApp.ActiveWindow.SplitColumn = 2
XLApp.ActiveWindow.SplitRow = 1
XLApp.ActiveWindow.FreezePanes = .T.

XLApp.Cells.Select
XLApp.Selection.Columns.AutoFit
XLApp.Selection.AutoFilter
XLSheet.RANGE("A1").Select
XLApp.Selection.EntireRow.Insert
XLSheet.RANGE("A1").Value = "Таблица"
XLApp.DisplayAlerts = .F.
XLApp.ActiveWorkbook.SaveAs(tcFile, 1)
XLApp.DisplayAlerts = .T.

XLSheet.RANGE("A1").Select

XLApp.VISIBLE= .T.