在存放多个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

type xls 好象是有兼容性问题
可试试另存为“以制表符分隔的纯文本文件”，再用APPEND FROM。
APPEND FROM (以制表符分隔的纯文本文件) DELIMITED WITH TAB

我的意图是批量的excel电子表格一次性的导入DBF 中，如果一个个先把EXcel表另存为以制表符分隔的纯文本文件，哪太麻烦了。

初步找出了毛病是电子表格中的列中的数字没有拉开，叠在一起。

遇到过 是 叠在一起会出现这问题