主题：从Excel表转移数据到VFP表的编程实现方法
jinlonggao
[专家分：17130] 发布于 2006-12-12 20:29:00
妖孽横行,紧急撤离！
最后更新于：2010-01-25 17:10:00
回复列表 （共79个回复）
沙发
martine [专家分：4950] 发布于 2006-12-07 11:45:00
非常的好.可就是太麻烦了.
板凳
jinlonggao [专家分：17130] 发布于 2006-12-07 12:02:00
谢谢1楼朋友关注,请多赐教!
3 楼
lwh1188 [专家分：25840] 发布于 2006-12-07 12:18:00
原创不错！请多些发表！
4 楼
低音炮 [专家分：920] 发布于 2006-12-07 13:22:00
好是好,但仅对对VFP和EXCLE的内容和结构都有了解的人才适用,当应用进应用系统时,操作者往往都不是懂的人,就会出现麻烦,进入应用软件的东西都要成为一种"傻瓜"式的,几键或一键完成,否则推广较难.不知我说得对与不对,供参考
5 楼
jinlonggao [专家分：17130] 发布于 2006-12-07 20:33:00
压根就不懂VFP的人肯定不行，压根就不懂Excel的人也不行,如果不懂VFP,也就没必要将EXCEL转换为VFP,所以,对于两者都会用但不会编程的人,只要培训20分钟,保准会用.
当然对于很懂的人,用该程序,也会大大方便使用.
谢谢3、4楼朋友的关注!
6 楼
yuandguan [专家分：240] 发布于 2006-12-09 15:56:00
不错,又学了一招,就是很复杂啊
7 楼
martine [专家分：4950] 发布于 2006-12-09 16:39:00
excel_name=getfile('xls','Excel文件')
if empt(excel_name)
retu
endif
#define True 1
XLApp = createobject("Excel.Application")
XLApp.visible = True
XLApp.Workbooks.Open(excel_name)
thisform.refresh
xlCellValue = XlApp.ActiveSheet.Cells[nXlrow,nXlcolumn].value
对于excel 转入vfp来说就这几句是干的。别的都是花活。
8 楼
jinlonggao [专家分：17130] 发布于 2006-12-09 18:29:00
别的都是花活?
----------------------------
不是花活,是你眼花了!
9 楼
martine [专家分：4950] 发布于 2006-12-09 19:46:00
哈，哥们。你的程序对我的启发很大。我说的花活是指对数据及表单的控制命令。我转入成功了，就用摘得的那你几个语句。但你的程序通用性是非常好的。
我没用你所说的中间库，因为我要的是固定的几列，DBF是固定的。你的前提是DBF不固定。
10 楼
jinlonggao [专家分：17130] 发布于 2006-12-09 19:56:00
我的程序针对你机子上任何一个EXCEL表和任何一个已存在的VFP表,如果好用,说一声,如果有什么问题,也请你说一声.
谢谢你的关注!
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 从Excel表转移数据到VFP表的编程实现方法