晕！
给鱼还嫌太小。

版主老师，能具体说下实现过程吗？谢谢！

copy to 1 type xls for dw="一建"

非嫌鱼小，只是要面临包含至少20几个单位的DBF数据表，一次一次导出实在太麻烦了，虽然可以导出全部数据到excel中再用VBA来实现自动筛选并分表，但还是希望在DBF表中直接实现，网上实在百度不到办法，所以求助于论坛。

[此贴子已经被作者于2015-11-25 08:17编辑过]

希望一次性导出  一建.xls、二建.xls、三建.xls  这三个EXCEL表。每个EXCEL表中包含各自单位的XM\GZ\DW内容。

关键是要求“用命令一次性导出”，肯定是可以的，用VFP本身的一个函数就可以，但这是不是好的处理方法呢？

其实 DO 也可以在命令窗口执行的命令，还有什么做不到。

一个表能导出，多个表同样可以导出；
一条命令算是一次性执行，多条命令组合成过程后再运行也应该算是一次性执行。
关键是要学会触类旁通、灵活应用。这就是“渔”。
就楼主的情况，如果想要将多项内容的表保存在一个工作簿，那还应该掌握VFP控件EXCEL，才能随心所欲地导出数据。

第一步：把单位存放到数据中；第二步：使用循环分别将不同单位的数据导出到不同的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

解决这个问题需要再建一个表，表里只需一个字段，把你所有的单位名称都放在里面，编一个小程序，分分钟就搞定了，程序代码如下：
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
  程序经运行通过，达到你所提出的要求！

你把實際的數據發上來，說清楚想要做到怎樣的效果。