@小问题大智慧
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另存为好。