excel与delphi?(50分)

  • 主题发起人 主题发起人 gaoliang80
  • 开始时间 开始时间
G

gaoliang80

Unregistered / Unconfirmed
GUEST, unregistred user!
uses
Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj,Excel97, OleServer, Db, DBTables;
procedure TForm1.Button1Click(Sender: TObject);
var eclApp,WorkBook:Variant;
begin
try
eclApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleobject('Excel.Sheet');
except
ShowMessage('您的机器里未安装Microsoft Excel.');
Exit;
end;
if OpenDialog1.execute then
WorkBook:=eclApp.workBooks.Open(OpenDialog1.filename);
edit1.text:=eclApp.Cells(2,1);
WorkBook.save;
WorkBook.Close;
eclApp.Quit;
eclApp:=Unassigned;
end;
end.
我想得到excel中二行一列的值,实际上在excel中存在,可运行是却报错:
找不到成员,请问为什么?
 
edit1.text:=eclApp.Cells(2,1);改为
edit1.text:=eclApp.Cells[2,1];

 
把那行edit1.text:=eclApp.Cells(2,1);改成
edit1.text:=eclApp.item.Cells(2,1);
OK!
 
同一楼上的。
 
bluerain的答案是正确的,验证过的。bbs_delphi的答案不对,会提示没有ITEM这个属性。

还有一个问题就是,如何得知这个表用了多少行?例如它用了100行,其它的都没用。
除了暴力法外还有什么良策(例如有哪个属性)?
 
直接些xls文件http://service.lonetear.com/delphi/downfile.asp?ID=1375
 

Similar threads

I
回复
0
查看
781
import
I
I
回复
0
查看
847
import
I
I
回复
0
查看
687
import
I
I
回复
0
查看
547
import
I
I
回复
0
查看
654
import
I
后退
顶部