| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3095 人关注过本帖
标题:如何将DBF文件按某一字段内容分别导出EXCEL文件
只看楼主 加入收藏
yt111983
Rank: 2
等 级:论坛游民
威 望:1
帖 子:33
专家分:16
注 册:2015-11-24
收藏
得分:0 
以下是引用cxzbzgz在2015-11-25 17:26:02的发言:

解决这个问题需要再建一个表,表里只需一个字段,把你所有的单位名称都放在里面,编一个小程序,分分钟就搞定了,程序代码如下:
SELECT 2
  USE 表1  &&这是你的原表
   SELECT 1
  USE dw   &&这是新建的单位表,里面包含你所要的所有单位
 DO whil NOT EOF()
  mdw=dw
   SELECT 2
    COPY TO &mdw FOR mdw=dw TYPE XLS
     SELECT 1
    SKIP   
  ENDDO
  程序经运行通过,达到你所提出的要求!


谢谢老师,您的程序完全搞定了我的难题!我原先的思路有问题,总想着直接在命令窗口实现,谢谢老师!

2015-11-26 12:38
yt111983
Rank: 2
等 级:论坛游民
威 望:1
帖 子:33
专家分:16
注 册:2015-11-24
收藏
得分:0 
以下是引用wangzhiyi在2015-11-25 14:33:38的发言:

第一步:把单位存放到数据中;第二步:使用循环分别将不同单位的数据导出到不同的EXCEL文件中。你给出的数据不够多,我只能试着给出一个简单的程序供你参考。
SET TALK OFF
USE 表1
INDEX on dw TO dw uniq
COPY  fields dw TO ARRAY dw
SET INDEX TO
FOR i=1 TO ALEN(dw)
    fi1='d:\'+ALLTRIM(dw(i))+".xls"
    COPY TO &fi1. TYPE XLS FOR ALLTRIM(dw)=ALLTRIM(dw(i))
ENDFOR

谢谢老师的帮助!
2015-11-26 12:39
快速回复:如何将DBF文件按某一字段内容分别导出EXCEL文件
数据加载中...
 
   



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

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