DELPHI CXGIRD导出功能.txt

1, if DM.SaveExcel.Execute then
    begin
      cxGridExportLink.ExportGridToExcel(DM.SaveExcel.FileName,cxGrid1, true, true, false) ;
      if Pos('.XLS',UpperCase(DM.SaveExcel.FileName))=0 then DM.SaveExcel.FileName:=DM.SaveExcel.FileName+'.XLS';
      if ShareU.MsgYesNoBox('数据已经成功导出，是否要现在打开？') then
      ShellExecute(Handle,'Open',Pchar(DM.SaveExcel.FileName),nil,nil,SW_SHOW);
    end;
    
    
2.   var
  FileName,FileStr: string;
  PrintSetupOptions1: TPrintSetupOptions;
  TargetFileName, TargetPath, TargetExt: string;
  XLS: TXLSReadWriteII5;
  CurSheet: TXLSWorksheet;
  SizeCount, SheetNo: integer;
  curRow: integer;
  tj: string;
  i,j,qsRow: Integer;
  
    PrintSetupOptions1 := [psoHorizCenter, psoNoColor];
    dm.SaveExcel.DefaultExt := 'xlsx';
    DM.SaveExcel.Filter := 'Excel格式|*.xlsx';
    dm.SaveExcel.FileName := '工序资料.xlsx';
    if dm.SaveExcel.Execute then
    begin
      TargetPath := ExtractFilePath(dm.SaveExcel.FileName);
      TargetExt := ExtractFileExt(dm.SaveExcel.FileName);
      TargetFileName := ExtractFileName(dm.SaveExcel.FileName);
      TargetFileName := Copy(TargetFileName, 1, Pos('.', TargetFileName) - 1);

      try
        try
          XLS := TXLSReadWriteII5.Create(nil);
          XLS.fileName := TargetPath + TargetFileName + TargetExt;
          CurSheet := XLS.Sheets[0];
          CurSheet.PrintSettings.Options := PrintSetupOptions1;
          curRow := 0;
          StyleProcMemDT.DisableControls;
          try
            StyleProcMemDT.First;
            for i := 0 to StyleProcMemDT.FieldCount - 32 do
            begin
               FileStr := StyleProcMemDT.Fields[i+1].FieldName;
               CurSheet.AsString[i, curRow] :=cxGrid1DBTableView1.GetColumnByFieldName(FileStr).Caption;
               for j := 0 to 7 do
               begin
                 CurSheet.Columns[i].Width := 20*100;
               end;
               CurSheet.Columns[8].Width := 30*100;
                CurSheet.Columns[9].Width :=15*100;
               CurSheet.Columns[11].Width :=15*100;
               //CurSheet.Cell[i,curRow].FontColor := clGreen;  //字体颜色
               CurSheet.Cell[i,curRow].CellColorRGB := 16744448;  //背景颜色
               CurSheet.AutoWidthCol(i);//每列为自动宽度
               CurSheet.Cell[i,curRow].FontStyle := [xfsBold];   //字体样式(加粗\倾斜)[xfsBold,xfsItalic]
               CurSheet.Cell[i,curRow].FontSize := 11;
               
               //https://wenku.baidu.com/view/bd3e2e19cc7931b765ce154a.html
               
            end;