考虑到excel 表格文件数目多少不确定，还不能把filenam里fname字段内容固定。

set safety OFF   
cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)

CREATE tabl filenam(fname c(30),rs n(4))

 aa=ADIR(mm,'*.xls')   

 FOR nn=1 to aa
      M_File=juststem(cDefPath+mm(nn,1))
     INSERT INTO filenam (fname) VALUES (M_File)
  ENDFOR
REPLACE ALL rs WITH fun()
BROWSE
USE
RETURN

FUNCTION fun()
    xlsx = cDefPath + ALLTRIM(fname)
    oExcel = CREATEOBJECT('Excel.Application')
    oExcel.DisplayAlerts = 0
    oExcel.WorkBooks.Open(xlsx)
    oAS = oExcel.ActiveSheet
    ret = oExcel.CountA(oAS.Range("B:B")) - 1
    oExcel.WorkBooks.Close
    oExcel.Quit 
    RETURN ret
ENDFUNC

在老师的代码上，自行修改了一下。
想在最后一行加上：合计人数。没有成功。

set safety OFF   
cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)

CREATE tabl filenam(fname c(30),rs n(4))

 aa=ADIR(mm,'*.xls')   

 FOR nn=1 to aa
      M_File=juststem(cDefPath+mm(nn,1))
     INSERT INTO filenam (fname) VALUES (M_File)
  ENDFOR
REPLACE ALL rs WITH fun()

insert into filenam (fname) values ("合计")
     sele sum(rs) from filenam into array kk
     replace rs  with KK  for fname='合计'
BROWSE

USE
RETURN

FUNCTION fun()
    xlsx = cDefPath + ALLTRIM(fname)
    oExcel = CREATEOBJECT('Excel.Application')
    oExcel.DisplayAlerts = 0
    oExcel.WorkBooks.Open(xlsx)
    oAS = oExcel.ActiveSheet
    ret = oExcel.CountA(oAS.Range("B:B")) - 1
    oExcel.WorkBooks.Close
    oExcel.Quit 
    RETURN ret
ENDFUNC

代码还能优化吗？谢谢

用VFP6.0的

set safety OFF   
cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)

aa=ADIR(mm,'*.xls')
CREATE CURSOR filenam (fname c(30))
INSERT INTO filenam FROM ARRAY mm 
SELECT fname, 0000 as rs FROM filenam INTO CURSOR rstj READWRITE 
oExcel = CREATEOBJECT("Excel.Application")
oExcel.DisplayAlerts = 0
nCount = 0
REPLACE ALL rs WITH fun() IN "rstj"
INSERT INTO rstj VALUES ("合计",nCount)
oExcel.Quit
SELECT * FROM rstj
RETURN

FUNCTION fun()
    oExcel.WorkBooks.Open(cDefPath + ALLTRIM(rstj.fname))
    oAS = oExcel.ActiveSheet
    ret = oExcel.CountA(oAS.Range("B:B")) - 1
    oExcel.WorkBooks.Close
    nCount = nCount + ret
    RETURN ret
ENDFUNC

[此贴子已经被作者于2021-8-23 09:20编辑过]

SELECT fname, 0000 as rs FROM filenam INTO CURSOR rstj READWRITE  &&&&出现程序错误“命令中有不能识别的短语或关键字”对话框

可能是VFP6兼容问题
改几句
**    CREATE CURSOR filenam (fname c(30))
**    INSERT INTO filenam FROM ARRAY mm
**    SELECT fname, 0000 as rs FROM filenam INTO CURSOR rstj READWRITE

CREATE CURSOR rstj (fname c(30))
INSERT INTO rstj FROM ARRAY mm
ALTER TABLE rstj ADD rs I

SELECT fname, 0000 as rs FROM filenam INTO CURSOR rstj READWRITE  &&&&出现程序错误“命令中有不能识别的短语或关键字”对话框
VFP6.0中，select 建立的临时表，不支持ReadWrite,不能更新。