ExcelApp:Variant;
str1:string;
i: LongInt;
f: Double;
len:integer;
begin
ExcelApp:=CreateOleObject('Excel.Application');
//ExcelApp.visible:=true;
ExcelApp.Caption:='应用程序调用 Microsoft Excel';
if OpenDialog2.Execute then
begin
ExcelApp.workBooks.Open(OpenDialog2.filename);
end;
ExcelApp.WorkSheets['电解方面(日报2)'].activate;
1