判断物质名称是否为空，决定是否退出循环

你的EXCEL表格内容有点复杂，你应该把需要导入到DBF文件的数据列出来，从你给出的DBF示例好象不是所有的单元格数据都要导入到DBF文件中。你最后在给出需要导入的DBF结构，其实从EXCEL文件导入数据到DBF文件不是很难，关键的命令就那几个。

CREATE CURSOR tt (项目名称 C(50),项目编号 C(10),物资名称 C(10),物资型号 C(30))
oExcel=CreateObject('Excel.Application')
LOCAL Ar[1,4]
=ADIR(aExcel,SYS(5)+SYS(2003)+"\*.XLS")
FOR I = 1 TO ALEN(aExcel,1)
    WITH oExcel
        .WorkBooks.Open(SYS(5)+SYS(2003)+"\"+aExcel[I,1])
        WITH .Sheets(1)
            Ar[1,1] = .Range("C2").Text
            Ar[1,2] = .Range("C3").Text
            nRow=7
            DO WHILE .T.
                IF BETWEEN(ASC(.Cells(nRow,1).Text),49,57)
                    Ar[1,3] = .Cells(nRow,4).Text
                    Ar[1,4] = .Cells(nRow,5).Text
                ELSE
                    EXIT
                ENDIF
                INSERT INTO tt FROM ARRAY Ar
                STORE "" TO Ar[1,3], Ar[1,4]  
                nRow = nRow + 1
            ENDDO
        ENDWITH
    ENDWITH
ENDFOR
oExcel.ActiveWorkBook.Close(.F.)
oExcel.Quit
Release oExcel
SELECT tt
BROWSE

三年了老版主还在回复.
可以得到数据.不过结果中有物资名称为空的无效数据(没有过滤空行数据).
靠序号判断空数据项目不可靠

[此贴子已经被作者于2018-12-8 11:14编辑过]