怎么用delphi7.0连接显示excel表中的内容
如何用delphi7.0连接显示excel表中的内容
各位大哥,我想问一下,如何用Delphi7.0 连接excel进行操作,我是想用delphi来显示和操作excel表中的数据,但不使用excel本身的功能,比如:用delphi7.0对excel表进行查找替换功能,还有如何连接显示excel表中的数据,请大家帮帮忙!
------解决方案--------------------
要先引用单元
uses
ExcelXP, OleServer,ComObj;
------解决方案--------------------
AnsiReplaceText(ADOQuery1.FieldByName('产品名称').AsString,'abc-153','abd-153');
//
函数 function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas
功能 返回字符串AText中用子串AFromText替换成子串AToText的结果
说明 不区分大小写
参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags
例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);
//
各位大哥,我想问一下,如何用Delphi7.0 连接excel进行操作,我是想用delphi来显示和操作excel表中的数据,但不使用excel本身的功能,比如:用delphi7.0对excel表进行查找替换功能,还有如何连接显示excel表中的数据,请大家帮帮忙!
------解决方案--------------------
要先引用单元
uses
ExcelXP, OleServer,ComObj;
------解决方案--------------------
AnsiReplaceText(ADOQuery1.FieldByName('产品名称').AsString,'abc-153','abd-153');
//
函数 function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas
功能 返回字符串AText中用子串AFromText替换成子串AToText的结果
说明 不区分大小写
参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags
例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);
//