delphi 调用createoleObject('Excel.Application'),服务器运行失败

linweihua77 2017-02-28 10:50:27

delphi开发的系统，有一个客户端运行调用createoleObject('Excel.Application'),好长时间没反应，然后出现“服务器运行失败”的错误，此前一直用的好好的，最近才出现这样的错误，重新安装了OFFICE组件，手工打开EXCEL没问题，有人遇到过类似问题吗？

...全文

1851 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

kwer 2017-03-07

打赏
举报

回复

这个办法不好用的，网上有人专门做这种控件。比如NTKO Office文档控件

linweihua77 2017-02-28

打赏
举报

回复

折腾了好久，找不到解决办法，求各位高人指点！

lyhoo163 2017-02-28

打赏
举报

回复

这是Windows中的office库文件坏。要重新安装office。

本文通过一个例子说明了使用delphi操作excel和wps时的区别和共同的代码部分。

delphi调用WPS文字示例 delphi,WPS,图片,表格

delphiXE10.3 读取excel内容，生成折线图，并另存文件，调用word自带api

(一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口： ExcelApp.Visible := True; 2) 更改 Excel 标题栏： ExcelApp.Caption := '应用程序调用 Microsoft Excel'; 3) 添加新工作簿： ExcelApp.WorkBooks.Add; 4) 打开已存在的工作簿： ExcelApp.WorkBooks.Open( 'C:/Excel/Demo.xls' ); 5) 设置第2个工作表为活动工作表： ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ 'Sheet2' ].Activate; 6) 给单元格赋值： ExcelApp.Cells[1,4].Value := '第一行第四列'; 7) 设置指定列的宽度（单位：字符个数），以第一列为例： ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5; 8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例： ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米 9) 在第8行之前插入分页符： ExcelApp.WorkSheets[1].Rows.PageBreak := 1; 10) 在第8列之前删除分页符：ExcelApp.ActiveSheet.Columns[4].PageBreak := 0; 11) 指定边框线宽度： ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3; 1-左 2-右 3-顶 4-底 5-斜( / ) 6-斜( / ) 12) 清除第一行第四列单元格公式： ExcelApp.ActiveSheet.Cells[1,4].ClearContents; 13) 设置第一行字体属性：ExcelApp.ActiveSheet.Rows[1].Font.Name := '隶书'; ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue; ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;

Delphi 生成Excel表的简单实现，貌似类似的源码有很多，这个觉得过于简单了，调用的是Excel.Application，需要生成一个新的CreateOleObject对象，下面来看看代码：　　begin 　　 ExcelID:=CreateOleObject('Excel.Application' ); //添加ComObj单元　　 ExcelID.Visible := True; 　　 ExcelID.Caption := Trim(Edit1.Text); 　　 ExcelID.WorkBooks.Add; //添加ComObj单元　　end; 　　完整源码请下载吧。

5,932

社区成员

262,939

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章