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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

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

我的收件箱(0)

共有 2020 人关注过本帖， 1 人收藏

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

只看楼主加入收藏

王咸美

等　级：新手上路
帖　子：839
专家分：3
注　册：2018-1-4
结帖率：97.42%

楼主

已结贴√ 问题点数：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