我想重新来处理这个表的问题，请帮助一下，一步一步的来学习。
1.先把发料表进行导入DBF
2.对数据进行一下分类汇总。

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
xlsFile = cDefPath + "发料统计.xls"
WITH CREATEOBJECT("Excel.Application")
    .DisplayAlerts = 0
    .WorkBooks.Open(xlsFile)
    nRow = .CountA(.Range("A:A")) - 2
    nCol = .CountA(.Range("4:4"))
    arr  = .Cells(5,1).Resize(nRow,nCol).Value
    .WorkBooks.Close
    .Quit
ENDWITH
CREATE CURSOR tt( 序号  c(10),经销商简称 c(10),仓库代码 c(10),库位代码 c(10),工单号 c(10),车牌号 c(10),车系 c(10),领料人 c(10),零部件代码 C(10),零部件名称 C(30),零部件数量 n(6,2),;
零部件销售单价 n(6,2),零部件成本单价 n(6,2),维修类型 C(10))
INSERT INTO tt FROM ARRAY arr
SELECT * FROM tt

第一步完成了。
第二步的数据分类汇总不会处理了

[此贴子已经被作者于2022-1-6 16:38编辑过]

按工单号为分组　再对配件代码汇总零部件数量,当数量为0就不要这个记录了。

[此贴子已经被作者于2022-1-6 17:05编辑过]

一切ok，还差一步，就是把这个总表的数据，按每个工单号把数据保存到模板中，保存的文件名称“工单号+领料人+维修类型+牌照号”，当工单有两个领料人时做两个工作分别显示。
，

[此贴子已经被作者于2022-1-6 21:05编辑过]

如何在程序运行时把当前目录下的xls文件全部删除掉。

感谢大家，如果会写就不问了。对数据在处理上不太会，问的有点乱。

这个可以实现对指定的目录下，如何设置成对当前目录下的所有XLS文件，谢谢！
cDefPath = ADDBS(JUSTPATH(SYS(16)))


DELETE FILE cDefPath/*.xls

[此贴子已经被作者于2022-1-7 20:15编辑过]

基础没有打好，学习还是非常乱的，有这样的论坛还是太难得了。慢慢从头来学习一下这个还是非常有用的，感谢大家工作上的ＥＸＣＥＬ比较多也想起来再学习vfp,不动手不知道哪里都是有坑的。

感谢您的提示，把问题想的简单了。学习还是要学习的，方法对不对，就不说了，关注是一定的。