您所在位置：主题：关于EXEL文件转换问DBF的问题
sdzph
[专家分：50] 发布于 2008-04-11 13:10:00
各位老师，我利用下面代码进行了 EXECL 文件到 DBF 的转化~
代码如下：
Import From Getfile('xls') Type XLS &&导入的DBF表的第一条记录为XLS的第一行。
Copy To test.Dbf For Recno()>1 &&复制除第一条记录的所有记录到test.dbf。
Go Top
lnFieldNum=Fcount() &&字段个数
lcString='Select '
For lnCount=1 To lnFieldNum
lcString=lcString+Field(lnCount)+' As '+Alltrim(Evaluate(Field(lnCount)))+','
Endfor
lcString=Left(lcString,Len(lcString)-1)+' from test into dbf ttt2 '
&lcString &&执行select 查询
不知道那里出错了，反正是有的行有的不行
现在的问题是：
1.在EXCEL里面第一列作为DBF表的字段，不能超过5个汉字，否则就出错。
2.有的EXCEL转换时候会提示：函数参数的值，类型或者数目无效。
3.有的EXCEL转换时候会提示：不正确的EXEL类型
请各位老师指正和完善~~谢谢！
代码如下：
Import From Getfile('xls') Type XLS &&导入的DBF表的第一条记录为XLS的第一行。
Copy To test.Dbf For Recno()>1 &&复制除第一条记录的所有记录到test.dbf。
Go Top
lnFieldNum=Fcount() &&字段个数
lcString='Select '
For lnCount=1 To lnFieldNum
lcString=lcString+Field(lnCount)+' As '+Alltrim(Evaluate(Field(lnCount)))+','
Endfor
lcString=Left(lcString,Len(lcString)-1)+' from test into dbf ttt2 '
&lcString &&执行select 查询
不知道那里出错了，反正是有的行有的不行
现在的问题是：
1.在EXCEL里面第一列作为DBF表的字段，不能超过5个汉字，否则就出错。
2.有的EXCEL转换时候会提示：函数参数的值，类型或者数目无效。
3.有的EXCEL转换时候会提示：不正确的EXEL类型
请各位老师指正和完善~~谢谢！
