如何用delphi7.0连接显示excel表中的内容 各位大哥,我想问一下,如何用Delphi7.0 连接excel进行操作,我是想用delphi来显示和操作excel表中的数据,但不使用excel本身的功能,比如:用delphi7.0对excel表进行查找替换功能,还有如何连接显示excel表中的数据,请大家帮帮忙! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 操作EXCEL方法1、OLE接口,CreateOleObject2、ADO访问,把Excel表当作一张数据库表来操作3、直接操作二进制文件或XML文件,但需要清楚Excel的格式规范,二进制格式是没有公开的1、2种方法使用最多,具体方法可搜老帖 procedure TForm1.Button5Click(Sender: TObject);var ExcelApp:Variant;begin ExcelApp:=CreateOleObject('Excel.Application'); ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0))+'地址.xls'); //可以循环读取数据 Edit3.Text:=ExcelApp.Cells[2,3]; Edit4.Text:=ExcelApp.Cells[3,3]; ExcelApp.quit;end; 要先引用单元uses ExcelXP, OleServer,ComObj; 操作EXCEL方法1、OLE接口,CreateOleObject2、ADO访问,把Excel表当作一张数据库表来操作3、直接操作二进制文件或XML文件,但需要清楚Excel的格式规范,二进制格式是没有公开的1、2种方法使用最多,具体方法可搜老帖我用第二种方法,直接把excel文件当数据库搞。 但是我连需要用到什么控件都不是很清楚吖.我用ado试过.但第一次成功后。后面的老是会出错的吖. 用ADO连接Excel,必须在连接字符串中的数据链接属性中,将“所有”页里的Extended Properties值设为:Excel 8.0。你出现的报错,估计就是连接字符串没设好。 这个我知道,但问题是我想替换我需要的字段,而现在我只做到如:用abd-153替换ABC-153,却还没做到用abd-153替换“ABC-153合成物质”中的ABC-153,变成abd-153合成物质,请问各位大哥有什么方法教教小弟吖 "abd-153"是字段名还是字段值? 是字段值吖如:产品名称 产品数量abc-153 1596ABC-153合成物质 536 先截取出来,再替换掉,最后合并回去。思路如下:1、“ABC-153合成物质”=“ABC-153”+“合成物质”2、“ABD-153”《=“ABC-153”3、“ABD-153合成物质”《=“ABD-153”+“合成物质” 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);// 求对 结构体 固定压缩率 的算法 findwindowex查找多级子控件句柄的问题。 一个老问题! 高手这种情况怎么修改? 接口的用途 请问制作帮助的时候怎么实现自动跳转?见内容 紧急!SOS!救命!在Delphi里如何调用COM组件呀! 一个简单的问题 delphi多线程出现错误:“无法在此会话中启动更多事务” Delphi6新增功能大家谈 delphi 如何做iphone开发? cxGrid 录入数据后的新值、旧值,为空值时出错
1、OLE接口,CreateOleObject
2、ADO访问,把Excel表当作一张数据库表来操作
3、直接操作二进制文件或XML文件,但需要清楚Excel的格式规范,二进制格式是没有公开的1、2种方法使用最多,具体方法可搜老帖
procedure TForm1.Button5Click(Sender: TObject);
var
ExcelApp:Variant;
begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0))+'地址.xls');
//可以循环读取数据
Edit3.Text:=ExcelApp.Cells[2,3];
Edit4.Text:=ExcelApp.Cells[3,3];
ExcelApp.quit;
end;
uses
ExcelXP, OleServer,ComObj;
1、OLE接口,CreateOleObject
2、ADO访问,把Excel表当作一张数据库表来操作3、直接操作二进制文件或XML文件,但需要清楚Excel的格式规范,二进制格式是没有公开的1、2种方法使用最多,具体方法可搜老帖
我用第二种方法,直接把excel文件当数据库搞。
这个我知道,但问题是我想替换我需要的字段,而现在我只做到如:用abd-153替换ABC-153,却还没做到用abd-153替换“ABC-153合成物质”中的ABC-153,变成abd-153合成物质,请问各位大哥有什么方法教教小弟吖
是字段值吖
如:
产品名称 产品数量
abc-153 1596
ABC-153合成物质 536
思路如下:
1、“ABC-153合成物质”=“ABC-153”+“合成物质”
2、“ABD-153”《=“ABC-153”
3、“ABD-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);
//