VF文件转换为EXCLE文件
用转换命令将BDF文件转换为excel文件 coyp to XX.xls 这个命令 问什么转换完 EXCLE打不开啊 打开只显示一条记录,用VF打开源文件是正常显示 在别的电脑上 使用这个命令就能打开
2016-09-03 14:54
2016-09-03 15:01
oExcel=CREATEOBJECT("Excel.Application")
oExcel.WorkBooks.Open(alltrim(cExcelFile))
oExcel.Visible=.T.
2016-09-03 19:29
2016-09-03 20:18
2016-09-03 22:14

2016-09-04 08:52
2016-09-08 11:50
程序代码:if 用户电脑上未安装EXCEL?
弹出提示框
return
endif
if DBF 记录数 〉104万
弹出提示,提醒用户他的电脑不适合直接导出EXCEL这种操作,
建议用户直接把DBF用TXT格式导出(这样也可以用EXCEL读入)。
else
if DBF 记录数 〉65536
if 用户电脑上的EXCEL版本是2007以下 ?
弹出提示,提醒用户他的电脑不适合直接导出EXCEL这种操作,
建议用户直接把DBF用TXT格式导出(这样也可以用EXCEL读入)。
else
先 copy to xx type xl5
再调用EXCEL对象,打开 XX
把DBF 从 65537 起的记录,从EXCEL对象的第65538行,逐笔写入(因EXCEL对象的标题要占一行)
保存EXCEL对象
关闭 EXCEL对象
endif
else
直接 copy to xx type xl5
endif
endif
具体代码就不写了,前人已经有很多了。
2016-09-08 17:36
2016-09-10 13:47