意
意林
Unregistered / Unconfirmed
GUEST, unregistred user!
从数据库中输出数据到Excel中,我用ole方式控制Excel,如:
XL:=CreateOLEObject('Excel.Application');
try
Extqry.First;
XL.visible:=true;
XL.Caption:='人大转交案件列表';
XL.WorkBooks.Add;
XL.worksheets[1].activate;
XL.ActiveSheet.PageSetup.CenterHeader:='&"黑体,加粗"&14 '+FormatDateTime('yyyy',Now)+'年全国人大代表转交案件办理情况表';//设置页眉
XL.ActiveSheet.PageSetup.Orientation := xlLandscape; //打印设置
Xl.ActiveSheet.Columns[1].ColumnWidth:=9.88;
Xl.ActiveSheet.Columns[1].HorizontalAlignment := xlCenter;
Xl.ActiveSheet.Columns[1].VerticalAlignment := xlCenter;
Xl.ActiveSheet.Columns[1].WrapText := True;
XL.ActiveSheet.Columns[1].Font.Name:='仿宋_GB2312';
XL.ActiveSheet.Columns[1].Font.size:=12;
....
程序执行,正确无误(包括在客户的几台机器上)。但是当我在客户的一台新机器上用时,执行到
上述代码时却产生错误。软件需要的环境新机器上都已安装(window98 ,office2000)。
这是为何?如何解决?
XL:=CreateOLEObject('Excel.Application');
try
Extqry.First;
XL.visible:=true;
XL.Caption:='人大转交案件列表';
XL.WorkBooks.Add;
XL.worksheets[1].activate;
XL.ActiveSheet.PageSetup.CenterHeader:='&"黑体,加粗"&14 '+FormatDateTime('yyyy',Now)+'年全国人大代表转交案件办理情况表';//设置页眉
XL.ActiveSheet.PageSetup.Orientation := xlLandscape; //打印设置
Xl.ActiveSheet.Columns[1].ColumnWidth:=9.88;
Xl.ActiveSheet.Columns[1].HorizontalAlignment := xlCenter;
Xl.ActiveSheet.Columns[1].VerticalAlignment := xlCenter;
Xl.ActiveSheet.Columns[1].WrapText := True;
XL.ActiveSheet.Columns[1].Font.Name:='仿宋_GB2312';
XL.ActiveSheet.Columns[1].Font.size:=12;
....
程序执行,正确无误(包括在客户的几台机器上)。但是当我在客户的一台新机器上用时,执行到
上述代码时却产生错误。软件需要的环境新机器上都已安装(window98 ,office2000)。
这是为何?如何解决?