delphi 表格数据导出到excel

procedure TfrmMain.xGridDataToExcel(mGrid: TStringGrid; pTitle, SePTitle,
pTail, pStrCols: string);
var
i,j:integer;
strlist:Tstringlist;
str,Filename:string;
h,k:integer;
Excelid: OleVariant;
s: string;
v,sheet,range:variant;
icol,irow:integer;
nCols:integer;
nCurrCol:integer;
nCurrRow:integer;
begin
excelSaveto.Title:='请选择需要导出到的目标文件';
if excelSaveto.Execute = false then exit;
Filename:=trim(excelSaveto.FileName);
nCols := 0;
for j:=0 to mGrid.ColCount - 1 do begin
      if mGrid.ColWidths[j]>0 then nCols := nCols + 1;
end;
if nCols = 0 then begin
      showmessage('没有数据，无法导出!');
      exit;
end;
//导出到excel表格
try
    Excelid := CreateOLEObject('Excel.Application');
except
    Application.MessageBox('Excel没有安装！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
    Exit;
end;
Excelid.Visible := false;
//Excelid.Visible := true;
Excelid.WorkBooks.Add;
//Excelid.WorkBooks[1].WorkSheets[1].Name := pTitle;
Sheet := Excelid.Workbooks[1].WorkSheets[1];
//标题
sheet.cells[1, 1] := pTitle;
sheet.range[sheet.cells[1, 1],sheet.cells[1,nCols]].Select; //选择该列
Excelid.selection.HorizontalAlignment := $FFFFEFF4;                               //居中
Excelid.selection.MergeCells := True;
//小标题
nCurrRow := 2;
if SePTitle <> '' then begin
    Sheet.Cells[2,1] := SePTitle;
    sheet.range[sheet.cells[2, 1],sheet.cells[2,nCols]].Select; //选择该列
    //Excelid.selection.HorizontalAlignment := $FFFFEFF4;                               //居中
    Excelid.selection.MergeCells := True;
    //表体(包括表头)
    nCurrRow := 3;
end;

for i:=0 to mGrid.RowCount-1 do begin
    nCurrCol := 1;
    for j:=0 to mGrid.ColCount-1 do begin
      if mGrid.ColWidths[j]>0 then begin
        if pos(','+inttostr(j)+',', ','+pStrCols+',')<>0 then begin //导出为字符串格式
          Sheet.Cells[nCurrRow,nCurrCol].NumberFormatLocal := '@';
          Sheet.Cells[nCurrRow,nCurrCol] := mGrid.Cells[j,i];
        end else begin
          Sheet.Cells[nCurrRow,nCurrCol] := mGrid.Cells[j,i];
        end;
        nCurrCol := nCurrCol + 1;
      end;
    end;
    nCurrRow := nCurrRow + 1;
end;
//表尾文字
Sheet.Cells[nCurrRow,1] := pTail;
sheet.range[sheet.cells[nCurrRow, 1],sheet.cells[nCurrRow,nCols]].Select; //选择该列
Excelid.selection.HorizontalAlignment := $FFFFEFF4;                               //居中
Excelid.selection.MergeCells := True;
try
    sheet.cells[1,1].Select;
    Excelid.Workbooks[1].SaveAs(FileName);
    Excelid.Workbooks[1].close;
    Excelid.Quit;
except
    Excelid.Quit;        //有时写完后立即退出，但写进程还占用着该文件，不允许退出，所以这里再退出一次
end;                   //实际上就是设一点点延迟，
Excelid := Unassigned;
end;