社区
Delphi
帖子详情
delphi 调用createoleObject('Excel.Application'),服务器运行失败
linweihua77
2017-02-28 10:50:27
delphi开发的系统,有一个客户端运行调用createoleObject('Excel.Application'),好长时间没反应,然后出现“服务器运行失败”的错误,此前一直用的好好的,最近才出现这样的错误,重新安装了OFFICE组件,手工打开EXCEL没问题, 有人遇到过类似问题吗?
...全文
1609
3
打赏
收藏
delphi 调用createoleObject('Excel.Application'),服务器运行失败
delphi开发的系统,有一个客户端运行调用createoleObject('Excel.Application'),好长时间没反应,然后出现“服务器运行失败”的错误,此前一直用的好好的,最近才出现这样的错误,重新安装了OFFICE组件,手工打开EXCEL没问题, 有人遇到过类似问题吗?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
kwer
2017-03-07
打赏
举报
回复
这个办法不好用的,网上有人专门做这种控件。比如NTKO Office文档控件
linweihua77
2017-02-28
打赏
举报
回复
折腾了好久,找不到解决办法,求各位高人指点!
lyhoo163
2017-02-28
打赏
举报
回复
这是Windows中的office库文件坏。要重新安装office。
使用
delphi
操作
excel
和wps的不同实践
本文通过一个例子说明了使用
delphi
操作
excel
和wps时的区别和共同的代码部分。
Delphi
生成
Excel
表的简单实现.rar
Delphi
生成
Excel
表的简单实现,貌似类似的源码有很多,这个觉得过于简单了,
调用
的是
Excel
.
Application
,需要生成一个新的
Create
Ole
Object
对象,下面来看看代码: begin
Excel
ID:=
Create
Ole
Object
('
Excel
.
Application
' ); //添加ComObj单元
Excel
ID.Visible := True;
Excel
ID.Caption := Trim(Edit1.Text);
Excel
ID.WorkBooks.Add; //添加ComObj单元 end; 完整源码请下载吧。
Delphi
Excel
操作大全
(一) 使用动态创建的方法 首先创建
Excel
对象,使用ComObj: var
Excel
App: Variant;
Excel
App :=
Create
Ole
Object
( '
Excel
.
Application
' ); 1) 显示当前窗口:
Excel
App.Visible := True; 2) 更改
Excel
标题栏:
Excel
App.Caption := '应用程序
调用
Microsoft
Excel
'; 3) 添加新工作簿:
Excel
App.WorkBooks.Add; 4) 打开已存在的工作簿:
Excel
App.WorkBooks.Open( 'C:/
Excel
/Demo.xls' ); 5) 设置第2个工作表为活动工作表:
Excel
App.WorkSheets[2].Activate; 或
Excel
App.WorksSheets[ 'Sheet2' ].Activate; 6) 给单元格赋值:
Excel
App.Cells[1,4].Value := '第一行第四列'; 7) 设置指定列的宽度(单位:字符个数),以第一列为例:
Excel
App.ActiveSheet.Columns[1].ColumnsWidth := 5; 8) 设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:
Excel
App.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米 9) 在第8行之前插入分页符:
Excel
App.WorkSheets[1].Rows.PageBreak := 1; 10) 在第8列之前删除分页符:
Excel
App.ActiveSheet.Columns[4].PageBreak := 0; 11) 指定边框线宽度:
Excel
App.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3; 1-左 2-右 3-顶 4-底 5-斜( / ) 6-斜( / ) 12) 清除第一行第四列单元格公式:
Excel
App.ActiveSheet.Cells[1,4].ClearContents; 13) 设置第一行字体属性:
Excel
App.ActiveSheet.Rows[1].Font.Name := '隶书';
Excel
App.ActiveSheet.Rows[1].Font.Color := clBlue;
Excel
App.ActiveSheet.Rows[1].Font.Bold := True;
delphi
导出到
excel
的7种方法
一;
delphi
快速导出
excel
uses ComObj,clipbrd; function To
Excel
(sfilename:string; ADOQuery:TADOQuery):bo
ole
an; const xlNormal=-4143; var y : integer; tsList : TStringList; s,filename :string; aSheet :Variant;
excel
:
Ole
Variant; savedialog :tsavedialog; begin Result := true; try
excel
:=
Create
Ole
Object
('
Excel
.
Application
');
excel
.workbooks.add; except //screen.cursor:=crDefault; showmessage('无法
调用
Excel
!'); exit; end; savedialog:=tsavedialog.
Create
(nil); savedialog.FileName:=sfilename; //存入文件 savedialog.Filter:='
Excel
文件(*.xls)|*.xls'; if savedialog.Execute then begin if FileExists(savedialog.FileName) then try if
application
.messagebox('该文件已经存在,要覆盖吗?','询问',mb_yesno+mb_iconquestion)=idyes then DeleteFile(PChar(savedialog.FileName)) else begin
Excel
.Quit; savedialog.free; //screen.cursor:=crDefault; Exit; end; except
Excel
.Quit; savedialog.free; screen.cursor:=crDefault; Exit; end; filename:=savedialog.FileName; end; savedialog.free; if filename='' then begin result:=true;
Excel
.Quit; //screen.cursor:=crDefault; exit; end; aSheet:=
excel
.Worksheets.Item[1]; tsList:=TStringList.
Create
; //tsList.Add('查询结果'); //加入标题 s:=''; //加入字段名 for y := 0 to adoquery.fieldCount - 1 do begin s:=s+adoQuery.Fields.Fields[y].FieldName+#9 ;
Application
.ProcessMessages; end; tsList.Add(s); try try ADOQuery.First; While Not ADOQuery.Eof do begin s:=''; for y:=0 to ADOQuery.FieldCount-1 do
Delphi
控制
Excel
全面技术
Delphi
控制
Excel
全面技术 首先创建
Excel
对象,使用ComObj: var
Excel
App: Variant;
Excel
App :=
Create
Ole
Object
( '
Excel
.
Application
' ); 1) 显示当前窗口:
Excel
App.Visible := True; 2) 更改
Excel
标题栏:
Excel
App.Caption := '应用程序
调用
Microsoft
Excel
'; 3) 添加新工作簿:
Excel
App.WorkBooks.Add; 4) 打开已存在的工作簿:
Excel
App.WorkBooks.Open( 'C:\
Excel
\Demo.xls' ); 5) 设置第2个工作表为活动工作表: ...... ...... ...... ...... ......
Delphi
5,388
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章