我用如下方式打开Excel:
try
Excel:=CreateOleObject('Excel.Application');
except
ShowMessage('未能成功打开Excel,检查是否安装Excel');
end;以前一直没有问题,有个家伙不知在电脑上装了什么程序,
上述语句就要出错。我重装了OFFCIE,还是这样。
但在桌面上可以打开EXCEL,就是在程序中打开不了,
不知哪儿出了问题,难道必须重装整个系统吗?
try
Excel:=CreateOleObject('Excel.Application');
except
ShowMessage('未能成功打开Excel,检查是否安装Excel');
end;以前一直没有问题,有个家伙不知在电脑上装了什么程序,
上述语句就要出错。我重装了OFFCIE,还是这样。
但在桌面上可以打开EXCEL,就是在程序中打开不了,
不知哪儿出了问题,难道必须重装整个系统吗?
解决方案 »
- dbgrid 如何选中一行 有什么直接设置的属性吗?谢谢了
- 有谁做过类似于银行前台系统的模拟平台的进来交流下..
- 询问一个delphi7开发时遇到的错误的原因
- MODEM在CTI应用的替代者
- 我在本机上创建了一个SQL Server 2000的数据库,怎样用TQuery去访问这个数据库?
- 求教数据库连接问题
- 我收到了visual转发Kronus(Kronus)的Requirement Spec非常感谢Visual。我还想问问,那位大虾有没有实际的需求分析书例子,能让我们学习学习。
- 如何实现可过滤的目录树的复制?????????????????????????
- delphi怎样求出两时间之间相差多少秒?
- 在Windows下,怎样一行一行打印,而不整页走纸?POS收银打印机用
- 如何把array [] of char 类型的字符组转换为string类型字符串?
- 如何得到存储过程返回的数据集?(急用!!)
Excel := GetActiveOleObject('Excel.Application);
except
try
Excel := CreateOleObject('Excel.Application);
except
Excel :=nil;
ShowMessage('未能成功打开Excel,检查是否安装Excel');
end;
end;
要有这句才可以显示Excel..