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