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

Question

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

Answer 1

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;

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

这个需要uses   ComObj;

Answer 7

可以用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];

Answer 8

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