摘要： 1 procedure TFrmWeekAnalysisQry.BtnExportToExcelClick(Sender: TObject); 2 var wordApp,WordDoc,WrdSelection:variant; 3 strAdd:string; 4 i,j,iRangeEnd,iStart,iEnd : integer; 5 wdPar,wdRange:OleVariant; 6 oShape, oChart,myCol: OleVariant; 7 SumJHTonCount, SumWCTonCount, PJTS, PJZCSJ, ... 阅读全文