| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1293 人关注过本帖
标题:appe from aa.xls type xls 出现数据上溢,数据丢失
取消只看楼主 加入收藏
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
结帖率:79.38%
收藏
已结贴  问题点数:20 回复次数:2 
appe from aa.xls type xls 出现数据上溢,数据丢失
在存放多个Excel表以另存为5.0-95形式,现以循环的方法把这些xls的文件追加到dbf中,大部分成功,格式不对(对表另存5-95),但出现“出现数据上溢,数据丢失”是什么原因?请行家指教。
代码如下:
cdir=GETDIR("d:","请选择存放相同结构的Excel表的目录")
   *CD (cdir)   &&进入相应的目录

    IF EMPTY(cdir)  &&判断有否选择要导入Excel表的目录
      MESSAGEBOX("请选择待导入的EXCEL文档的目录!",0+48,"提示")
      RETURN
    ELSE


 cdir=left(cdir,len(cdir)-1)

   cd (cdir)
 delete file todata.dbf


 lnFiles=Adir(aFile,"*.xls")  

  **VFP 中用代码从EXCEL中导向DBF**

eole=CREATEOBJECT('Excel.application')  &&创建COM连接
eole.DisplayAlerts = .f.   &&不要产生警告提示

eole.Workbooks.open(cdir+"\"+aFile(1,1))   && 这里取绝对路径
eole.Worksheets[1].Activate   &&这里用表名就是类似SHEET1 什么的
eole.visible=.f.  && 隐藏EXCEL进程,另读取数据都在后台进行
eole.ActiveWorkbook.SaveAs(cdir+"\"+"dbfname.dbf",11) &&DBASE3格式 11为dbf4
eole.ActiveWorkbook.saved=.t.  &&不显示保存对话框
eole.save &&保存
eole.Quit   &&退出
RELEASE eole &&释放
use dbfname.dbf
 copy Structure To todata              
  use todata                             
  For lnI=1 To lnFiles               
    lcStr=(aFile(lnI,1)
   Append From '&lcStr.' type XL5  SHEET JUSTSTEM(lcstr) &&&错误的提示出现此处
  Endfor
搜索更多相关主题的帖子: EXCEL Excel file 
2015-06-10 15:20
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
我的意图是批量的excel电子表格一次性的导入DBF 中,如果一个个先把EXcel表另存为以制表符分隔的纯文本文件,哪太麻烦了。
2015-06-10 15:39
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
初步找出了毛病是电子表格中的列中的数字没有拉开,叠在一起。
2015-06-10 15:46
快速回复:appe from aa.xls type xls 出现数据上溢,数据丢失
数据加载中...
 
   



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

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