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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 如何由EXCEL模板文件生成个人信息登记表

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

只看楼主

王咸美

等　级：新手上路
帖　子：569
专家分：0
注　册：2018-1-4
结帖率：96.99%

楼主

已结贴√ 问题点数：20 回复次数：3

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

现有信息汇总表 xxhzb.dbf和模板文件个人信息登记表.xls
如何调用模板文件自动生成每个人的信息登记表（每人一份），盼高手赐教，万分感谢！！！

个人信息登记表.rar (180.19 KB)

[此贴子已经被作者于2021-4-19 10:22编辑过]

搜索更多相关主题的帖子: 文件　生成　 EXCEL　模板　信息　

2021-04-19 10:08

瓜瓜1990

等　级：贵宾
威　望：18
帖　子：125
专家分：699
注　册：2020-2-25

第 2 楼

得分:20

程序代码：

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