主题：DBF TO EXCEL 问题
SIMONLIANG
[专家分：420] 发布于 2010-09-02 10:10:00
执行完一下代码后,为何找不到希望得到的 EXCEL 表,请看看问题在哪里,谢谢
local strFieldName
local i
objExcel=createobject("excel.application")
objExcel.workbooks.add
USE AAA
for i=1 to fcount()
objExcel.cells(1,i).value=fields(i)
next
go top
scan
for i=1 to fcount()
strFieldName=fields(i)
objExcel.cells(recno()+1,i).value=&strFieldName
next
endscan
回复列表 （共6个回复）
沙发
qjbzjp [专家分：8830] 发布于 2010-09-02 10:38:00
objExcel.visible=.t.
板凳
moz [专家分：37620] 发布于 2010-09-02 11:22:00
E1=objExcel.workbooks.add
........
E1.saveas("D:\.....\文件名.xls")
3 楼
SIMONLIANG [专家分：420] 发布于 2010-09-02 17:13:00
第一个问题解决了,但还有:
1.当原表中的日期型字段内容为空值,会出错
2.开头为'0'的编号不能保留'0'
再请教各位老师,有办法解决吗?
谢谢!
4 楼
qjbzjp [专家分：8830] 发布于 2010-09-03 09:16:00
第一个问题，加个判断：
objExcel.cells(recno()+1,i).value=IIF(EMPTY(&strFieldName),"",&strFieldName)
5 楼
qjbzjp [专家分：8830] 发布于 2010-09-03 10:06:00
第2个问题，将Excel表的相应列设置为字符型：
local strFieldName
local i
objExcel=createobject("excel.application")
objExcel.workbooks.add
USE aaa
for i=1 to fcount()
objExcel.cells(1,i).value=fields(i)
next
go top
objExcel.Range("A:A").NumberFormatLocal = "@" &&将Excel表的第一列设置为字符型
scan
for i=1 to fcount()
strFieldName=fields(i)
objExcel.cells(recno()+1,i).value=IIF(EMPTY(&strFieldName),"",&strFieldName)
next
endscan
objExcel.ActiveWorkbook.SaveAs("s:\vfp\my.xls")
objexcel.ActiveWorkbook.close
6 楼
C易特联盟 [专家分：60] 发布于 2010-10-03 23:02:00
最新互助式项目。
这是一个互助的模式。
不推广人也有钱赚的。分A B两个网。
不推广的人在A网。推广的人 在B网。
B网推广的人帮助A网。
A网赚取6000元出局。
B网就多了。
详情了解加QQ919169870
http://blog.sina.com.cn/s/blog_6b19ec920100liv6.html
C易特奖励制度
http://blog.sina.com.cn/cyite6
C易特更多资料博客
我来回复
您所在位置：