第一步:把单位存放到数据中;第二步:使用循环分别将不同单位的数据导出到不同的EXCEL文件中。你给出的数据不够多,我只能试着给出一个简单的程序供你参考。
SET TALK OFF
USE 表1
INDEX on dw TO dw uniq
COPYfields 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 程序经运行通过,达到你所提出的要求!