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 = EOLE.ACTIVESHEET.USEDRANGE.VALUE

EOLE.QUIT

RELEASE EOLE

CZDM=[]

FOR lnI=1 TO LNCOL

CZDM=CZDM+FIELDNAME[lnI]+[ V(200)]+IIF(lnI<LNCOL,[,],[])

ENDFOR

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

本文来源：https://www.wddqw.com/doc/1a2ac37acc7931b765ce15bb.html