2,507
社区成员




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];
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;