2010版本excel表格如何导入到vf中 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 2010版本excel表格如何导入到vf中

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 6017 人关注过本帖， 2 人收藏

标题：2010版本excel表格如何导入到vf中

只看楼主加入收藏

cayscl

等　级：新手上路
帖　子：4
专家分：0
注　册：2011-4-9
结帖率：0

楼主

已结贴√ 问题点数：20 回复次数：14

2010版本excel表格如何导入到vf中

将excel2010转换低版本的5.0再用vf导入数据丢失，还有其他方法么？

搜索更多相关主题的帖子: excel表格　如何　

2014-03-27 11:55

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 2 楼

得分:4

問不完、無法終結的問題，不勝其煩。

授人以渔，不授人以鱼。

2014-03-27 11:58

cayscl

等　级：新手上路
帖　子：4
专家分：0
注　册：2011-4-9

第 3 楼

得分:0

是不是低版本的excel默认记录就只有16834条而高版本的多，所以多余的就存不上了

2014-03-27 12:08

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 4 楼

得分:0

你不會把Excel另存為文本文件再導入的嗎？

授人以渔，不授人以鱼。

2014-03-27 12:21

wengjl

等　级：贵宾
威　望：109
帖　子：2203
专家分：3867
注　册：2007-4-27

第 5 楼

得分:4

估计楼主不会导入文本的。不过我也不会啊

只求每天有一丁点儿的进步就可以了

2014-03-27 12:23

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 6 楼

得分:0

寫段小測試程序自己摸索一下唄，都要人敎，不會有收穫的。

授人以渔，不授人以鱼。

2014-03-27 12:26

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9831
专家分：27165
注　册：2012-2-5

第 7 楼

得分:4

程序代码：

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