| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 968 人关注过本帖, 1 人收藏
标题:菜鸟请教数据导入的问题
只看楼主 加入收藏
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:694
专家分:20
注 册:2014-1-16
收藏
得分:0 
就是要导入到WJH2011的表里面去
2014-01-16 23:19
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
*Excel导入Dbf
FILENAME = GETFILE("XLS","文件名","确定",0,"请选择EXCEL文件")
IF EMPTY(FILENAME)
   MESSAGEBOX("未选择(未找到需要的) EXCEL 文件",64,"系统信息")
   RETURN
ENDIF
IF USED(JUSTSTEM(FILENAME))
   USE  IN SELECT(JUSTSTEM(FILENAME))
ENDIF
*---- 下面这段代码可用后面的代码替换:DBFNAME = FORCEEXT(FILENAME,"DBF"),见WITH OEXCEL 注释处
*---- 优点在于:1-能判断要保存的DBF文件是否有重名;
*---- 2-生成的 DBF 文件可以换名保存,也可以更换保存路径。
*------------------------------------------------------------------
DBFNAME = PUTFILE("保存为(&N):",JUSTSTEM(FILENAME)+".DBF","DBF")
IF EMPTY(DBFNAME)
   MESSAGEBOX(" DBF 文件名不能为空",64,"系统信息")
   RETURN
ENDIF
*------------------------------------------------------------------
OEXCEL=CREATEOBJECT("EXCEL.APPLICATION")       && 创建 EXCEL
WAIT "正在转换 "+FILENAME WINDOW TIMEOUT 0 NOWAIT AT SROWS()/2,(SCOLS()-LEN("正在转换 "+FILENAME))/2
WITH OEXCEL
   .WORKBOOKS.OPEN(FILENAME)                   && 在 EXCEL 中打开指定的工作簿
   .DISPLAYALERTS=.F.                          && 关闭提示信息
   .WORKSHEETS(1).SELECT                       && 选中 SHETT1 为当前工作表(1 可改为 "SHEET1")
   R=OEXCEL.SHEETS(1).USEDRANGE.ROWS.COUNT     && 有数据的行
   C=OEXCEL.SHEETS(1).USEDRANGE.COLUMNS.COUNT  && 有数据的列
   .CELLS(R,C).SELECT                          && 选中 R 单元到 C 单元的区域
   DBFNAME = FORCEEXT(FILENAME,"DBF")          && 将扩展名 XLS 替换为 DBF
   .ACTIVEWORKBOOK.SAVEAS(DBFNAME,11)          && 保存为 DBF4 格式
   .WORKBOOKS.CLOSE
   .QUIT
ENDWITH
RELEASE OEXCEL
WAIT CLEAR
MESSAGEBOX(DBFNAME+" 转换完毕",64,"系统信息")

坚守VFP最后的阵地
2014-01-16 23:28
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
在VFP9环境下,将导入到DBF中的内容追加到WJM2011中
INSERT INTO WJM2011 (字段名列表) SELECT '',0,N1,N2,0,0 FROM BOOK1

坚守VFP最后的阵地
2014-01-16 23:34
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:694
专家分:20
注 册:2014-1-16
收藏
得分:0 
代码有些多,看得有些晕,我来慢慢消化,谢谢sdta师傅
2014-01-16 23:40
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:0 
以下是引用fanjinyu9108在2014-1-16 21:38:01的发言:

非常谢谢bccn0906,按照你说的方法试了一下,通过了,虽然函数没有完全弄懂。但是先发的1.txt不是实际应用中产生的,实际应用的应该是将Excel表格中的数据复制到TXT中再导入,结果我试了下不行,bccn0906师傅,我再发个1.txt,帮我看看,好吗,非常感谢,补充一下,本来可以从EXECL直接导入,但老是搞不好,所以换成TXT
将Excel表格中的数据复制到TXT保存后,可以直接这样(注意不要再改动TXT的内容)
APPEND FROM 1.txt FIELDS highm,rongjim DELIMITED WITH TAB
2014-01-17 09:21
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:694
专家分:20
注 册:2014-1-16
收藏
得分:0 
感谢师傅们的指导,问题解决了
2014-01-18 22:10
快速回复:菜鸟请教数据导入的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023292 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved