在 WIN2000 SERVER 单步运行到 myexcel := createoleobject('excel.application');
时出错。
而在win2000 PRO 版中没有问题,请问在 WIN2000 SERVER 中如何做??procedure ExportToExcel;
var
myexcel: Variant;
workbook: olevariant;
worksheet: olevariant;begin
try
myexcel := createoleobject('excel.application');
myexcel.application.workbooks.add;
myexcel.caption := '工程导出数据';
myexcel.application.visible := true;
workbook := myexcel.application.workbooks[1];
worksheet := workbook.worksheets.item[1];
except
showmessage('不能建立 EXCEL !');
end;
end.
时出错。
而在win2000 PRO 版中没有问题,请问在 WIN2000 SERVER 中如何做??procedure ExportToExcel;
var
myexcel: Variant;
workbook: olevariant;
worksheet: olevariant;begin
try
myexcel := createoleobject('excel.application');
myexcel.application.workbooks.add;
myexcel.caption := '工程导出数据';
myexcel.application.visible := true;
workbook := myexcel.application.workbooks[1];
worksheet := workbook.worksheets.item[1];
except
showmessage('不能建立 EXCEL !');
end;
end.
解决方案 »
- 关于:Incompatible types: 'Array' and 'PAnsiChar'求助
- 请教:我有一个 button1 按钮,我想把 u 设为热键,要怎么设置 啊?谢谢!
- 各个不同年龄阶段女孩的心,及她们是如何看待男孩?
- 为了忘却的纪念
- 神龙卡的声道控制
- 存储过程执行出现超时已过期!在Sql server查询分析器中执行没问题!但在程序中用ADO连接执行就提示超时已过期!
- 谁给我在qq上传一个可用的delphi5.0或delphi5.5,有300分相送
- 一语句:write(F_err,#10); 中#10什么含义,谢了!
- 请问如何删除已创建的控件
- 解決源碼里繁簡體轉換的小程式,需要的留EMAIL
- 关于9位串口通讯的奇、偶校验,会者解答,不会的学习
- 有没有干程序员干的郁闷的,请进来交流一下
试试去掉中间的application,如
myexcel := createoleobject('excel.application');
myexcel.workbooks.add; // 去掉application
myexcel.caption := '工程导出数据';
myexcel.visible := true;
workbook := myexcel.workbooks[1];
worksheet := workbook.worksheets.item[1];
http://expert.csdn.net/Expert/topic/1432/1432712.xml?temp=.5363275