delphistringgrid导出为excel

procedure TLiYQBYJL.btnBYJLTJDCClick(Sender: TObject);
var
ExcelApp, workbook, sheet: Variant;
col, row, j, i: Integer;
str: string;
begin
inherited;
dlgSave1.Filter :&＃61; &＃39;Excel2007格式文件|*.xlsx|Excel2003格式文件|*.xls&＃39;;
try
ExcelApp :&＃61; CreateOleObject(&＃39;Excel.Application&＃39;); (* 创建一个Excel的OLE对象&＃xff0c;使用OLE去创建Excel文件时,需要uses ComObj *)
except
InformationDlg(Tit, &＃39;请安装EXCEL&＃39;);
Exit;
end;
workbook :&＃61; ExcelApp.WorkBooks.Add; (* 创建一个WorkBook *)
sheet :&＃61; ExcelApp.Sheets[1]; (* 创建一个Sheet变量 *)
if not cdsBYJLTJ.IsEmpty then
begin
sheet.cells[1, 1] :&＃61; &＃39;保养项目&＃39;;
for col :&＃61; 1 to cdsBYJLTJ.FieldCount - 1 do
begin
sheet.cells[1, col &＃43; 1] :&＃61; cdsBYJLTJ.Fields[col].FieldName;
end;
with cdsBYJLTJ do
begin
First;
i :&＃61; 2; //行 j列
while not Eof do
begin
for col :&＃61; 0 to FieldCount - 1 do
begin
sheet.Cells[i, col &＃43; 1] :&＃61; cdsBYJLTJ.Fields[col].AsString;
end;
Inc(i);
Next;
end;
end;
end;
for col :&＃61; 1 to SGBYJLTJ.ColCount do
begin
ExcelApp.ActiveSheet.Columns[col].Columnwidth :&＃61; 10;
end;
ExcelApp.DisplayAlerts :&＃61; false; //不提示任何警告信息
if dlgSave1.Execute then (* 如果点击了保存对话框的"保存"按键的话&＃xff0c;将当前活动的Workbook保存到SaveDialog指定的位置 *)
begin
if FileExists(dlgSave1.FileName) then
begin
if not QuestionDlg(Tit, &＃39;文件名已存在&＃xff0c;是否覆盖&＃xff1f;&＃39;) then
begin
Exit;
end
else
begin
ExcelApp.ActiveWorkbook.saveas(dlgSave1.FileName);
end;
end;
// ExcelApp.ActiveWorkbook.saveas(dlgSave1.FileName);
end
else (* 如果点击了保存对话框的"取消"按键的话,放弃存盘,这句话一定要加上&＃xff0c;否则,在点击"取消"按键时,会出现问题 *)
ExcelApp.ActiveWorkBook.Saved :&＃61; True;
// ExcelApp.DisplayAlerts :&＃61; false; //不提示任何警告信息
workbook.Close; (* 最后,将WorkSheet关闭 *)
ExcelApp.quit; (* 退出ExcelApp *)
ExcelApp :&＃61; unassigned; (* 使用unassigned时&＃xff0c;要uses Variants *)
end;