回复 4楼 dznbomingzhi
读一行写一个记录
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
CREATE CURSOR tt (姓名 C(10), 简历 M)
oExcel = CREATEOBJECT("Excel.Application")
oExcel.DisplayAlerts = .F.
oExcel.WorkBooks.Open("C:\TEMP\人员简历\人员简历.xlsx")
FOR i=1 TO oExcel.ActiveSheet.UsedRange.Rows.Count
IF !(oExcel.Cells[i,1].Value==".NULL.")
INSERT INTO tt VALUES (oExcel.Cells[i,1].Value, oExcel.Cells[i,2].Value)
ENDIF
ENDFOR
oExcel.ActiveWorkBook.Saved = .T.
oExcel.WorkBooks.Close
oExcel.Quit
BROWSE
RETURN