2010版本Excel表格如何导入到VfP中

EOLE=CREATEOBJECT('EXCEL.APPLICATION')
LCFILENAME=GETFILE([XLS]) && 此处 XLS 改为EXCEL2010文件的扩展名
IF EMPTY(LCFILENAME)
RETURN
ENDIF
EOLE.WORKBOOKS.OPEN(LCFILENAME)
EOLE.WORKSHEETS(1).ACTIVATE
LNROW=EOLE.SHEETS(1).USEDRANGE.ROWS.COUNT
LNCOL=EOLE.SHEETS(1).USEDRANGE.COLUMNS.COUNT
DIMENSION LAXLS(LNROW,LNCOL),FIELDNAME(LNCOL) && laxls 存贮工作表中的数据,FIELDNAME存贮列标题名
FOR lnI=1 TO LNCOL
FIELDNAME[lnI]=EOLE.SHEETS(1).CELLS(1,lnI).VALUE && 获取列标题名
ENDFOR
LAXLS = https://www.360docs.net/doc/1712253595.html,EDRANGE.VALUE
EOLE.QUIT
RELEASE EOLE

CZDM=[]
FOR lnI=1 TO LNCOL
CZDM=CZDM+FIELDNAME[lnI]+[ V(200)]+IIF(lnIENDFOR
CREATE CURSOR XMDA (&CZDM)
CREATE CURSOR TEMP (&CZDM)
INSERT INTO TEMP FROM ARRAY LAXLS
INSERT INTO XMDA SELECT * FROM TEMP WHERE RECNO()>1
SELECT XMDA
BROWSE