德尔福导出excel

Var
,FExcel: OleVariant;//excel应用程序
,FWorkBook: OleVariant;//工作表
,Temsheet: OleVariant;//工作薄
,FPicture: OleVariant;//图片
,tmpstr:字符串;
,范围:变体;//范围
,我,j, TemInt:整数;
,TemFileName:字符串;
,real_american_price:双;

开始,如果(='小米清单”)或(类型=靶∩唐非宓ァ?然后
,开始
,,,如果cxxiaomilist.DataController。RecordCount=0然后
,,,开始
,,,,,Application.MessageBox (PChar('没有导出数据!”),“提示”,MB_OK + MB_ICONWARNING);
,,,,,中止;
,,,结束;

,,,SaveDialog1.Filter:=?xlsx”;
,,,如果SaveDialog1。然后执行
,,,开始
,,,,,TemFileName:=SaveDialog1.FileName +“.xlsx”;

,,,,,Screen.Cursor:=CrHourGlass;
,,,,,TemInt:=0;
,,,,,试着
,,,,,,,FExcel:=CreateoleObject (excel.Application);
,,,,,,,FWorkBook:=FExcel.WorkBooks.Add (-4167);//新的工作表
,,,,,,,Temsheet:=FWorkBook.Worksheets.Add;
,,,,,,,Temsheet.Name:=,
,,,,,除了
,,,,,,,应用程序。弹出窗口(“无法创建Excel文件,请确认是否安装了Excel软件”,
,,,,,,,,,PChar (Application.Title) MB_OK + MB_ICONWarning);
,,,,,,,退出;
,,,,,结束;

,,,,,Temsheet.Select;
,,,,,Temsheet.Range (“A1”、“A1”)。RowHeight:=60;

,,,,,我:=1 - 111
,,,,,开始
,,,,,,,Temsheet.Columns[我].ColumnWidth:=15;
,,,,,,,Temsheet。细胞[1,我]:=";
,,,,,,,如果我=1
,,,,,,,,,Temsheet。细胞[1,我]:=cxxiaomilist.Bands [111] .Caption;
,,,,,,,如果我22=
,,,,,,,,,Temsheet。细胞[1,我]:=cxxiaomilist.Bands [112] .Caption;
,,,,,,,Temsheet。细胞[2,我]:=cxxiaomilist.Bands(张).Caption;
,,,,,,,////////////////////////////////////////////////////////////
,,,,,,,如果我& lt;22然后
,,,,,,,,,,Temsheet。细胞[3,我]:=cxxiaomilist.Columns(张).Caption;
,,,,,结束;
,,,,,Temsheet.Columns [1] .NumberFormat:=# # # # # # # # # # # # # # # # # # # # #”;

,,,,,范围:=Temsheet.Range [Temsheet.cells [3, 22], Temsheet.cells[3, 23]];//选定表格
,,,,,range.select;
,,,,,range.merge;
,,,,,范围:=Temsheet.Range [Temsheet.cells [3, 22], Temsheet.cells[3, 24]];//选定表格
,,,,,range.select;
,,,,,range.merge;
,,,,,Temsheet.Cells [3, 22] .HorizontalAlignment:=-4108;//字居中
,,,,,Temsheet。细胞[3,22]:=cxxiaomilist。乐队(112 + 1).Caption;

,,,,,范围:=Temsheet.Range [Temsheet.cells [3, 25], Temsheet.cells[3, 26]];//选定表格
,,,,,range.select;
,,,,,range.merge;
,,,,,范围:=Temsheet.Range [Temsheet.cells [3, 25], Temsheet.cells[3, 27]];//选定表格
,,,,,range.select;
,,,,,range.merge;
,,,,,Temsheet.Cells [3, 25] .HorizontalAlignment:=-4108;//字居中
,,,,,Temsheet。细胞(3,25):=cxxiaomilist。乐队(112 + 2).Caption;


,,,,,范围:=Temsheet.Range [Temsheet.cells [3109], Temsheet.cells[3110]];//选定表格
,,,,,range.select;
,,,,,range.merge;
,,,,,范围:=Temsheet.Range [Temsheet.cells [3109], Temsheet.cells[3111]];//选定表格
,,,,,range.select;
,,,,,range.merge;
,,,,,Temsheet.Cells [3109] .HorizontalAlignment:=-4108;//字居中
,,,,,Temsheet。细胞[3109]:=cxxiaomilist。乐队(112 + 30).Caption;

,,,,,我:cxxiaomilist.DataController=0。null

德尔福导出excel