改动下列代码，问题已解决。

If Isnull(eole.cells(k,（i-1)*6+1).Value)&&空值判断，如值为空则不继续读取
     Exit
 Endif

@吹水佬 我的工作中也有现类似的工作表放在同一个目录下，每个表的表头的能不能帮助处理一下，谢谢！报表单的SHEET2是想要的结果。
就是说表头的数据要保存成DBF表前部的数据，这样处理会方便以后的数据处理，做成主从表会更方便，这个是方便统计订货到货的事，很简单希望吹版主帮助落实一下。对合并单元格的处理还是不会处理。

[此贴子已经被作者于2021-12-26 16:08编辑过]

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
USE bjd
ZAP
oExcel = CREATEOBJECT('Excel.Application')
oExcel.DisplayAlerts = 0
sh = oExcel.WorkBooks.Open(cDefPath+"报价单.xlsx").Worksheets(1)
c车型     = NVL(sh.Cells(2,2).Value,"")
c车牌号   = NVL(sh.Cells(2,4).Value,"")
c颜色代码 = NVL(sh.Cells(2,7).Value,"")
c架子号   = NVL(sh.Cells(3,2).Value,"")
c折扣     = NVL(sh.Cells(3,5).Value,"")
c内饰颜色 = NVL(sh.Cells(3,7).Value,"")
FOR i=5 TO sh.UsedRange.Rows.Count
    INSERT INTO bjd VALUES (c车型,c车牌号,c颜色代码,c架子号,c折扣,c内饰颜色,;
        sh.Cells(i,1).Value,;
        NVL(sh.Cells(i,2).Value,""),;
        NVL(sh.Cells(i,3).Value,""),;
        sh.Cells(i,4).Value,;
        sh.Cells(i,5).Value,;
        NVL(sh.Cells(i,6).Value,""),;
        NVL(sh.Cells(i,7).Value,""),;
        NVL(sh.Cells(i,8).Value,""))
ENDFOR
oExcel.WorkBooks.Close
oExcel.Quit 
SELECT * FROM bjd

太完美无瑕

厉害，学习，之前一直不会使用VFP操作Excel，这回终于学习了！