我的问题是：有一表格“成绩表”，里面有一个字段名为“班主任”，每次都要导出为Excel格式，然后按“班主任”分类，为每一个班主任做一个以班主任姓名命名的Excel文件，能不能通过程序的方式，可以直接生成以班主任姓名命名的dbf和Excel文件。

CLOSE DATABASES
USE 成绩表 IN 0
SELECT distinct  班主任 FROM 成绩表 INTO CURSOR t1
SELECT t1
SCAN
    SELECT 成绩表
    COPY TO ('d:\'+ALLTRIM(t1.班主任)) FOR ALLTRIM(班主任)==ALLTRIM(t1.班主任) &&注意修改你的保存路径
    COPY TO ('d:\'+ALLTRIM(t1.班主任)) FOR ALLTRIM(班主任)==ALLTRIM(t1.班主任) xl5  &&注意修改你的保存路径

    SELECT t1
ENDSCAN
CLOSE DATABASES


[ 本帖最后由 bccn0906 于 2013-11-22 09:31 编辑 ]

成功，非常感谢。

效果好。

[ 本帖最后由 zbl105 于 2013-11-22 10:18 编辑 ]

。。。

[ 本帖最后由 bccn0906 于 2013-11-22 15:16 编辑 ]

SELECT distinct  班主任 FROM 成绩表 INTO CURSOR t1
SELECT t1
SCAN
    SELECT * FROM 成绩表 INTO CURSOR T2
    COPY TO ('d:\'+ALLTRIM(t1.班主任)) FOR ALLTRIM(班主任)==ALLTRIM(t1.班主任) &&注意修改你的保存路径
    COPY TO ('d:\'+ALLTRIM(t1.班主任)) FOR ALLTRIM(班主任)==ALLTRIM(t1.班主任) xl5  &&注意修改你的保存路径
    SELECT t1
ENDSCAN
USE IN T1
USE IN T2

要不就改成这样，好吗
SELECT distinct  班主任 FROM 成绩表 INTO CURSOR t1
SELECT t1
SCAN
    SELECT * FROM 成绩表 INTO CURSOR T2 where ALLTRIM(班主任)==ALLTRIM(t1.班主任)
    select t2
    COPY TO ('d:\'+ALLTRIM(t1.班主任)) &&注意修改你的保存路径
    COPY TO ('d:\'+ALLTRIM(t1.班主任)) xl5  &&注意修改你的保存路径
    SELECT t1
ENDSCAN
USE IN T1
USE IN T2



[ 本帖最后由 bccn0906 于 2013-11-22 10:13 编辑 ]

刚才是我的成绩表中本身就没有o,是我看错了。

用代码导出

打开原始表是个麻烦的事情