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 (序号 I, 零部件代码 C(10),零部件名称 C(10),建议销售价 I,销售分类 C(10),拼音代码 C(10),单位 C(10))
INSERT INTO tt FROM ARRAY arr
SELECT * FROM tt
想问一下如何这个工作表的字段是不固定的时候,CREATE CURSOR tt (序号 I, 零部件代码 C(10),零部件名称 C(10),建议销售价 I,销售分类 C(10),拼音代码 C(10),单位 C(10))这个要如何处理一下来适应,谢谢!!!
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 (序号 I, 零部件代码 C(10),零部件名称 C(10),建议销售价 I,销售分类 C(10),拼音代码 C(10),单位 C(10))
INSERT INTO tt FROM ARRAY arr
SELECT * FROM tt
想问一下如何这个工作表的字段是不固定的时候,CREATE CURSOR tt (序号 I, 零部件代码 C(10),零部件名称 C(10),建议销售价 I,销售分类 C(10),拼音代码 C(10),单位 C(10))这个要如何处理一下来适应,谢谢!!!