Как вывести отчет по таблице в excel файл

LPARAMETERS tcName
# include Excel.h
SELECT tmp
LOCAL loExcel, loBook, loSheet, lnPole, i
loExcel = CREATEOBJECT("Excel.Application")
loExcel.visible = .t.
loBook = loExcel.WorkBooks.Add
loSheet = loBook.Sheets[1]
lnPole = 20
 
WITH loSheet
    .Columns("A:A").ColumnWidth = 30
    .Columns("D:D").ColumnWidth = 30
    .Cells(1,2).Value = 'Список студентов:'
    *.Cells(2,2).Value = ALLTRIM(tcName)
    WITH .Range("B1:B2")
        .HorizontalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        .RowHeight = 24
        .Font.Bold = .t.
    ENDWITH 
ENDWITH 
WITH loSheet
    .Cells(3,1).Value = 'ФИО Студента'
    .Cells(3,2).Value = 'Группа'
    .Cells(3,3).Value = 'Курс'
    .Cells(3,4).Value = 'Специальность'
    .Cells(3,5).Value = 'Телефон'
ENDWITH 
i=3
SCAN 
    i = i + 1 
    WITH loSheet
        .Cells(i,1).Value = ALLTRIM(name)
        .Cells(i,2).Value = ALLTRIM(group)
        .Cells(i,3).Value = kurs
        .Cells(i,4).Value = ALLTRIM(spec)
        .Cells(i,5).Value = ALLTRIM(phone)
    ENDWITH 
ENDSCAN 
 
LOCAL lcStr
lcStr = 'A3:E' + ALLTRIM(STR(i))
WITH loSheet.Range(lcStr)
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    WITH .Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    ENDWITH 
    WITH .Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    ENDWITH 
    WITH .Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    ENDWITH 
    WITH .Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    ENDWITH 
    WITH .Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    ENDWITH 
    WITH .Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    ENDWITH
ENDWITH