癫狂编程

摘要： Var FExcel:OleVariant; //excel应用程序 FWorkBook :OleVariant; //工作表 Temsheet:OleVariant; //工作薄 FPicture:OleVariant;//图片 tmpstr:String; range:variant;//范围 i,j,TemInt:integer; TemFileName:S... 阅读全文

摘要： procedure CreatRepSheet(SheetName:String;PageSize,PageLay:Integer); {新建Excel工作簿、进行页面设置} begin {新建Excel工作簿} if ExlApp.WorkBooks.Count < 1 then begin ExlBook := ExlApp.Workbooks.Add; //... 阅读全文

摘要： 运行预览 模板样式 存储返参 导出的Excel 2. 代码实现 阅读全文

摘要： uses Excel2000,ComObj; procedure F_Form.Button1Click(Sender: TObject);var myExcel:TExcel; Int_i,Int_j,rowCount,columnCount:Integer; ExcelId:Variant;be 阅读全文