一个DBGrid转excel文件的类 Delphi环境.rar

一个DBGrid转excel文件的类 Delphi环境，用的XLSReadWrite。下面代码设置列宽,导出数据时应将AutoFitColWidths属性值设置为False 　　 XLS.Sheet[0].Columns.AddIfNone(0,FColumnCount); 　　 FitColWidths:=FDBGridEh.AutoFitColWidths; 　　 FDBGridEh.AutoFitColWidths:=False; 　　 for i:=0 to FColumnCount-1 do 　　 XLS.Sheet[0].Columns[i].PixelWidth:=FDBGridEh.Columns[i].Width; 　　 FDBGridEh.AutoFitColWidths:=FitColWidths; 　　 //下面代码设置标题行行高 　　 XLS.Sheet[0].Rows.AddIfNone(FStartRow,FTitleRowCount); 　　 for i:=FStartRow to FStartRow FTitleRowCount-1 do 　　 XLS.Sheet[0].Rows[i].PixelHeight:=GetTitleHeightFull; 　　end; 　　另外还有导出数据行、显示进度条进度、输出DBGridEh表脚、设置单元格横向对齐方式、设置单元格显示格式、设置数据行行高等功能的代码，请下载类源码。