(2016-04-24 06:38:32)
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<</FONT>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
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。