create cursor Student (班级 C(10),学号 C(8),姓名 C(8),性别 C(2))

 insert into Student Values ('经济04-1','B0401001','张三','男')
insert into Student Values ('经济04-1','B0401002','李四','男')
insert into Student Values ('经济04-2','B0401003','王五','男')
insert into Student Values ('经济04-2','B0401004','赵六','男')
insert into Student Values ('经济04-3','B0401005','孙启','男')
insert into Student Values ('经济04-3','B0401006','周把','男')
insert into Student Values ('经济05-1','B0501001','乌桕','男')
insert into Student Values ('经济05-1','B0501002','手动','男')
insert into Student Values ('经济05-1','B0501003','风格','男')
insert into Student Values ('经济06-1','B0601001','规划','男')
insert into Student Values ('经济06-1','B0601002','沟通','男')
select * from student order by 1 into cursor st

 select count(*) as amount from student group by 班级 into cursor st1

 select st1

 lnSheets=reccount('st1')

 o=NewObject('Excel.Application')

 o.workbooks.add

 o.visible=.t.

 do while o.workbooks(1).worksheets.count<lnSheets
   o.workbooks(1).worksheets.add

 enddo

 select st

 lcClass=space(100)      &&&&&&&&能解释一下其含义吗？

 lnCnt=0

 lnRow=1

 scan
   if lcClass#班级
    lnCnt=lnCnt+1
     lnRow=1
     lcClass=班级
    o.workbooks(1).worksheets(lnCnt).name=lcClass
   endif
   o.workbooks(1).worksheets(lnCnt).cells(lnRow,1).value=班级
  o.workbooks(1).worksheets(lnCnt).cells(lnRow,2).value=学号
  o.workbooks(1).worksheets(lnCnt).cells(lnRow,3).value=姓名
  o.workbooks(1).worksheets(lnCnt).cells(lnRow,4).value=性别
  lnRow=lnRow+1

 endscan 

1、lcClass=space(100)      &&&&&&&&能解释一下其含义吗？
2、电子表格的sheet1名称的宽度能否与班级名称宽度相一致。

你好，谢谢。这100个空格的目的我没搞懂。

类似于 Lst=''
       Lst=Lst+cP
 吗?      
哦，为什么要100个空格呢？有何作用？

[此贴子已经被作者于2018-4-5 07:50编辑过]

谢谢你，涨知识了。

谢谢你，测试成功了。