您所在位置：主题：[讨论]VFP6导出Excel时怎么和别人写的不一样？
fdm_tj
[专家分：0] 发布于 2009-06-11 17:49:00
程序片段
问题一、
xls_name=sys(5)+sys(2003)+'\'+dbf_name+'.xls'
eole=CREATEOBJECT("Excel.Application")
eole.visible=.F.
eole.workbooks.add
eole.ActiveSheet.PageSetup.CenterFooter='第 &[页码] 页，共 &[总页数] 页'
运行成功后，打开Excel预览结果如下：
第 页码] 页， 共 总页数] 页
问题二、
eole.ActiveSheet.Font.Name='宋体'
eole.ActiveSheet.Font.Size=12
* 一运行到上面这两句就报错！ OLE 错误码 0x80020006: Unknown name
请各位老师点拨一下，谢谢！
问题一、
xls_name=sys(5)+sys(2003)+'\'+dbf_name+'.xls'
eole=CREATEOBJECT("Excel.Application")
eole.visible=.F.
eole.workbooks.add
eole.ActiveSheet.PageSetup.CenterFooter='第 &[页码] 页，共 &[总页数] 页'
运行成功后，打开Excel预览结果如下：
第 页码] 页， 共 总页数] 页
问题二、
eole.ActiveSheet.Font.Name='宋体'
eole.ActiveSheet.Font.Size=12
* 一运行到上面这两句就报错！ OLE 错误码 0x80020006: Unknown name
请各位老师点拨一下，谢谢！
