| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5160 人关注过本帖
标题:将多张excel电子表格合并为一个电子表格文件的VFP实现方法
只看楼主 加入收藏
wjp456789
Rank: 5Rank: 5
来 自:四川成都
等 级:职业侠客
威 望:1
帖 子:345
专家分:330
注 册:2012-6-25
收藏
得分:0 
以下是引用wengjl在2012-11-5 09:01:24的发言:

他的意思是60多个工作簿里的内容,变成一个工作簿里的60多张表
用这种方式还不如单个的表查询快。
要在60个表之间不停地切换。不好定位的。
单个的表放一个文件夹里。还好查找点。

我是来向高手学习的!
2012-11-05 09:12
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
offic2003开始有查找全部的选项(即在工作簿内的所有工作表中查找),很方便的,不用切换

只求每天有一丁点儿的进步就可以了
2012-11-05 09:22
wjp456789
Rank: 5Rank: 5
来 自:四川成都
等 级:职业侠客
威 望:1
帖 子:345
专家分:330
注 册:2012-6-25
收藏
得分:0 
还没用过这功能。。。

我是来向高手学习的!
2012-11-05 09:35
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
请参考:
PRIVATE i,m_file
SET PATH TO SYS(5)+SYS(2003),excel\
myeole=CREATEOBJECT("Excel.application")
WITH myeole
    .visible=.t.
    .Workbooks.add
    FOR i=1 TO 60
        IF i>2
            .sheets(i).Select
            .Worksheets.Add
        ENDIF
        m_file=STR(200700+i,6)+".xls"
        .workbooks.open(SYS(5)+SYS(2003)+"\excel\"+m_file)
        .ActiveSheet.UsedRange.Cells.Copy
        .Windows("Book1").Activate
        .Sheets(i).Select
        .ActiveSheet.Name = m_file
        .ActiveSheet.Paste
        .windows(m_file).Close
    NEXT
    .ActiveWindow.DisplayZeros = .F.
    .ActiveWorkbook.close(.t.)
    .quit      
ENDWITH
RELEASE myeole

相互学习,互相交流,共同提高。
2012-11-05 20:47
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:3 
在Excel写VBA就可以处理,不用绕出来用VFP。

授人以渔,不授人以鱼。
2012-11-05 23:16
快速回复:将多张excel电子表格合并为一个电子表格文件的VFP实现方法
数据加载中...
 
   



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

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