使用Excel自动化读取和生成报表
ExcelApp: Variant; str1: string; i: LongInt; f: Double; len: integer; begin ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.Caption := '应用程序调用Microsoft Excel'; if OpenDialog2.Execute then begin ExcelApp.WorkBooks.Open(OpenDialog2.filename); end; ExcelApp.WorkSheets['电解方面（日报2）'].Activate;
文件大小：2.83MB
评论区