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