如何由EXCEL模板文件生成个人信息登记表

USE xxhzb
USE grxx IN 0
oxls=CREATEOBJECT("excel.application")
cfile=GETFILE()&&选择模板文件
oxls.Workbooks.Open(cfile)
SELECT xxhzb
SCAN
    SELECT grxx
    SCAN
        crow=SUBSTR(位置,2)
        ccol=left(位置,1)
        cvalue=grxx.字段内容
        oxls.ActiveWorkbook.ActiveSheet.cells(crow,ccol).value=xxhzb.&cvalue
    ENDSCAN
    oxls.ActiveWorkbook.SaveAs(SYS(5)+CURDIR()+ALLTRIM(xxhzb.xm))
ENDSCAN
RELEASE oxls