2,727
社区成员
发帖
与我相关
我的任务
分享
lcPath = GETFILE("xls,xlsx","","确定",0,"打开Excel")
IF EMPTY(lcPath)
RETURN
ENDIF
CREATE CURSOR q_gridExcel(Name C(40),sex C(20),age C(20))
loExcel = CREATEOBJECT("Excel.application") &&创建Excel对象
loExcel.Workbooks.Open(lcPath) &&打开指定工作簿
loExcel.Worksheets("sheet1").Activate &&激活工作表
arrTableInfo=loExcel.ActiveSheet.UsedRange.Value &&将当前工作表中的已用区域(只读)存入数组。
loExcel.Quit &&退出Excel
Release loExcel &&只有释放对象变量, EXCEL进程才会完全关闭
Insert Into q_gridExcel FROM ARRAY arrTableInfo &&从数组导入临时表
scan
if "."$Name=.T.
repl Name wiht allt(getwordnum(Name,1,"."))
endif
if "."$Sex=.T.
repl Sex wiht allt(getwordnum(Sex,1,"."))
endif
if "."$Age=.T.
repl Age wiht allt(getwordnum(Age,1,"."))
endif
endscan