| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3001 人关注过本帖
标题:如何合并结构相同的Excel表格
只看楼主 加入收藏
王咸美
Rank: 1
等 级:新手上路
帖 子:579
专家分:0
注 册:2018-1-4
结帖率:97.04%
收藏
已结贴  问题点数:20 回复次数:11 
如何合并结构相同的Excel表格
现有3个Excel文件:E:\ftp\通讯录校长室.xls,E:\ftp\通讯录教导处.xls,E:\ftp\通讯录德育处.xls。它们是由总表按不同部门(校长室、教导处、德育处)拆分下来的,经多人修改完善后如何快速会并为一个总表,用vfp代码如何做到呢?请高手赐教,万分感谢!!!
通讯录校长室.rar (692 Bytes)

通讯录教导处.rar (775 Bytes)

通讯录德育处.rar (662 Bytes)
搜索更多相关主题的帖子: Excel 合并 ftp 通讯录 xls 
2020-05-29 21:42
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10527
专家分:42899
注 册:2014-5-20
收藏
得分:0 
APPEND 到 DBF 再 COPY 到 XLS
2020-05-29 21:48
王咸美
Rank: 1
等 级:新手上路
帖 子:579
专家分:0
注 册:2018-1-4
收藏
得分:0 
怎样用vfp代码实现把多个excel表格合并为一个总表。
2020-05-30 03:43
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10527
专家分:42899
注 册:2014-5-20
收藏
得分:10 
图片附件: 游客没有浏览图片的权限,请 登录注册

CREATE CURSOR tt (编号 I, 姓名 C(10), 联系电话 C(20), 部门 C(10))
APPEND FROM 通讯录德育处.xls FOR 编号!=0 TYPE XLS
APPEND FROM 通讯录教导处.xls FOR 编号!=0 TYPE XLS
APPEND FROM 通讯录校长室.xls FOR 编号!=0 TYPE XLS
INDEX on 编号 TAG 编号
COPY TO 通讯录.xls TYPE xls
BROWSE


[此贴子已经被作者于2020-5-30 07:39编辑过]

2020-05-30 07:32
王咸美
Rank: 1
等 级:新手上路
帖 子:579
专家分:0
注 册:2018-1-4
收藏
得分:0 
@吹水佬 谢谢!假如有很多个分表,用APPEND FROM...是不是很麻烦?有没有更好的方法?
2020-05-30 08:59
qiuxingce
Rank: 2
等 级:论坛游民
帖 子:118
专家分:93
注 册:2014-1-17
收藏
得分:0 
CREATE CURSOR tt (编号 I, 姓名 C(10), 联系电话 C(20), 部门 C(10))
LOCAL iCount,i,xlsName
iCount=ADIR(xlsList,"xls")
FOR i=1 to iCount
    xlsName=xlsList(i,1)
    APPEND FROM &xlsName FOR 编号!=0 TYPE XLS
ENDFOR
INDEX on 编号 TAG 编号
COPY TO 通讯录.xls TYPE xls
BROWSE
2020-05-30 09:28
qiuxingce
Rank: 2
等 级:论坛游民
帖 子:118
专家分:93
注 册:2014-1-17
收藏
得分:0 
试试,未测试。
2020-05-30 09:28
王咸美
Rank: 1
等 级:新手上路
帖 子:579
专家分:0
注 册:2018-1-4
收藏
得分:0 
假如有多个excel文件在不同的文件夹下:E:\ftp\校长室\通讯录校长室.xls,E:\ftp\教导处\通讯录教导处.xls,E:\ftp\德育处\通讯录徳育处.xls…… 用vfp代码合并成一个excel文件,且在E:\ftp文件夹下,应如何操作,请高手指点,万分感谢!!!(文件夹 校长室、教导处、德育处……是以表文件tab1字段 部门 自动创建的)

[此贴子已经被作者于2020-5-30 12:22编辑过]

2020-05-30 12:17
qiuxingce
Rank: 2
等 级:论坛游民
帖 子:118
专家分:93
注 册:2014-1-17
收藏
得分:10 
CREATE CURSOR tt (编号 I, 姓名 C(10), 联系电话 C(20), 部门 C(10))
LOCAL iCount,i,xlsName,cDir
cDir='e:\ftp\'
select 部门 from tab1 into cursor curdepart distinct
scan
    cd cDir+allt(curDepart.部门)
    iCount=ADIR(xlsList,"xls")
    FOR i=1 to iCount
        xlsName=xlsList(i,1)
        APPEND FROM &xlsName FOR 编号!=0 TYPE XLS
    ENDFOR
endscan
INDEX on 编号 TAG 编号
COPY TO 通讯录.xls TYPE xls
BROWSE
2020-05-30 13:47
王咸美
Rank: 1
等 级:新手上路
帖 子:579
专家分:0
注 册:2018-1-4
收藏
得分:0 
多谢!如果没有表文件tab1.dbf,能否把E:\ftp\下不同文件夹里的excel文件合并为一个总的excel文件?望赐教!十分期盼!万分感谢!!!
2020-05-30 17:32
快速回复:如何合并结构相同的Excel表格
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016435 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved