delphi中如何读取word表格中的内容？

apusic 2003-04-08 03:14:33

各位高手：

在delphi中如何读取word表格中的内容？

能不能给个详细的例子，谢谢!

帮帮忙啦！真得很急。

...全文

42 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

delphi读取word Delphi写数据至WORD 所需的三个控件： TWordApplication; TWordDocument; TWordFont; 创建打开读取操作对word表格进行读写

Delphi7.0读入数据到DBGrid并向Word中插入表格，其实就是Delphi向Word中插入表格，测试数据由Delphi从SQLSERVER中读取，然后放入DBGrid中，再将DBGrid网格中的数据通过Word转换成表格。　　begin 　　 if TStringGrid(DBGrid1).RowCount>0 then 　　 begin 　　 //创建一个word对象　　 wordApp:=CreateOleObject('Word.Application'); 　　 wordApp.Visible:=true; 　　 //创建一个word文档　　 wordDoc:=wordApp.Documents.Add(); 　　 wordDoc.Select; 　　 wrdSelection:=wordApp.selection; 　　 //创建一个表格　　 wordDoc.Tables.Add(wrdSelection.Range,ADOQuery1.RecordCount 1,DBGrid1.FieldCount,2,0); 　　 for i:=1 to DBGrid1.FieldCount do //设置首行的字体为粗体　　 begin 　　 wordDoc.Tables.Item(1).Cell(1,i).Range.Bold:=true; 　　 wordDoc.Tables.Item(1).Cell(1,i).Range.InsertAfter(DBGrid1.Columns[i-1].Field.FieldName); 　　 end; 　　 DBGrid1.DataSource.DataSet.First; //当前行为首行　　 for y:=2 to ADOQuery1.RecordCount 1 do //向表中添加数据　　 begin 　　 for i:=1 to DBGrid1.FieldCount do 　　 wordDoc.Tables.Item(1).Cell(y,i).Range.InsertAfter(DbGrid1.Fields[i-1].NewValue); 　　 DBGrid1.DataSource.DataSet.Next; //下一行　　 end; 　　 end 　　 else 　　 showmessage('TDBGrid表中无数据，不能向Word中插入表格。') 　　end;

通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。为同学们下一步的提高打下坚实的基础。

将word中不规则的表格数据转换为标准的表格，即合并的单元格按正常格式解析

FlexCel for VCL / FireMonkey是一款处理Excel文件的Delphi XE, XE2控件套包。更有大量的API能直接读写本地Excel文件。Flexcel可完成在未安装Excel的OS-X或Windows系统的机器上读取或创建复杂的电子数据表。可根据你的选择创建本地（不需要OLE/dlls）文件（biff 8格式：Xls 95-2003-XP , XLSX, XLSM 2007-2010）。在本地模式下，模板可内置到你的可执行程序里。不需要分配附加文件。可在本地模式下写图片、注释、带条件格式、合并的单元格、中轴表格、图表与完整的Excel功能（在OLE模式下不能写图片，但是你可以在模板里任意引用你需要的图片）。

VCL组件使用和开发

604

社区成员

13,459

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章