var ExcelApp,workbook:variant;
begin
ExcelApp:=Createoleobject('Excel.Application');
ExcelApp.Visible:=false;
Workbook:=ExcelApp.WorkBooks.Add;
Workbook.Worksheets[1].Cells[i,j].value:=‘ ’;
WorkBook.Saveas('Path');
WorkBook.Close;
ExcelApp.Quit;
ExcelApp:=Unassigned;
end;
begin
ExcelApp:=Createoleobject('Excel.Application');
ExcelApp.Visible:=false;
Workbook:=ExcelApp.WorkBooks.Add;
Workbook.Worksheets[1].Cells[i,j].value:=‘ ’;
WorkBook.Saveas('Path');
WorkBook.Close;
ExcelApp.Quit;
ExcelApp:=Unassigned;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货