摘要： uses Excel97;procedure ExcelOut;var workbook,sheet:variant;xlapp,q:variant;begin xlapp:=GetExcelObject('Excel.Application');xlapp.visible:=true; //此属性为true，导出时会打开一个Excel文件,看到一行一行的写入数据 if xlapp.workboo... 阅读全文