try
        ExcelApp:= CreateOleOBject('Excel.Application');
        ExcelApp.WorkBooks.Add;
        ExcelSheet:=ExcelApp.WorkSheets.Add;
        ExcelApp.Visible := false;
        ExcelApp.WorkSheets[1].Activate;
      except
        Application.MessageBox('無法開啟 MS-EXCEL', '啟動警告', MB_ICONWARNING);
        exit;
      end;
      ExcelApp.Caption:='海外獎金發放彙總表';
      //設定列寬
      ExcelSheet.cells[1,1].ColumnWidth:=30.00;
      ExcelSheet.cells[1,2].ColumnWidth:=15.00;
      ExcelSheet.cells[1,3].ColumnWidth:=15.00;
      try
        TitleList:=TStringList.Create;
        TitleList.Add('銷售機構');
        TitleList.Add('營業員');
        TitleList.Add('獎金');
        for i := 1 to qryT.FieldCount-3 do
        begin
          //指定區間
          Fselect:=ExcelSheet.range[ExcelSheet.cells[1,1],ExcelSheet.cells[1,i 1]];
          Fselect.VerticalAlignment:= xlCenter;        //標題水平置中
          Fselect.HorizontalAlignment:= xlCenter;      //標題垂直置中
          ExcelApp.Cells[1,i]:=TitleList[i-1];
        end;
      finally
        TitleList:=nil;
      end;
      i:=2;
      qryT.First;
      while not qryT.Eof do
      begin
        for j := 0 to qryT.FieldCount-4 do
          if qryT.Fields[j].FieldName = 'sl_name' then
            ExcelApp.Cells[i,j 1]:=qryT.FieldByName('sl_no').AsString '  ' qryT.fields[j].AsString
          else if qryT.Fields[j].FieldName = 'name_' then
            ExcelApp.Cells[i,j 1]:=qryT.FieldByName('code_').AsString '  ' qryT.fields[j].AsString
          else
            ExcelApp.Cells[i,j 1]:=qryT.fields[j].AsString;
        qryT.Next;
        inc(i);
      end;          ExcelApp.WorkBooks[1].Saveas('C:\海外獎金發放彙總表.xls');
      ExcelApp.WorkBooks.Close;
      ExcelApp.Quit;