Delphi里edit1如何读取一个excel里某表格的内容？？

[thunderingman]

比如edit1.txt为aa.xls里sheet1 A2单元格内容？

[ok1411]

var
  strExcelName: string;
  eclApp, sheet: Variant;
begin
  try
    eclApp := CreateOleObject('Excel.Application');
    eclApp.workBooks.Open(strExcelName);
    sheet := eclApp.WorkSheets[1];
  except
    Exit;
  end;
  edit1.txt := sheet.cells[2,1].value;

[Rubi]

如2楼，先创建Excel对象，读取制定单元格里面的值

[SuperTitan004]

也可以用ado连接，像读数据库一样读

[thunderingman]

ado连接的话是只能读么 还是可以读和写的？

[thunderingman]

eclApp := CreateOleObject('Excel.Application');
这句话什么意思，先说下需要放olecontainer控件么？

[SuperTitan004]

[Quote=引用 5 楼 thunderingman 的回复:]

eclApp := CreateOleObject('Excel.Application');
这句话什么意思，先说下需要放olecontainer控件么？
[/Quote]

这个需要uses ComObj;

[fengemail8]

都是高手,建议看一下VBA

[lyhoo163]

支持一下

[TTEERREENNCCEE]

能直接读到的.

[lovelymelon]

可以用servers控件组中excel控件直接操作

  if self.OpenDialog1.Execute then
    filename:=self.OpenDialog1.FileName;
  if filename='' then
    Exit;
  try
    Self.ExcelApplication1:=TExcelApplication.Create(Self);
    Self.ExcelApplication1.Connect;
  except
    messagebox(application.Handle,'无法生成Excel报表，请确定安装了Excel后重试','信息',mb_ok or mb_iconinformation);
    exit;
  end;
  Self.ExcelApplication1.Visible[0]:=False;
  Self.ExcelApplication1.DisplayAlerts[0]:=False;
  self.ExcelApplication1.Workbooks.Open(filename,EmptyParam,
                                         EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                         EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                         EmptyParam,EmptyParam,EmptyParam,0);
  self.ExcelWorkbook1.ConnectTo(Self.ExcelApplication1.Workbooks[1]);
  self.ExcelWorksheet1:=TExcelWorkSheet.Create(self);
  self.ExcelWorksheet1.ConnectTo(Self.ExcelWorkbook1.Worksheets[1] as _worksheet);
  //*****************************************
  
  edit1.text:=Self.ExcelWorksheet1.Cells.Item[2,1];

[kye_jufei]

[Quote=引用 10 楼 lovelymelon 的回复:]
可以用servers控件组中excel控件直接操作

Delphi(Pascal) code

if self.OpenDialog1.Execute then
filename:=self.OpenDialog1.FileName;
if filename='' then
Exit;
try
Self.ExcelApplication1:=T……
[/Quote]
use comobj,樓上正解...

[bzc1124]

use comobj

var
ExcelApp: Variant;
begin
ExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.WorkBooks.Open('路径加文件名‘);
ExcelApp.WorkSheets[1].Activate;
EDIT1.TEXT：= ExcelApp.Cells[1,4].Value ;
END;