首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

@小疑点大智慧

2012-02-06 
@小问题大智慧eoleCREATEOBJECT( Excel.application )eole.Workbooks.Open(ThisForm.Text1.value)&&打开

@小问题大智慧
eole=CREATEOBJECT( 'Excel.application ')
eole.Workbooks.Open(ThisForm.Text1.value)   &&打开文件
nfieldcount=fcount()
nreccount=reccount()
hbdygs= "A1: "+chr(nfieldcount+64)+   allt(str(nreccount))
eole.Range(hbdygs).Select


总是提示:OLE错误码0x800a03ec:未知COM状态代码
望高手给予修正,或者在不知道记录的前提下选择EXCEL表所有记录的代码
非常感谢

[解决办法]
自定义字段名方法:

1、VFP调用打开Excel后,修改Excel第一行的值,然后另存为DBF。
2、VFP调用打开Excel后,另存为DBF,然后再用Alter Table命令修改DBF字段名。


建好一张VFP空表,把EXCEL的数据导入固定数据结构的VFP表中。

可以只要对应了字段数和类型。

USE 空表 &&打开事先建好的空表或用Create Table新建一个空表
APPEND FROM EXCEL表名.XLS TYPE XL5

需要注意:用Append from方法如果数据不规范,如数据中有空格,全角英文或数字或空格,
追加后这样的数据有时会是空的。规范的数据有,不规范的就没有了。这点不如Excel另存为好。

热点排行