求助：关于EXCEL表导入数据库中？！！！ - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求助：关于EXCEL表导入数据库中？！！！

我的收件箱(0)

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

共有 2958 人关注过本帖

标题：求助：关于EXCEL表导入数据库中？！！！

只看楼主加入收藏

nhygm888

等　级：论坛游民
威　望：1
帖　子：186
专家分：42
注　册：2008-7-20

第 11 楼

得分:0

提示我没有足够内存

2009-11-09 09:25

nhygm888

等　级：论坛游民
威　望：1
帖　子：186
专家分：42
注　册：2008-7-20

第 12 楼

得分:0

谢谢 ibmlang_002 问题解决了

2009-11-11 06:40

gzkhrh

等　级：论坛游民
帖　子：10
专家分：20
注　册：2007-4-27

第 13 楼

得分:0

你的数组是如何定义的？ml
如果事先不知道有多少个文件，如何定义数组？

2009-11-11 14:47

hu9jj

来　自：红土地
等　级：贵宾
威　望：400
帖　子：11857
专家分：43421
注　册：2006-5-13

第 14 楼

得分:0

以下是引用gzkhrh在2009-11-11 14:47:47的发言：

你的数组是如何定义的？ml
如果事先不知道有多少个文件，如何定义数组？

adir()函数会自动建立或扩充数组。

活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@

2009-11-11 16:19

yang286

来　自：新加坡
等　级：论坛游侠
帖　子：85
专家分：117
注　册：2009-11-11

第 15 楼

得分:0

excel= GETFILE('XLS', 'File Name', 'OK',0, 'Open an Excel file...')
USE dbf
APPEND from （excel） TYPE XLS

2009-11-12 09:58

TZTJ

等　级：论坛游侠
威　望：1
帖　子：737
专家分：115
注　册：2008-1-15

第 16 楼

得分:0

请问yang286,第一行代码是表示获取一个EXCEL文件吗?第二行EXCEL为什么要加( )呢 ?为什么不直接用"appen from ? type xls."不简洁吗?
以下代码是我想把一个文件夹中几个EXCEL文件自动导入一个表中.但遗憾的不成功!请高手指点.
ncount=1
gndbcnumber = adir(ml,'F:\xscjglxt\初中\*.xls') && 创建数组
USE xx
for ncount = 1 to gndbcnumber && 依据数据库的个数循环
selectfile1=ml(ncount,1)
selectfile="F:\xscjglxt\初中\"+selectfile1
appen from selectfile type xls
endfor
wait("成绩导入成功")window nowait
USE

[ 本帖最后由 TZTJ 于 2009-11-12 22:54 编辑 ]

2009-11-12 21:27

yang286

来　自：新加坡
等　级：论坛游侠
帖　子：85
专家分：117
注　册：2009-11-11

第 17 楼

得分:0

APPEND from （excel） TYPE XLS
(excel) 是你所选定要导入的excel file
做一个browse button 放在click
excel= GETFILE('XLS', 'File Name', 'OK',0, 'Open an Excel file...')
然后做一个OK button 放在click
USE dbf
APPEND from （excel） TYPE XLS

2009-11-13 09:04

快速回复：求助：关于EXCEL表导入数据库中？！！！