delphi 怎么获取excel值

Question

delphi 怎么获取excel sheet$的值啊

Answer 1

var
  ExcelApp: Variant;
  Astr:string;
Begin
  If OpenDialog1.Execute Then
    APath := OpenDialog1.FileName
  Else
    Exit;  If Not FileExists(APath) Then
    Begin
      ShowMessage('您所选择的文件不存在！');
      Exit;
    End;
  Try
    ExcelApp := CreateOleObject('Excel.Application');
    ExcelApp.Workbooks.Open(APath);
    ExcelApp.WorkSheets[1].Activate;    Astr := ExcelApp.Cells[1, 1].Value;
end;

Answer 2

如果是ado连接excel：
http://topic.csdn.net/u/20071016/09/d43520da-42ba-40ea-b6a6-5d42383e5e6c.html