以下是引用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
  程序经运行通过，达到你所提出的要求！

以下是引用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