excel 数据读取生成报表

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;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1677  2017-05-06 14:12  excel_read\read.dfm

     文件      85140  2017-05-06 10:56  excel_read\read.pas

     文件        233  2017-04-09 16:27  excel_read\readexcel.dpr

     文件      27096  2017-04-09 16:27  excel_read\readexcel.dproj

     文件        654  2017-04-09 16:27  excel_read\readexcel.dproj.local

     文件         79  2017-05-16 22:19  excel_read\readexcel.identcache

     文件      62704  2017-04-10 16:20  excel_read\readexcel.res

     文件        186  2017-05-16 22:19  excel_read\readexcel.stat

     文件     183857  2017-05-06 10:56  excel_read\Win32\Debug\read.dcu

     文件   14049095  2017-05-07 19:17  excel_read\Win32\Debug\readexcel.exe

     文件       1652  2017-04-11 15:16  excel_read\__history\read.dfm.~10~

     文件       1652  2017-04-11 15:43  excel_read\__history\read.dfm.~11~

     文件       1752  2017-04-29 14:40  excel_read\__history\read.dfm.~12~

     文件       1701  2017-04-10 16:11  excel_read\__history\read.dfm.~3~

     文件       2104  2017-04-10 16:17  excel_read\__history\read.dfm.~4~

     文件       2104  2017-04-10 16:24  excel_read\__history\read.dfm.~5~

     文件       2316  2017-04-10 19:30  excel_read\__history\read.dfm.~6~

     文件       2362  2017-04-10 19:32  excel_read\__history\read.dfm.~7~

     文件       2169  2017-04-10 19:37  excel_read\__history\read.dfm.~8~

     文件       1622  2017-04-10 19:39  excel_read\__history\read.dfm.~9~

     文件      71434  2017-05-04 11:52  excel_read\__history\read.pas.~65~

     文件      73026  2017-05-04 11:57  excel_read\__history\read.pas.~66~

     文件      76117  2017-05-04 12:02  excel_read\__history\read.pas.~67~

     文件      79052  2017-05-04 12:15  excel_read\__history\read.pas.~68~

     文件      81715  2017-05-04 13:45  excel_read\__history\read.pas.~69~

     文件      81803  2017-05-04 16:05  excel_read\__history\read.pas.~70~

     文件      82375  2017-05-04 17:38  excel_read\__history\read.pas.~71~

     文件      84677  2017-05-04 17:47  excel_read\__history\read.pas.~72~

     文件      85140  2017-05-06 08:29  excel_read\__history\read.pas.~73~

     文件      85138  2017-05-06 08:31  excel_read\__history\read.pas.~74~

............此处省略7个文件信息